From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 14 Aug 1995 21:54:09 +0000 (+0000)
Subject: Preserve g2 around special calls.
X-Git-Tag: 20090517-FFI~6039
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b0565a573677ea13bf82b6c8d5a1d845f48e746;p=mit-scheme.git

Preserve g2 around special calls.
---

diff --git a/v8/src/compiler/machines/spectrum/rulflo.scm b/v8/src/compiler/machines/spectrum/rulflo.scm
index fe32abaa9..c42f4c80d 100644
--- a/v8/src/compiler/machines/spectrum/rulflo.scm
+++ b/v8/src/compiler/machines/spectrum/rulflo.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rulflo.scm,v 1.2 1995/04/02 15:21:40 adams Exp $
+$Id: rulflo.scm,v 1.3 1995/08/14 21:54:09 adams Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -446,7 +446,7 @@ MIT in each case. |#
    fp4 fp5 fp6 fp7 fp8 fp9 fp10 fp11))
 
 (define registers-to-preserve-around-special-calls
-  (append (list g14 g15 g16 g17)
+  (append (list g2 g14 g15 g16 g17)
 	  caller-saves-registers))
 
 (define (flonum/1-arg/special hook target source)