suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

turning off inlining: bug

Browse Source
This commit is contained in:
Danny Yoo 2011-11-30 23:54:22 -05:00
parent af51e91ca2
commit 1dd452732b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
js-assembler/assemble.rkt
View File

@ -110,12 +110,13 @@ EOF
(define next-to-visit (first queue)) (define next-to-visit (first queue))
(cond (cond
[(set-contains? visited next-to-visit) [(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)) (log-debug (format "Promoting ~a to an entry point" next-to-visit))
(set-insert! entry-points next-to-visit)) (set-insert! entry-points next-to-visit))
(loop (rest queue))] (loop (rest queue))]
[else [else
(set-insert! visited next-to-visit) (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)) (loop (list-union (basic-block-out-edges (hash-ref blockht next-to-visit))
(rest queue)))])])) (rest queue)))])]))