projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.0.78.vector-nil-string.3:
[sbcl.git]
/
src
/
compiler
/
x86
/
values.lisp
diff --git
a/src/compiler/x86/values.lisp
b/src/compiler/x86/values.lisp
index
0677168
..
55cbe21
100644
(file)
--- a/
src/compiler/x86/values.lisp
+++ b/
src/compiler/x86/values.lisp
@@
-11,9
+11,6
@@
(in-package "SB!VM")
(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(define-vop (reset-stack-pointer)
(:args (ptr :scs (any-reg)))
(:generator 1
(define-vop (reset-stack-pointer)
(:args (ptr :scs (any-reg)))
(:generator 1
@@
-55,18
+52,18
@@
(:generator 0
(move list arg)
(move start esp-tn) ; WARN pointing 1 below
(:generator 0
(move list arg)
(move start esp-tn) ; WARN pointing 1 below
- (inst mov nil-temp *nil-value*)
+ (inst mov nil-temp nil-value)
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
@@
-98,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)