From 1dd452732b7f4da4ca445977fa93d9c14ea48a9b Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Wed, 30 Nov 2011 23:54:22 -0500 Subject: [PATCH] turning off inlining: bug --- js-assembler/assemble.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/js-assembler/assemble.rkt b/js-assembler/assemble.rkt index 063dced..6f208fb 100644 --- a/js-assembler/assemble.rkt +++ b/js-assembler/assemble.rkt @@ -110,12 +110,13 @@ EOF (define next-to-visit (first queue)) (cond [(set-contains? visited next-to-visit) - (unless (set-contains? entry-points next-to-visit) + #;(unless (set-contains? entry-points next-to-visit) (log-debug (format "Promoting ~a to an entry point" next-to-visit)) (set-insert! entry-points next-to-visit)) (loop (rest queue))] [else (set-insert! visited next-to-visit) + (set-insert! entry-points next-to-visit) (loop (list-union (basic-block-out-edges (hash-ref blockht next-to-visit)) (rest queue)))])]))