Change cse-methods alist to a hash-table.

diff --git a/src/compiler/rtlopt/rcse1.scm b/src/compiler/rtlopt/rcse1.scm
index 7fea0ededd5d845b43feb580747a695e178276a7..28fe66d5ad52872d34fbe3ebbf680c1dc543f6f0 100644 (file)
--- a/src/compiler/rtlopt/rcse1.scm
+++ b/src/compiler/rtlopt/rcse1.scm
@@ -92,10 +92,10 @@ USA.
     (let ((rtl (rinst-rtl rinst)))
       ((if (eq? (rtl:expression-type rtl) 'ASSIGN)
           cse/assign
-          (let ((entry (assq (rtl:expression-type rtl) cse-methods)))
-            (if (not entry)
+          (let ((method (hash-table/get cse-methods (rtl:expression-type rtl) #f)))
+            (if (not method)
                 (error "Missing CSE method" (rtl:expression-type rtl)))
-            (cdr entry)))
+            method))
        rtl))
     (if (rinst-next rinst)
        (loop (rinst-next rinst))))
@@ -131,14 +131,11 @@ USA.
   (walk-bblock bblock))
 
 (define (define-cse-method type method)
-  (let ((entry (assq type cse-methods)))
-    (if entry
-       (set-cdr! entry method)
-       (set! cse-methods (cons (cons type method) cse-methods))))
+  (hash-table/put! cse-methods type method)
   type)
 
-(define cse-methods
-  '())
+(define cse-methods (make-strong-eq-hash-table))
+
 \f
 (define (cse/assign statement)
   (expression-replace! rtl:assign-expression rtl:set-assign-expression!