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

Have recommendations for inlining.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-04-02 12:53:41 -04:00
parent 69df0c4969
commit deaa8f61be
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -199,6 +199,7 @@
(define n-successes (- (length (filter success? group)) n-unrollings)) (define n-successes (- (length (filter success? group)) n-unrollings))
(define n-failures (length (filter failure? group))) (define n-failures (length (filter failure? group)))
;; self o-o-f are already gone at this point
(define n-out-of-fuels (length (filter out-of-fuel? group))) (define n-out-of-fuels (length (filter out-of-fuel? group)))
(define aggregation-string (define aggregation-string
@ -210,10 +211,19 @@
(or (> n-failures 0) ; any straight failure is a problem (or (> n-failures 0) ; any straight failure is a problem
(> n-out-of-fuels n-successes) ; we fail more often than not (> n-out-of-fuels n-successes) ; we fail more often than not
)) ))
(define recommendation
(cond [is-a-loop?
"Consider making this function smaller to encourage inlining."]
[else
;; Non-recursive function -> macro
"Consider turning this function into a macro to force inlining."]))
(if counts-as-a-missed-opt? (if counts-as-a-missed-opt?
(missed-opt-log-entry (missed-opt-log-entry
kind kind
(format "Missed Inlining ~a" aggregation-string) (format "Missed Inlining ~a\n~a"
aggregation-string recommendation)
stx located-stx pos stx located-stx pos
'() '() '() '()
(+ n-failures (- n-out-of-fuels n-successes))) ; badness (+ n-failures (- n-out-of-fuels n-successes))) ; badness