diff --git a/assembly/sparc/arith.lisp b/assembly/sparc/arith.lisp index 94d4214c1863cbd724681e8a06d72207c7ff366c..6ad697f9cf617e87f2420b847d9f8468ca8e5731 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.