projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.41.35: ppc: Implement compare-and-swap-vops.
[sbcl.git]
/
src
/
compiler
/
ppc
/
type-vops.lisp
diff --git
a/src/compiler/ppc/type-vops.lisp
b/src/compiler/ppc/type-vops.lisp
index
4e46b6d
..
712d4de
100644
(file)
--- a/
src/compiler/ppc/type-vops.lisp
+++ b/
src/compiler/ppc/type-vops.lisp
@@
-164,7
+164,7
@@
(if not-p
(values not-target target)
(values target not-target))
(if not-p
(values not-target target)
(values target not-target))
- (inst andi. temp value #x3)
+ (inst andi. temp value fixnum-tag-mask)
(inst beq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
(inst beq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
@@
-177,7
+177,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 andi. temp value #x3)
+ (inst andi. temp value fixnum-tag-mask)
(inst beq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
(inst beq yep)
(test-type value nope t (other-pointer-lowtag) :temp temp)
(loadw temp value 0 other-pointer-lowtag)
@@
-203,7
+203,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 andi. temp value #x3)
+ (inst andi. temp value fixnum-tag-mask)
(inst cmpwi :cr1 value 0)
(inst beq fixnum)
(inst cmpwi :cr1 value 0)
(inst beq fixnum)
@@
-244,7
+244,7
@@
(fixnum (gen-label))
(single-word (gen-label)))
;; Is it a fixnum?
(fixnum (gen-label))
(single-word (gen-label)))
;; Is it a fixnum?
- (inst andi. temp value #x3)
+ (inst andi. temp value fixnum-tag-mask)
(inst cmpwi :cr1 value 0)
(inst beq fixnum)
(inst cmpwi :cr1 value 0)
(inst beq fixnum)