diff --git a/compiler/alpha/insts.lisp b/compiler/alpha/insts.lisp index 61a0e0394ef981970b42d63c5303a1d85970f2bc..b300abb63409439d5a931ec0e5624749bd5020d2 100644 --- a/compiler/alpha/insts.lisp +++ b/compiler/alpha/insts.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/insts.lisp,v 1.1 1994/04/06 16:54:42 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/insts.lisp,v 1.2 1994/04/30 17:18:43 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -551,7 +551,7 @@ (if (logbitp (1- n) x) (logior (ash -1 (1- n)) x) x)))) - (let* ((value (se (funcall calc label posn 0) 2)) + (let* ((value (se (funcall calc label posn 0) 32)) (low (ldb (byte 16 0) value)) (tmp1 (- value (se low 16))) (high (ldb (byte 16 16) tmp1))