X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Farray.lisp;h=744f89ef4241a65c0569342676d5375d3350d486;hb=d6f9676ae94419cb5544c45821a8d31adbc1fbe8;hp=cf0f2fd52d14fdc380bfab4a788e2f0cd480f031;hpb=c6538bf61955a67d0145aa3e6c937f6dd03f9e51;p=sbcl.git

diff --git a/src/compiler/generic/array.lisp b/src/compiler/generic/array.lisp
index cf0f2fd..744f89e 100644
--- a/src/compiler/generic/array.lisp
+++ b/src/compiler/generic/array.lisp
@@ -24,8 +24,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+(or x86 x86-64) 'nil-array-accessed-error
-                #!-(or x86 x86-64) nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 ;;; It shouldn't be possible to fall through to here in normal user
@@ -52,8 +52,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+(or x86 x86-64) 'nil-array-accessed-error
-                #!-(or x86 x86-64) nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 (define-vop (data-vector-ref-with-offset/simple-array-nil)
@@ -71,8 +71,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+(or x86 x86-64) 'nil-array-accessed-error
-                #!-(or x86 x86-64) nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 (define-vop (data-vector-set/simple-array-nil)
@@ -91,8 +91,8 @@
   (:save-p :compute-only)
   (:generator 1
     (error-call vop
-                #!+(or x86 x86-64) 'nil-array-accessed-error
-                #!-(or x86 x86-64) nil-array-accessed-error
+                #!+(or x86 x86-64 ppc) 'nil-array-accessed-error
+                #!-(or x86 x86-64 ppc) nil-array-accessed-error
                 object)))
 
 ;;; FIXME: There is probably plenty of other array stuff that looks