From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 15 Aug 1995 00:16:00 +0000 (+0000)
Subject: For some reason the val register was not being preserved (by storing
X-Git-Tag: 20090517-FFI~6036
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b107c009d2a66eefbbb1ec2e18813b6792363d1;p=mit-scheme.git

For some reason the val register was not being preserved (by storing
it in the regblock) accross floating point utilities.
---

diff --git a/v8/src/microcode/cmpauxmd/hppa.m4 b/v8/src/microcode/cmpauxmd/hppa.m4
index 168348c89..9422ebd88 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.38 1995/08/14 22:03:44 adams Exp $
+;;;	$Id: hppa.m4,v 1.39 1995/08/15 00:16:00 adams Exp $
 ;;;
 ;;;	Copyright (c) 1989-1995 Massachusetts Institute of Technology
 ;;;
@@ -1811,18 +1811,16 @@ floating_vector_cons
 define(define_floating_point_util,
 "flonum_$1
 	COPY	22,17				; preserve regs
-	; STW	2,REGBLOCK_VAL(0,rs_regblock)	; preserve val REMOVED by JSM
+	STW	2,REGBLOCK_VAL(0,rs_regblock)	; preserve val
 	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,13
-	COPY    14,2
+	COPY	31,14
 	COPY	15,19
 	COPY	16,21
-	; LDW	REGBLOCK_VAL(0,rs_regblock),rs_val	; restore val REMOVED by JSM
+	LDW	REGBLOCK_VAL(0,rs_regblock),rs_val	; restore val
 	COPY	17,22
 	BE	0(5,14)
 	LDW	REGBLOCK_MEMTOP(0,rs_regblock),rs_memtop")
@@ -1841,7 +1839,7 @@ define_floating_point_util(floor,floor)
 
 flonum_atan2
 	COPY	22,17				; preserve regs
-	; STW	2,REGBLOCK_VAL(0,rs_regblock)	; preserve val REMOVED by JSM
+	STW	2,REGBLOCK_VAL(0,rs_regblock)	; preserve val
 	COPY	21,16
 	COPY	19,15
         .CALL   ARGW0=FR,ARGW1=FU,ARGW2=FR,ARGW3=FU,RTNVAL=FU   ;fpin=105,107;fpout=104;
@@ -1849,7 +1847,7 @@ flonum_atan2
 	COPY	31,14
 	COPY	15,19
 	COPY	16,21
-	; LDW	REGBLOCK_VAL(0,rs_regblock),rs_val	; restore val REMOVED by JSM
+	LDW	REGBLOCK_VAL(0,rs_regblock),rs_val	; restore val
 	COPY	17,22
 	BE	0(5,14)
 	LDW	REGBLOCK_MEMTOP(0,rs_regblock),rs_memtop