From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Apr 1987 16:57:05 +0000 (+0000)
Subject: Allow constant combinations to have any temporary as a target.
X-Git-Tag: 20090517-FFI~13596
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5bf1d9e72d3e85b36d4433927231fb19ce4d84ae;p=mit-scheme.git

Allow constant combinations to have any temporary as a target.
---

diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm
index 420ef3104..1dbfb9f80 100644
--- a/v7/src/compiler/rtlgen/rgcomb.scm
+++ b/v7/src/compiler/rtlgen/rgcomb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.11 1987/04/21 14:23:43 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.12 1987/04/21 16:57:05 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -65,10 +65,10 @@ MIT in each case. |#
 (define (combination:constant combination offset rest-generator)
   (let ((value (combination-value combination))
 	(next (snode-next combination)))
-    (cond ((value-temporary? value)
+    (cond ((temporary? value)
 	   (generate-assignment (combination-block combination)
 				value
-				(combination-constant-value combination)
+				(vnode-known-value value)
 				next
 				offset
 				rest-generator