From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 19 May 1987 18:06:04 +0000 (+0000)
Subject: Change `add-pseudo-register-alias' so that it accepts an argument
X-Git-Tag: 20090517-FFI~13497
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6e7211e1e41bc8e006f5477b6af32af559cac15b;p=mit-scheme.git

Change `add-pseudo-register-alias' so that it accepts an argument
`saved-into-home?'.  This is used to initialize the map-entry slot of
the same name if the register has no other aliases.
---

diff --git a/v7/src/compiler/back/regmap.scm b/v7/src/compiler/back/regmap.scm
index e413bde2c..a088efdd2 100644
--- a/v7/src/compiler/back/regmap.scm
+++ b/v7/src/compiler/back/regmap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/regmap.scm,v 1.87 1987/03/19 00:50:25 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/regmap.scm,v 1.88 1987/05/19 18:06:04 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -204,9 +204,11 @@ REGISTER-RENUMBERs are equal.
 ;;; These constructors are responsible for maintaining consistency
 ;;; between the map entries and available registers.
 
-(define (register-map:add-home map home alias)
+(define (register-map:add-home map home alias saved-into-home?)
   (make-register-map (map-entries:add map
-				      (make-map-entry home true (list alias)))
+				      (make-map-entry home
+						      saved-into-home?
+						      (list alias)))
 		     (map-registers:delete map alias)))
 
 (define (register-map:add-alias map entry alias)
@@ -330,7 +332,7 @@ REGISTER-RENUMBERs are equal.
 			   alias)))
 		(allocator-values
 		 alias
-		 (register-map:add-home map home alias)
+		 (register-map:add-home map home alias true)
 		 (append! instructions
 			  (home->register-transfer home alias)))))))))
 
@@ -347,7 +349,7 @@ REGISTER-RENUMBERs are equal.
 				  ;; ENTRY because it has no aliases
 				  ;; of the appropriate TYPE.
 				  (register-map:add-alias map entry alias)
-				  (register-map:add-home map home alias))
+				  (register-map:add-home map home alias true))
 			      instructions))))))
 
 (define (use-existing-alias map entry type)
@@ -363,14 +365,14 @@ REGISTER-RENUMBERs are equal.
   (bind-allocator-values (make-free-register map type needed-registers)
     (lambda (alias map instructions)
       (allocator-values alias
-			(register-map:add-home map false alias)
+			(register-map:add-home map false alias true)
 			instructions))))
 
-(define-export (add-pseudo-register-alias map register alias)
+(define-export (add-pseudo-register-alias map register alias saved-into-home?)
   (let ((entry (map-entries:find-home map register)))
     (if entry
 	(register-map:add-alias map entry alias)
-	(register-map:add-home map register alias))))
+	(register-map:add-home map register alias saved-into-home?))))
 
 (define-export (machine-register-contents map register)
   (let ((entry (map-entries:find-alias map register)))