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