From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 14 Aug 1995 22:03:44 +0000 (+0000)
Subject: Preserved GR2 into GR13 around floatiing_point_util.
X-Git-Tag: 20090517-FFI~6038
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3b5771f7688f1501d7647a287ec33e90c5ef58b5;p=mit-scheme.git

Preserved GR2 into GR13 around floatiing_point_util.
---

diff --git a/v8/src/microcode/cmpauxmd/hppa.m4 b/v8/src/microcode/cmpauxmd/hppa.m4
index 8aac94fe1..168348c89 100644
--- a/v8/src/microcode/cmpauxmd/hppa.m4
+++ b/v8/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;	$Id: hppa.m4,v 1.37 1995/07/26 18:41:54 adams Exp $
+;;;	$Id: hppa.m4,v 1.38 1995/08/14 22:03:44 adams Exp $
 ;;;
 ;;;	Copyright (c) 1989-1995 Massachusetts Institute of Technology
 ;;;
@@ -1815,9 +1815,11 @@ define(define_floating_point_util,
 	COPY	22,17				; preserve regs
 	COPY	21,16
 	COPY	19,15
+	COPY    2,14
         .CALL   ARGW0=FR,ARGW1=FU,RTNVAL=FU     ;fpin=105;fpout=104;
 	BL	$2,2
-	COPY	31,14
+	COPY	31,13
+	COPY    14,2
 	COPY	15,19
 	COPY	16,21
 	; LDW	REGBLOCK_VAL(0,rs_regblock),rs_val	; restore val REMOVED by JSM