X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fsystem.lisp;h=c79d1173981af55451a0435d208dcd50e3ce55fa;hb=c553e4be6da2d18f0827f190589c88e837b8b8a6;hp=5a9945acc82e53c4ec2578cf9a262df0cc30fe41;hpb=4cb16425e2ffce3f70ad6ca10f0cde4f1545fa9d;p=sbcl.git diff --git a/src/compiler/alpha/system.lisp b/src/compiler/alpha/system.lisp index 5a9945a..c79d117 100644 --- a/src/compiler/alpha/system.lisp +++ b/src/compiler/alpha/system.lisp @@ -116,7 +116,7 @@ (inst and t1 widetag-mask t1) (sc-case data (any-reg - (inst sll data (- n-widetag-bits 2) t2) + (inst sll data (- n-widetag-bits n-fixnum-tag-bits) t2) (inst bis t1 t2 t1)) (immediate (let ((c (ash (tn-value data) n-widetag-bits)))