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

Report "bridgehead" inlinings as successes, even if further inlinings fail.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-09-13 13:12:57 -04:00
parent 28d4eb4d22
commit bb9f4e4634
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/typed-racket/optimizer/tool/mzc.rkt
View File

@ -220,12 +220,13 @@
;; in `g'. ;; in `g'.
(apply (apply
append append
(for/list ([site (in-list inlining-sites)] (for/list ([site (in-list inlining-sites)])
#:when ;; If at least one inlining of `f' in `g', ignore the rest.
;; If at least one inlining of `f' in `g', prune. (or (for/first ([evt (in-list site)] #:when (success? evt))
(not (for/or ([evt (in-list site)]) (list evt))
(success? evt)))) site)))))
site)))) (when (null? pruned-log)
(prune))
(define recommendation (define recommendation
(cond [is-a-loop? (cond [is-a-loop?