(: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
(: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)
(: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)
(: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)))
\f
;;; FIXME: There is probably plenty of other array stuff that looks