Extended hashing to include reals rather than just (exact and inexact)

integers.  Enables flonums like PI to be subject to CSE.

diff --git a/v8/src/compiler/rtlopt/rcse2.scm b/v8/src/compiler/rtlopt/rcse2.scm
index 8b23ef7751490cd69f91425b08be98914808f5c3..2d7a34803b12c56e965980ba1436269666da9455 100644 (file)
--- a/v8/src/compiler/rtlopt/rcse2.scm
+++ b/v8/src/compiler/rtlopt/rcse2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rcse2.scm,v 1.1 1994/11/19 02:06:38 adams Exp $
+$Id: rcse2.scm,v 1.2 1996/07/24 03:09:30 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -145,7 +145,7 @@ MIT in each case. |#
     (define (continue expression)
       (rtl:reduce-subparts expression + 0 loop
        (lambda (object)
-         (cond ((integer? object) (inexact->exact object))
+         (cond ((real? object)   (round->exact object))
                ((symbol? object) (symbol-hash object))
                ((string? object) (string-hash object))
                (else (hash object))))))