projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Note removal of post-receive-email in NEWS
[sbcl.git]
/
src
/
compiler
/
mips
/
arith.lisp
diff --git
a/src/compiler/mips/arith.lisp
b/src/compiler/mips/arith.lisp
index
70649f5
..
f0cf8ac
100644
(file)
--- a/
src/compiler/mips/arith.lisp
+++ b/
src/compiler/mips/arith.lisp
@@
-859,7
+859,7
@@
(inst sra digit fixnum n-fixnum-tag-bits)))
(define-vop (bignum-floor)
(inst sra digit fixnum n-fixnum-tag-bits)))
(define-vop (bignum-floor)
- (:translate sb!bignum:%floor)
+ (:translate sb!bignum:%bigfloor)
(:policy :fast-safe)
(:args (num-high :scs (unsigned-reg) :target rem)
(num-low :scs (unsigned-reg) :target rem-low)
(:policy :fast-safe)
(:args (num-high :scs (unsigned-reg) :target rem)
(num-low :scs (unsigned-reg) :target rem-low)