From f7ef36afb6b441bd9737a01927dbc160c309c643 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 16 Dec 1994 20:18:34 +0000
Subject: [PATCH] Changed the rtl parser to hash on symbol names rather than
symbol addresses so that the order of basic blocks in the final code is
deterministic.
---
v8/src/compiler/rtlbase/rtlpars.scm | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/v8/src/compiler/rtlbase/rtlpars.scm b/v8/src/compiler/rtlbase/rtlpars.scm
index f9e110b33..2796bbd6e 100644
--- a/v8/src/compiler/rtlbase/rtlpars.scm
+++ b/v8/src/compiler/rtlbase/rtlpars.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: rtlpars.scm,v 1.2 1994/11/26 19:20:28 adams Exp $
+$Id: rtlpars.scm,v 1.3 1994/12/16 20:18:34 adams Exp $
Copyright (c) 1994 Massachusetts Institute of Technology
@@ -309,12 +309,18 @@ MIT in each case. |#
))
*expressions*)))))
+(define make-labels->segments
+ (let ((symbol-hash-mod
+ (lambda (symbol modulus)
+ (string-hash-mod (symbol-name symbol) modulus))))
+ (strong-hash-table/constructor symbol-hash-mod eq?)))
+
(define (parse-rtl rtl-program)
(cond ((null? rtl-program)
(internal-error "Empty program"))
((not (memq (caar rtl-program) label-like-statements))
(internal-error "Program does not start with label" rtl-program)))
- (let ((labels->segments (make-eq-hash-table)))
+ (let ((labels->segments (make-labels->segments)))
(define (found-one label stmts)
(hash-table/put! labels->segments
--
2.25.1