projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.32.29: Add build flag :sb-xref-for-internals.
[sbcl.git]
/
src
/
compiler
/
mips
/
values.lisp
diff --git
a/src/compiler/mips/values.lisp
b/src/compiler/mips/values.lisp
index
e86882f
..
a04921b
100644
(file)
--- a/
src/compiler/mips/values.lisp
+++ b/
src/compiler/mips/values.lisp
@@
-48,9
+48,8
@@
(:generator 1
(move src last-preserved-ptr)
(move dest last-nipped-ptr)
(:generator 1
(move src last-preserved-ptr)
(move dest last-nipped-ptr)
- (move temp zero-tn)
(inst sltu temp src csp-tn)
(inst sltu temp src csp-tn)
- (inst beq temp zero-tn DONE)
+ (inst beq temp DONE)
(inst nop) ; not strictly necessary
LOOP
(loadw temp src)
(inst nop) ; not strictly necessary
LOOP
(loadw temp src)
@@
-58,7
+57,7
@@
(inst add src src n-word-bytes)
(storew temp dest -1)
(inst sltu temp src csp-tn)
(inst add src src n-word-bytes)
(storew temp dest -1)
(inst sltu temp src csp-tn)
- (inst bne temp zero-tn LOOP)
+ (inst bne temp LOOP)
(inst nop)
DONE
(move csp-tn dest)
(inst nop)
DONE
(move csp-tn dest)
@@
-134,7
+133,7
@@
(storew temp csp-tn -1)
(inst and ndescr list lowtag-mask)
(inst xor ndescr list-pointer-lowtag)
(storew temp csp-tn -1)
(inst and ndescr list lowtag-mask)
(inst xor ndescr list-pointer-lowtag)
- (inst beq ndescr zero-tn loop)
+ (inst beq ndescr loop)
(inst nop)
(error-call vop bogus-arg-to-values-list-error list)
(inst nop)
(error-call vop bogus-arg-to-values-list-error list)
@@
-162,14
+161,14
@@
(any-reg
(inst addu src context skip)))
(move count num)
(any-reg
(inst addu src context skip)))
(move count num)
- (inst beq num zero-tn done)
+ (inst beq num done)
(move start csp-tn t)
(move dst csp-tn)
(inst addu csp-tn count)
LOOP
(inst lw temp src)
(move start csp-tn t)
(move dst csp-tn)
(inst addu csp-tn count)
LOOP
(inst lw temp src)
- (inst addu src 4)
- (inst addu dst 4)
+ (inst addu src n-word-bytes)
+ (inst addu dst n-word-bytes)
(inst bne dst csp-tn loop)
(inst bne dst csp-tn loop)
- (inst sw temp dst -4)
+ (inst sw temp dst (- n-word-bytes))
DONE))
DONE))