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 252a627a884d49c1db2f416ef23b59abfb6d1c05..c22a2c16fc9ff24dc57c2793a169073f3204bc7d 100644 (file)
--- 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)