From f7ad053de8b5fa5a538258f1ee7374e22ce63104 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Sat, 30 Apr 1994 17:18:43 +0000 Subject: [PATCH] Fixed emit-compute-inst. It was sign extending a value to 2 bits instead of 32. --- compiler/alpha/insts.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/alpha/insts.lisp b/compiler/alpha/insts.lisp index 61a0e0394..b300abb63 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)) -- GitLab