X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Finsts.lisp;fp=src%2Fcompiler%2Falpha%2Finsts.lisp;h=277d010b07c9e78606102d8f87ba601f3aae3e27;hb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;hp=4f6ef0fd544a0347be6e3ce8dc1aecead2f71f25;hpb=feae2afb12449b318f83c0de6f4c53e5f28657c2;p=sbcl.git

diff --git a/src/compiler/alpha/insts.lisp b/src/compiler/alpha/insts.lisp
index 4f6ef0f..277d010 100644
--- a/src/compiler/alpha/insts.lisp
+++ b/src/compiler/alpha/insts.lisp
@@ -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))