From 05efdc1e01eecdb641125f98be9c6db4b6d1ac1a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 23 Nov 1990 15:23:44 +0000
Subject: [PATCH] Oops, forgot the (:save-p t) vop option.

---
 assembly/mips/arith.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/assembly/mips/arith.lisp b/assembly/mips/arith.lisp
index c2844e0b1..8ae5d79c7 100644
--- a/assembly/mips/arith.lisp
+++ b/assembly/mips/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.6 1990/11/23 09:23:39 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/arith.lisp,v 1.7 1990/11/23 15:23:44 wlott Exp $
 ;;;
 ;;; Stuff to handle simple cases for generic arithmetic.
 ;;;
@@ -177,7 +177,7 @@
 				  (:return-style :full-call)
 				  (:policy :safe)
 				  (:translate ,translate)
-				  (:return-style :full-call))
+				  (:save-p t))
 				 ((:arg x (descriptor-reg any-reg) a0-offset)
 				  (:arg y (descriptor-reg any-reg) a1-offset)
 				  
@@ -221,7 +221,7 @@
 			  (:return-style :full-call)
 			  (:policy :safe)
 			  (:translate eql)
-			  (:return-style :full-call))
+			  (:save-p t))
 			 ((:arg x (descriptor-reg any-reg) a0-offset)
 			  (:arg y (descriptor-reg any-reg) a1-offset)
 			  
@@ -262,7 +262,7 @@
 			  (:return-style :full-call)
 			  (:policy :safe)
 			  (:translate =)
-			  (:return-style :full-call))
+			  (:save-p t))
 			 ((:arg x (descriptor-reg any-reg) a0-offset)
 			  (:arg y (descriptor-reg any-reg) a1-offset)
 			  
@@ -302,7 +302,7 @@
 			  (:return-style :full-call)
 			  (:policy :safe)
 			  (:translate /=)
-			  (:return-style :full-call))
+			  (:save-p t))
 			 ((:arg x (descriptor-reg any-reg) a0-offset)
 			  (:arg y (descriptor-reg any-reg) a1-offset)
 			  
-- 
GitLab