diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index 07947a9d455d2b1381f232a185e90b3764ab469d..d43b43164a56ad50c7040c2d05486147dace20e9 100644 --- a/compiler/mips/arith.lisp +++ b/compiler/mips/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.23 1990/06/04 05:18:03 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/arith.lisp,v 1.24 1990/06/12 02:29:53 wlott Exp $ ;;; ;;; This file contains the VM definition arithmetic VOPs for the MIPS. ;;; @@ -709,9 +709,11 @@ (inst or a temp) (inst sll b 1) (inst sltu temp a c) + (inst sll result 1) + (inst or result temp) (maybe-subtract))) - (inst nor quo result) - (move rem a))) + (move rem a) + (inst nor quo result zero-tn))) (define-vop (signify-digit) (:translate bignum::%fixnum-digit-with-correct-sign)