projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.90:
[sbcl.git]
/
src
/
compiler
/
alpha
/
system.lisp
diff --git
a/src/compiler/alpha/system.lisp
b/src/compiler/alpha/system.lisp
index
fad8567
..
e87277a
100644
(file)
--- a/
src/compiler/alpha/system.lisp
+++ b/
src/compiler/alpha/system.lisp
@@
-13,8
+13,8
@@
\f
;;;; type frobbing VOPs
\f
;;;; type frobbing VOPs
-(define-vop (get-lowtag)
- (:translate get-lowtag)
+(define-vop (lowtag-of)
+ (:translate lowtag-of)
(:policy :fast-safe)
(:args (object :scs (any-reg descriptor-reg)))
(:results (result :scs (unsigned-reg)))
(:policy :fast-safe)
(:args (object :scs (any-reg descriptor-reg)))
(:results (result :scs (unsigned-reg)))
@@
-22,8
+22,8
@@
(:generator 1
(inst and object lowtag-mask result)))
(:generator 1
(inst and object lowtag-mask result)))
-(define-vop (get-type)
- (:translate get-type)
+(define-vop (widetag-of)
+ (:translate widetag-of)
(:policy :fast-safe)
(:args (object :scs (descriptor-reg)))
(:temporary (:scs (non-descriptor-reg)) ndescr)
(:policy :fast-safe)
(:args (object :scs (descriptor-reg)))
(:temporary (:scs (non-descriptor-reg)) ndescr)