projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.1.16:
[sbcl.git]
/
src
/
compiler
/
ppc
/
show.lisp
diff --git
a/src/compiler/ppc/show.lisp
b/src/compiler/ppc/show.lisp
index
526b1c2
..
429ea97
100644
(file)
--- a/
src/compiler/ppc/show.lisp
+++ b/
src/compiler/ppc/show.lisp
@@
-16,7
+16,7
@@
(:generator 100
(let ((cur-nfp (current-nfp-tn vop)))
(when cur-nfp
(:generator 100
(let ((cur-nfp (current-nfp-tn vop)))
(when cur-nfp
- (store-stack-tn nfp-save cur-nfp))
+ (store-stack-tn nfp-save cur-nfp))
(move nl0 object)
(inst lr temp (make-fixup "call_into_c" :foreign))
(inst mr lip temp)
(move nl0 object)
(inst lr temp (make-fixup "call_into_c" :foreign))
(inst mr lip temp)
@@
-24,5
+24,5
@@
(inst lr cfunc (make-fixup "debug_print" :foreign))
(inst bctrl)
(when cur-nfp
(inst lr cfunc (make-fixup "debug_print" :foreign))
(inst bctrl)
(when cur-nfp
- (load-stack-tn cur-nfp nfp-save))
+ (load-stack-tn cur-nfp nfp-save))
(move result nl0))))
(move result nl0))))