From c25f2772064ddd78f3460e4d0d04dee123061490 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 15 Dec 1990 19:08:12 +0000
Subject: [PATCH] When in generic--, subtract instead of add.

---
 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 50a2d852e..74d8c4f97 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)
-- 
GitLab