projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.18.7: just one POWER-OF-TWO-CEILING, thank you
[sbcl.git]
/
src
/
compiler
/
x86
/
pred.lisp
diff --git
a/src/compiler/x86/pred.lisp
b/src/compiler/x86/pred.lisp
index
a720559
..
e83f65f
100644
(file)
--- a/
src/compiler/x86/pred.lisp
+++ b/
src/compiler/x86/pred.lisp
@@
-42,8
+42,8
@@
(y-val (encode-value-if-immediate y)))
(cond
;; Shorter instruction sequences for these two cases.
(y-val (encode-value-if-immediate y)))
(cond
;; Shorter instruction sequences for these two cases.
- ((eql 0 y-val) (inst test x x))
- ((eql 0 x-val) (inst test y y))
+ ((and (eql 0 y-val) (sc-is x any-reg descriptor-reg)) (inst test x x))
+ ((and (eql 0 x-val) (sc-is y any-reg descriptor-reg)) (inst test y y))
;; An encoded value (literal integer) has to be the second argument.
((sc-is x immediate) (inst cmp y x-val))
;; An encoded value (literal integer) has to be the second argument.
((sc-is x immediate) (inst cmp y x-val))