Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv10150/src/compiler/x86
Modified Files:
insts.lisp
Log Message:
0.9.13.11:
Merge "Patch: A code size microoptimization for x86-64 and x86
(EMIT-EA)" from Lutz Euler, sbcl-devel, 2006-28-05.
Index: insts.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/insts.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- insts.lisp 15 Mar 2006 04:59:31 -0000 1.36
+++ insts.lisp 31 May 2006 02:26:34 -0000 1.37
@@ -729,7 +729,7 @@
(stack
;; Convert stack tns into an index off of EBP.
(let ((disp (- (* (1+ (tn-offset thing)) n-word-bytes))))
- (cond ((< -128 disp 127)
+ (cond ((<= -128 disp 127)
(emit-mod-reg-r/m-byte segment #b01 reg #b101)
(emit-byte segment disp))
(t
|