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
/
ppc
/
subprim.lisp
diff --git
a/src/compiler/ppc/subprim.lisp
b/src/compiler/ppc/subprim.lisp
index
e825565
..
1f3c090
100644
(file)
--- a/
src/compiler/ppc/subprim.lisp
+++ b/
src/compiler/ppc/subprim.lisp
@@
-22,7
+22,7
@@
(:generator 50
(let ((done (gen-label))
(loop (gen-label))
(:generator 50
(let ((done (gen-label))
(loop (gen-label))
- (not-list (generate-cerror-code vop object-not-list-error object)))
+ (not-list (gen-label)))
(move ptr object)
(move count zero-tn)
(move ptr object)
(move count zero-tn)
@@
-37,7
+37,8
@@
(inst addi count count (fixnumize 1))
(test-type ptr loop nil (list-pointer-lowtag) :temp temp)
(inst addi count count (fixnumize 1))
(test-type ptr loop nil (list-pointer-lowtag) :temp temp)
- (cerror-call vop done object-not-list-error ptr)
+ (emit-label not-list)
+ (error-call vop 'object-not-list-error ptr)
(emit-label done)
(move result count))))
(emit-label done)
(move result count))))