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
/
arith.lisp
diff --git
a/src/compiler/x86/arith.lisp
b/src/compiler/x86/arith.lisp
index
970b369
..
4731c26
100644
(file)
--- a/
src/compiler/x86/arith.lisp
+++ b/
src/compiler/x86/arith.lisp
@@
-436,7
+436,7
@@
(:vop-var vop)
(:save-p :compute-only)
(:generator 31
(:vop-var vop)
(:save-p :compute-only)
(:generator 31
- (let ((zero (generate-error-code vop division-by-zero-error x y)))
+ (let ((zero (generate-error-code vop 'division-by-zero-error x y)))
(if (sc-is y any-reg)
(inst test y y) ; smaller instruction
(inst cmp y 0))
(if (sc-is y any-reg)
(inst test y y) ; smaller instruction
(inst cmp y 0))
@@
-491,7
+491,7
@@
(:vop-var vop)
(:save-p :compute-only)
(:generator 33
(:vop-var vop)
(:save-p :compute-only)
(:generator 33
- (let ((zero (generate-error-code vop division-by-zero-error x y)))
+ (let ((zero (generate-error-code vop 'division-by-zero-error x y)))
(if (sc-is y unsigned-reg)
(inst test y y) ; smaller instruction
(inst cmp y 0))
(if (sc-is y unsigned-reg)
(inst test y y) ; smaller instruction
(inst cmp y 0))
@@
-542,7
+542,7
@@
(:vop-var vop)
(:save-p :compute-only)
(:generator 33
(:vop-var vop)
(:save-p :compute-only)
(:generator 33
- (let ((zero (generate-error-code vop division-by-zero-error x y)))
+ (let ((zero (generate-error-code vop 'division-by-zero-error x y)))
(if (sc-is y signed-reg)
(inst test y y) ; smaller instruction
(inst cmp y 0))
(if (sc-is y signed-reg)
(inst test y y) ; smaller instruction
(inst cmp y 0))