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