projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
handle non-standard slot allocations when updating classes
[sbcl.git]
/
src
/
compiler
/
sparc
/
arith.lisp
diff --git
a/src/compiler/sparc/arith.lisp
b/src/compiler/sparc/arith.lisp
index
de8d3e6
..
cc3d6b0
100644
(file)
--- a/
src/compiler/sparc/arith.lisp
+++ b/
src/compiler/sparc/arith.lisp
@@
-1040,7
+1040,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 (div-high :scs (unsigned-reg) :target rem)
(div-low :scs (unsigned-reg) :target quo)
(:policy :fast-safe)
(:args (div-high :scs (unsigned-reg) :target rem)
(div-low :scs (unsigned-reg) :target quo)
@@
-1064,7
+1064,7
@@
(inst not quo)))
(define-vop (bignum-floor-v8)
(inst not quo)))
(define-vop (bignum-floor-v8)
- (:translate sb!bignum:%floor)
+ (:translate sb!bignum:%bigfloor)
(:policy :fast-safe)
(:args (div-high :scs (unsigned-reg) :target rem)
(div-low :scs (unsigned-reg) :target quo)
(:policy :fast-safe)
(:args (div-high :scs (unsigned-reg) :target rem)
(div-low :scs (unsigned-reg) :target quo)
@@
-1093,7
+1093,7
@@
(move quo q))))
(define-vop (bignum-floor-v9)
(move quo q))))
(define-vop (bignum-floor-v9)
- (:translate sb!bignum:%floor)
+ (:translate sb!bignum:%bigfloor)
(:policy :fast-safe)
(:args (div-high :scs (unsigned-reg))
(div-low :scs (unsigned-reg))
(:policy :fast-safe)
(:args (div-high :scs (unsigned-reg))
(div-low :scs (unsigned-reg))