diff --git a/assembly/sparc/arith.lisp b/assembly/sparc/arith.lisp index 50a2d852ea8b43248bc3145446561e8ed741350b..74d8c4f971a9fe4c9efd7b2fec3ae3c984437a39 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.6 1990/12/02 16:51:28 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/arith.lisp,v 1.7 1990/12/15 19:08:12 wlott Exp $ ;;; ;;; Stuff to handle simple cases for generic arithmetic. ;;; @@ -95,7 +95,7 @@ (inst sra temp x 2) (inst sra temp2 y 2) - (inst add temp2 temp) + (inst sub temp2 temp) (with-fixed-allocation (res temp vm:bignum-type (1+ bignum-digits-offset)) (storew temp2 res vm:bignum-digits-offset vm:other-pointer-type)) (lisp-return lra :offset 2)