projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.27.11: swap ocfp and return-pc slots in x86oid call frames
[sbcl.git]
/
src
/
compiler
/
x86
/
insts.lisp
diff --git
a/src/compiler/x86/insts.lisp
b/src/compiler/x86/insts.lisp
index
39a7d09
..
794c90d
100644
(file)
--- a/
src/compiler/x86/insts.lisp
+++ b/
src/compiler/x86/insts.lisp
@@
-1796,7
+1796,7
@@
y))
((sc-is x control-stack)
(inst test (make-ea :byte :base ebp-tn
y))
((sc-is x control-stack)
(inst test (make-ea :byte :base ebp-tn
- :disp (- (* (1+ offset) n-word-bytes)))
+ :disp (frame-byte-offset offset))
y))
(t
(inst test x y)))))
y))
(t
(inst test x y)))))
@@
-2078,7
+2078,7
@@
(:printer byte ((op #b11000010) (imm nil :type 'imm-word-16))
'(:name :tab imm))
(:emitter
(:printer byte ((op #b11000010) (imm nil :type 'imm-word-16))
'(:name :tab imm))
(:emitter
- (cond (stack-delta
+ (cond ((and stack-delta (not (zerop stack-delta)))
(emit-byte segment #b11000010)
(emit-word segment stack-delta))
(t
(emit-byte segment #b11000010)
(emit-word segment stack-delta))
(t