projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.4.11:
[sbcl.git]
/
src
/
compiler
/
x86
/
values.lisp
diff --git
a/src/compiler/x86/values.lisp
b/src/compiler/x86/values.lisp
index
6c68c32
..
55cbe21
100644
(file)
--- a/
src/compiler/x86/values.lisp
+++ b/
src/compiler/x86/values.lisp
@@
-57,13
+57,13
@@
LOOP
(inst cmp list nil-temp)
(inst jmp :e done)
LOOP
(inst cmp list nil-temp)
(inst jmp :e done)
- (pushw list cons-car-slot list-pointer-type)
- (loadw list list cons-cdr-slot list-pointer-type)
+ (pushw list cons-car-slot list-pointer-lowtag)
+ (loadw list list cons-cdr-slot list-pointer-lowtag)
(inst mov eax list)
(inst and al-tn lowtag-mask)
(inst mov eax list)
(inst and al-tn lowtag-mask)
- (inst cmp al-tn list-pointer-type)
+ (inst cmp al-tn list-pointer-lowtag)
(inst jmp :e loop)
(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)