projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.4.21:
[sbcl.git]
/
src
/
compiler
/
x86
/
values.lisp
diff --git
a/src/compiler/x86/values.lisp
b/src/compiler/x86/values.lisp
index
d4f4e00
..
55cbe21
100644
(file)
--- a/
src/compiler/x86/values.lisp
+++ b/
src/compiler/x86/values.lisp
@@
-63,7
+63,7
@@
(inst and al-tn lowtag-mask)
(inst cmp al-tn list-pointer-lowtag)
(inst jmp :e loop)
(inst and al-tn lowtag-mask)
(inst cmp al-tn list-pointer-lowtag)
(inst jmp :e loop)
- (error-call vop bogus-argument-to-values-list-error list)
+ (error-call vop bogus-arg-to-values-list-error list)
DONE
(inst mov count start) ; start is high address
DONE
(inst mov count start) ; start is high address
@@
-95,9
+95,10
@@
(move count num))
(t
(inst lea src (make-ea :dword :base context
(move count num))
(t
(inst lea src (make-ea :dword :base context
- :disp (- (* (tn-value skip) word-bytes))))
+ :disp (- (* (tn-value skip)
+ n-word-bytes))))
(move count num)
(move count num)
- (inst sub count (* (tn-value skip) word-bytes)))))
+ (inst sub count (* (tn-value skip) n-word-bytes)))))
(any-reg
(move src context)
(any-reg
(move src context)