projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.8.16: really increment the fasl version
[sbcl.git]
/
src
/
compiler
/
x86-64
/
arith.lisp
diff --git
a/src/compiler/x86-64/arith.lisp
b/src/compiler/x86-64/arith.lisp
index
37cc2a2
..
3e55ac2
100644
(file)
--- a/
src/compiler/x86-64/arith.lisp
+++ b/
src/compiler/x86-64/arith.lisp
@@
-1238,7
+1238,7
@@
(sc-is r signed-stack))
(location= x r)))))
(:info y)
(sc-is r signed-stack))
(location= x r)))))
(:info y)
- (:arg-types untagged-num (:constant (or (unsigned-byte 64) (signed-byte 64))))
+ (:arg-types untagged-num (:constant (or (unsigned-byte 31) (signed-byte 32))))
(:results (r :scs (unsigned-reg signed-reg) :from (:argument 0)
:load-if (not (and (or (sc-is x unsigned-stack)
(sc-is x signed-stack))
(:results (r :scs (unsigned-reg signed-reg) :from (:argument 0)
:load-if (not (and (or (sc-is x unsigned-stack)
(sc-is x signed-stack))
@@
-1413,7
+1413,9
@@
(define-full-reffer bignum-ref * bignum-digits-offset other-pointer-lowtag
(unsigned-reg) unsigned-num sb!bignum:%bignum-ref)
(define-full-reffer bignum-ref * bignum-digits-offset other-pointer-lowtag
(unsigned-reg) unsigned-num sb!bignum:%bignum-ref)
-
+(define-full-reffer+offset bignum--ref-with-offset * bignum-digits-offset
+ other-pointer-lowtag (unsigned-reg) unsigned-num
+ sb!bignum:%bignum-ref-with-offset)
(define-full-setter bignum-set * bignum-digits-offset other-pointer-lowtag
(unsigned-reg) unsigned-num sb!bignum:%bignum-set)
(define-full-setter bignum-set * bignum-digits-offset other-pointer-lowtag
(unsigned-reg) unsigned-num sb!bignum:%bignum-set)