projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.58:
[sbcl.git]
/
src
/
compiler
/
alpha
/
move.lisp
diff --git
a/src/compiler/alpha/move.lisp
b/src/compiler/alpha/move.lisp
index
bd413a3
..
79e4bdb
100644
(file)
--- a/
src/compiler/alpha/move.lisp
+++ b/
src/compiler/alpha/move.lisp
@@
-23,7
+23,7
@@
(symbol
(load-symbol y val))
(character
(symbol
(load-symbol y val))
(character
- (inst li (logior (ash (char-code val) type-bits) base-char-type)
+ (inst li (logior (ash (char-code val) n-widetag-bits) base-char-widetag)
y)))))
(define-move-function (load-number 1) (vop x y)
y)))))
(define-move-function (load-number 1) (vop x y)
@@
-180,7
+180,7
@@
(inst beq temp done)
(loadw header x 0 other-pointer-lowtag)
(inst beq temp done)
(loadw header x 0 other-pointer-lowtag)
- (inst srl header (1+ type-bits) header)
+ (inst srl header (1+ n-widetag-bits) header)
(loadw y x bignum-digits-offset other-pointer-lowtag)
(inst beq header one)
(loadw y x bignum-digits-offset other-pointer-lowtag)
(inst beq header one)
@@
-232,8
+232,8
@@
(inst cmoveq temp 1 header)
(inst not temp temp)
(inst cmoveq temp 1 header)
(inst cmoveq temp 1 header)
(inst not temp temp)
(inst cmoveq temp 1 header)
- (inst sll header type-bits header)
- (inst bis header bignum-type header)
+ (inst sll header n-widetag-bits header)
+ (inst bis header bignum-widetag header)
(pseudo-atomic (:extra (pad-data-block (+ bignum-digits-offset 3)))
(inst bis alloc-tn other-pointer-lowtag y)
(pseudo-atomic (:extra (pad-data-block (+ bignum-digits-offset 3)))
(inst bis alloc-tn other-pointer-lowtag y)
@@
-266,8
+266,8
@@
(inst cmovge x 2 temp)
(inst srl x 31 temp1)
(inst cmoveq temp1 1 temp)
(inst cmovge x 2 temp)
(inst srl x 31 temp1)
(inst cmoveq temp1 1 temp)
- (inst sll temp type-bits temp)
- (inst bis temp bignum-type temp)
+ (inst sll temp n-widetag-bits temp)
+ (inst bis temp bignum-widetag temp)
(pseudo-atomic (:extra (pad-data-block (+ bignum-digits-offset 3)))
(inst bis alloc-tn other-pointer-lowtag y)
(pseudo-atomic (:extra (pad-data-block (+ bignum-digits-offset 3)))
(inst bis alloc-tn other-pointer-lowtag y)