projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
apply recursive decomposition in DECOMPOSE-STRING
[sbcl.git]
/
src
/
compiler
/
hppa
/
arith.lisp
diff --git
a/src/compiler/hppa/arith.lisp
b/src/compiler/hppa/arith.lisp
index
4077c41
..
68177d5
100644
(file)
--- a/
src/compiler/hppa/arith.lisp
+++ b/
src/compiler/hppa/arith.lisp
@@
-863,7
+863,7
@@
(inst sra fixnum n-fixnum-tag-bits digit)))
(define-vop (bignum-floor)
(inst sra fixnum n-fixnum-tag-bits digit)))
(define-vop (bignum-floor)
- (:translate sb!bignum:%floor)
+ (:translate sb!bignum:%bigfloor)
(:policy :fast-safe)
(:args (hi :scs (unsigned-reg) :to (:argument 1))
(lo :scs (unsigned-reg) :to (:argument 0))
(:policy :fast-safe)
(:args (hi :scs (unsigned-reg) :to (:argument 1))
(lo :scs (unsigned-reg) :to (:argument 0))