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

Have separate checkbox for hidden costs.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-11-25 18:37:10 -05:00
parent 8ffbaabfa6
commit 928ea23a12
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-racket/optimizer/tool/hidden-costs.rkt
View File

@ -40,7 +40,7 @@
(list (missed-opt-report-entry (list (missed-opt-report-entry
(log-entry-located-stx info-entry) (log-entry-located-stx info-entry)
message message
'typed-racket 'hidden-cost
badness badness
'())) ; no irritants to highlight '())) ; no irritants to highlight
start end start end

3
collects/typed-racket/optimizer/tool/tool.rkt
View File

@ -21,6 +21,9 @@
[_ #f])) [_ #f]))
("Report inlining optimizations?" . ("Report inlining optimizations?" .
,(match-lambda [(sub-report-entry s m 'mzc) #t] ,(match-lambda [(sub-report-entry s m 'mzc) #t]
[_ #f]))
("Report hidden costs?" .
,(match-lambda [(sub-report-entry s m 'hidden-cost) #t]
[_ #f])))) [_ #f]))))
(define (copy-definitions definitions) (define (copy-definitions definitions)