From 2d08e61eea4ed8c45e9ab469a76804a36dcb7965 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 30 Nov 1990 11:44:11 +0000 Subject: [PATCH] Oops, was flattening the result in a delay slot in multiply. --- assembly/sparc/arith.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/assembly/sparc/arith.lisp b/assembly/sparc/arith.lisp index 94d4214c1..6ad697f9c 100644 --- a/assembly/sparc/arith.lisp +++ b/assembly/sparc/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/arith.lisp,v 1.3 1990/11/30 10:16:07 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/arith.lisp,v 1.4 1990/11/30 11:44:11 wlott Exp $ ;;; ;;; Stuff to handle simple cases for generic arithmetic. ;;; @@ -166,8 +166,8 @@ (inst xorcc temp hi) (inst b :eq LOW-FITS-IN-FIXNUM) ;; Shift the double word hi:lo down two bits to get rid of the fixnum tag. - (inst srl lo 2) (inst sll temp hi 30) + (inst srl lo 2) (inst or lo temp) (inst sra hi 2) ;; Allocate a BIGNUM for the result. -- GitLab