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

Use the right version of the log to determine misses.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-09-12 17:58:15 -04:00
parent e02333a3c8
commit 28d4eb4d22
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -234,17 +234,17 @@
;; Non-recursive function -> macro
"Consider turning this function into a macro to force inlining."]))
(if (counts-as-a-missed-opt? log)
(if (counts-as-a-missed-opt? pruned-log)
(missed-opt-log-entry
kind
(format "Missed Inlining ~a\n~a"
(format-aggregation-string log) recommendation)
(format-aggregation-string pruned-log) recommendation)
stx located-stx pos provenance
'() '()
(group-badness log))
(group-badness pruned-log))
(opt-log-entry
kind
(format "Inlining ~a" (format-aggregation-string log))
(format "Inlining ~a" (format-aggregation-string pruned-log))
stx located-stx pos provenance))])))
(define (group-badness group)