projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.15.25: COMPILE-FILE-PATHNAME when output-file doesn't have a type
[sbcl.git]
/
src
/
compiler
/
ppc
/
call.lisp
diff --git
a/src/compiler/ppc/call.lisp
b/src/compiler/ppc/call.lisp
index
8468f3f
..
a67ea18
100644
(file)
--- a/
src/compiler/ppc/call.lisp
+++ b/
src/compiler/ppc/call.lisp
@@
-1043,11
+1043,9
@@
default-value-8
(emit-label loop)
;; *--dst = *--src, --count
(emit-label loop)
;; *--dst = *--src, --count
- (inst addi src src (- n-word-bytes))
+ (inst lwzu temp src (- n-word-bytes))
(inst addic. count count (- (fixnumize 1)))
(inst addic. count count (- (fixnumize 1)))
- (loadw temp src)
- (inst addi dst dst (- n-word-bytes))
- (storew temp dst)
+ (inst stwu temp dst (- n-word-bytes))
(inst bgt loop)
(emit-label do-regs)
(inst bgt loop)
(emit-label do-regs)