From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 3 Jul 1993 08:34:51 +0000 (+0000)
Subject: Update a use of rtl:make-offset that I missed in the last set of
X-Git-Tag: 20090517-FFI~8217
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74d77bd1c88db1cb0c814d3ec597d4ba886dc795;p=mit-scheme.git

Update a use of rtl:make-offset that I missed in the last set of
edits.
---

diff --git a/v7/src/compiler/rtlopt/rcompr.scm b/v7/src/compiler/rtlopt/rcompr.scm
index 252a627a8..c22a2c16f 100644
--- a/v7/src/compiler/rtlopt/rcompr.scm
+++ b/v7/src/compiler/rtlopt/rcompr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rcompr.scm,v 1.13 1993/07/01 03:28:05 gjr Exp $
+$Id: rcompr.scm,v 1.14 1993/07/03 08:34:51 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -156,7 +156,8 @@ MIT in each case. |#
 		   (if (rinst-dead-register? next register)
 		       (values next
 			       (rtl:make-offset (rtl:offset-base expression)
-						offset))
+						(rtl:make-machine-constant
+						 offset)))
 		       (phi-1 next offset)))
 		 (phi-1 next
 			(rtl:machine-constant-value
@@ -172,7 +173,8 @@ MIT in each case. |#
 		     (values next expression)
 		     (loop (rinst-next next)))))
 	      ((or (rtl:offset? expression)
-		   (rtl:byte-offset? expression))
+		   (rtl:byte-offset? expression)
+		   (rtl:float-offset? expression))
 	       (search-stopping-at
 		expression
 		(lambda (rtl)