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 ;; Non-recursive function -> macro
"Consider turning this function into a macro to force inlining."])) "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 (missed-opt-log-entry
kind kind
(format "Missed Inlining ~a\n~a" (format "Missed Inlining ~a\n~a"
(format-aggregation-string log) recommendation) (format-aggregation-string pruned-log) recommendation)
stx located-stx pos provenance stx located-stx pos provenance
'() '() '() '()
(group-badness log)) (group-badness pruned-log))
(opt-log-entry (opt-log-entry
kind kind
(format "Inlining ~a" (format-aggregation-string log)) (format "Inlining ~a" (format-aggregation-string pruned-log))
stx located-stx pos provenance))]))) stx located-stx pos provenance))])))
(define (group-badness group) (define (group-badness group)