For suffix merging, the CONSTANTs in a PROFILE-DATA can be merely

EQUAL? (rather than EQV?).

diff --git a/v8/src/compiler/rtlopt/rtlcsm.scm b/v8/src/compiler/rtlopt/rtlcsm.scm
index f26be8752298544959d7fae636e5e14a82d6c754..02bef53d418f37b6c28ba276b0be33fb0d2d3db2 100644 (file)
--- a/v8/src/compiler/rtlopt/rtlcsm.scm
+++ b/v8/src/compiler/rtlopt/rtlcsm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlcsm.scm,v 1.1 1994/11/19 02:06:38 adams Exp $
+$Id: rtlcsm.scm,v 1.2 1994/11/26 19:02:23 adams Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -273,6 +273,13 @@ MIT in each case. |#
                   (lambda ()
                     (rtl:set-invocation-continuation! x false)
                     (rtl:set-invocation-continuation! y false)))))
+       ((and (rtl:profile-data? x)
+             (rtl:profile-data? y))
+        ;; We test profile data here because the constants do not have to be
+        ;; EQV?
+        (if (equal? (rtl:profile-data-data x) (rtl:profile-data-data y))
+            (values e false)
+            (values 'FAILURE false)))
        (else
         (values (match x y e) false))))