0.pre7.110:

[sbcl.git] / src / compiler / alpha / insts.lisp

diff --git a/src/compiler/alpha/insts.lisp b/src/compiler/alpha/insts.lisp
index 098dfaa..f456c41 100644 (file)
--- a/src/compiler/alpha/insts.lisp
+++ b/src/compiler/alpha/insts.lisp
@@ -67,7 +67,7 @@
 
 (defparameter float-reg-symbols
   (coerce
-   (loop for n from 0 to 31 collect (make-symbol (format nil "~d" n)))
+   (loop for n from 0 to 31 collect (make-symbol (format nil "~D" n)))
    'vector))
 
 (sb!disassem:define-argument-type fp-reg
@@ -537,17 +537,17 @@
        (emit-lword segment
                  (logior type
                          (ash (+ posn (component-header-length))
-                              (- type-bits word-shift)))))))
+                              (- n-widetag-bits word-shift)))))))
 
 (define-instruction simple-fun-header-word (segment)
   (:cost 0)
   (:emitter
-   (emit-header-data segment simple-fun-header-type)))
+   (emit-header-data segment simple-fun-header-widetag)))
 
 (define-instruction lra-header-word (segment)
   (:cost 0)
   (:emitter
-   (emit-header-data segment return-pc-header-type)))
+   (emit-header-data segment return-pc-header-widetag)))
 
 (defun emit-compute-inst (segment vop dst src label temp calc)
   (declare (ignore temp))
@@ -592,7 +592,7 @@
   (:emitter
    (emit-compute-inst segment vop dst src label temp
                      #'(lambda (label posn delta-if-after)
-                         (- other-pointer-type
+                         (- other-pointer-lowtag
                             (label-position label posn delta-if-after)
                             (component-header-length))))))