From 727420ee1768d0bf05d5fdbed62f75cefe133443 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 11 Oct 2011 15:21:26 -0400 Subject: [PATCH] Make sure badness is non-zero any time we report a missed opt. Also, fix irritant handling. --- collects/typed-racket/optimizer/tool/mzc.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/typed-racket/optimizer/tool/mzc.rkt b/collects/typed-racket/optimizer/tool/mzc.rkt index 2504261f98..f81f478fd0 100644 --- a/collects/typed-racket/optimizer/tool/mzc.rkt +++ b/collects/typed-racket/optimizer/tool/mzc.rkt @@ -133,9 +133,8 @@ kind (format "Missed Inlining ~a" aggregation-string) stx located-stx pos - (missed-opt-log-entry-irritants head) - (missed-opt-log-entry-merged-irritants head) - n-failures) ; badness + '() '() + (+ n-failures (- n-out-of-fuels n-successes))) ; badness (opt-log-entry kind (format "Inlining ~a" aggregation-string)