From 928ea23a12c5b50c850b89ca417a1c0db8652fe9 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sun, 25 Nov 2012 18:37:10 -0500 Subject: [PATCH] Have separate checkbox for hidden costs. --- collects/typed-racket/optimizer/tool/hidden-costs.rkt | 2 +- collects/typed-racket/optimizer/tool/tool.rkt | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/typed-racket/optimizer/tool/hidden-costs.rkt b/collects/typed-racket/optimizer/tool/hidden-costs.rkt index e7be29aa7f..9e8ab6e137 100644 --- a/collects/typed-racket/optimizer/tool/hidden-costs.rkt +++ b/collects/typed-racket/optimizer/tool/hidden-costs.rkt @@ -40,7 +40,7 @@ (list (missed-opt-report-entry (log-entry-located-stx info-entry) message - 'typed-racket + 'hidden-cost badness '())) ; no irritants to highlight start end diff --git a/collects/typed-racket/optimizer/tool/tool.rkt b/collects/typed-racket/optimizer/tool/tool.rkt index 219fe8bab0..728b2a091f 100644 --- a/collects/typed-racket/optimizer/tool/tool.rkt +++ b/collects/typed-racket/optimizer/tool/tool.rkt @@ -21,6 +21,9 @@ [_ #f])) ("Report inlining optimizations?" . ,(match-lambda [(sub-report-entry s m 'mzc) #t] + [_ #f])) + ("Report hidden costs?" . + ,(match-lambda [(sub-report-entry s m 'hidden-cost) #t] [_ #f])))) (define (copy-definitions definitions)