projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix "unable to read" compiler-error reporting during SBCL build
[sbcl.git]
/
src
/
compiler
/
generic
/
array.lisp
diff --git
a/src/compiler/generic/array.lisp
b/src/compiler/generic/array.lisp
index
3f7da3e
..
744f89e
100644
(file)
--- 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
(:save-p :compute-only)
(:generator 1
(error-call vop
- #!+x86 'nil-array-accessed-error
- #!-x86 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
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
(:save-p :compute-only)
(:generator 1
(error-call vop
- #!+x86 'nil-array-accessed-error
- #!-x86 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)
object)))
(define-vop (data-vector-ref-with-offset/simple-array-nil)
@@
-71,8
+71,8
@@
(:save-p :compute-only)
(:generator 1
(error-call vop
(:save-p :compute-only)
(:generator 1
(error-call vop
- #!+x86 'nil-array-accessed-error
- #!-x86 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)
object)))
(define-vop (data-vector-set/simple-array-nil)
@@
-91,8
+91,8
@@
(:save-p :compute-only)
(:generator 1
(error-call vop
(:save-p :compute-only)
(:generator 1
(error-call vop
- #!+x86 'nil-array-accessed-error
- #!-x86 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
object)))
\f
;;; FIXME: There is probably plenty of other array stuff that looks