From: ssmith <ssmith>
Date: Thu, 12 Jan 1995 22:39:50 +0000 (+0000)
Subject: Fixed bug: editted target-register so that it always calls allocate-alias-
X-Git-Tag: 20090517-FFI~6747
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=497f0d4032d0b03d9851a03e69badbc1c821af75;p=mit-scheme.git

Fixed bug: editted target-register so that it always calls allocate-alias-
register.  If it is not called, then any assigns to machine registers will
not "lock" the register.  This was a problem when the procedure would assign
the return value and then use the same register to compute where to go next.
---

diff --git a/v8/src/compiler/machines/i386/lapgen.scm b/v8/src/compiler/machines/i386/lapgen.scm
index 0cc4fa22c..7eff85c42 100644
--- a/v8/src/compiler/machines/i386/lapgen.scm
+++ b/v8/src/compiler/machines/i386/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgen.scm,v 1.3 1995/01/11 21:09:46 ssmith Exp $
+$Id: lapgen.scm,v 1.4 1995/01/12 22:39:50 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -309,7 +309,7 @@ MIT in each case. |#
 
 (define (target-register target)
   (delete-dead-registers!)
-  (or (register-alias target 'GENERAL)
+  (or ;(register-alias target 'GENERAL)
       (allocate-alias-register! target 'GENERAL)))  
 
 (define-integrable (target-register-reference target)