projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
non-consing NANOSLEEP
[sbcl.git]
/
src
/
compiler
/
sparc
/
type-vops.lisp
diff --git
a/src/compiler/sparc/type-vops.lisp
b/src/compiler/sparc/type-vops.lisp
index
960ce71
..
9c6fdb8
100644
(file)
--- a/
src/compiler/sparc/type-vops.lisp
+++ b/
src/compiler/sparc/type-vops.lisp
@@
-183,7
+183,7
@@
(if not-p
(values not-target target)
(values target not-target))
(if not-p
(values not-target target)
(values target not-target))
- (inst andcc zero-tn value #x3)
+ (inst andcc zero-tn value fixnum-tag-mask)
(inst b :eq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
(inst b :eq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
@@
-197,7
+197,7
@@
(:generator 45
(let ((nope (generate-error-code vop object-not-signed-byte-32-error value))
(yep (gen-label)))
(:generator 45
(let ((nope (generate-error-code vop object-not-signed-byte-32-error value))
(yep (gen-label)))
- (inst andcc temp value #x3)
+ (inst andcc temp value fixnum-tag-mask)
(inst b :eq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
(inst b :eq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
@@
-225,7
+225,7
@@
(values not-target target)
(values target not-target))
;; Is it a fixnum?
(values not-target target)
(values target not-target))
;; Is it a fixnum?
- (inst andcc temp value #x3)
+ (inst andcc temp value fixnum-tag-mask)
(inst b :eq fixnum)
(inst cmp value)
(inst b :eq fixnum)
(inst cmp value)
@@
-270,7
+270,7
@@
(fixnum (gen-label))
(single-word (gen-label)))
;; Is it a fixnum?
(fixnum (gen-label))
(single-word (gen-label)))
;; Is it a fixnum?
- (inst andcc temp value #x3)
+ (inst andcc temp value fixnum-tag-mask)
(inst b :eq fixnum)
(inst cmp value)
(inst b :eq fixnum)
(inst cmp value)