diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float.rkt index 9c413e78..2179fc83 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float.rkt @@ -255,16 +255,16 @@ ;; for consumption by Optimization Coach. (pattern (#%plain-app op:binary-float-op n:opt-expr ...) #:when (maybe-exact-rational? this-syntax) - #:do [(log-opt-info "exact real arith")] + #:do [(log-opt-info "possible exact real arith")] #:with opt #'(op n.opt ...)) (pattern (#%plain-app op:binary-float-comp n:opt-expr ...) ;; can't look at return type, since it's always bool #:when (andmap maybe-exact-rational? (syntax->list #'(n ...))) - #:do [(log-opt-info "exact real arith")] + #:do [(log-opt-info "possible exact real arith")] #:with opt #'(op n.opt ...)) (pattern (#%plain-app op:unary-float-op n:opt-expr ...) #:when (maybe-exact-rational? this-syntax) - #:do [(log-opt-info "exact real arith")] + #:do [(log-opt-info "possible exact real arith")] #:with opt #'(op n.opt ...)) ) diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/missed-optimizations/all-real.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/missed-optimizations/all-real.rkt index 2a38cf86..0b633219 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/missed-optimizations/all-real.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/missed-optimizations/all-real.rkt @@ -1,7 +1,7 @@ #;#; #< +inf.f rat) -- exact real arith -TR info: dead-inf-comp.rkt 175:4 (> rat +inf.f) -- exact real arith -TR info: dead-inf-comp.rkt 178:4 (> -inf.f rat) -- exact real arith -TR info: dead-inf-comp.rkt 181:4 (> rat -inf.f) -- exact real arith -TR info: dead-inf-comp.rkt 185:4 (<= rat +inf.f) -- exact real arith -TR info: dead-inf-comp.rkt 188:4 (<= +inf.f rat) -- exact real arith -TR info: dead-inf-comp.rkt 191:4 (<= rat -inf.f) -- exact real arith -TR info: dead-inf-comp.rkt 194:4 (<= -inf.f rat) -- exact real arith -TR info: dead-inf-comp.rkt 198:4 (>= +inf.f rat) -- exact real arith -TR info: dead-inf-comp.rkt 201:4 (>= rat +inf.f) -- exact real arith -TR info: dead-inf-comp.rkt 204:4 (>= -inf.f rat) -- exact real arith -TR info: dead-inf-comp.rkt 207:4 (>= rat -inf.f) -- exact real arith +TR info: dead-inf-comp.rkt 159:4 (< rat +inf.f) -- possible exact real arith +TR info: dead-inf-comp.rkt 162:4 (< +inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 165:4 (< rat -inf.f) -- possible exact real arith +TR info: dead-inf-comp.rkt 168:4 (< -inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 172:4 (> +inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 175:4 (> rat +inf.f) -- possible exact real arith +TR info: dead-inf-comp.rkt 178:4 (> -inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 181:4 (> rat -inf.f) -- possible exact real arith +TR info: dead-inf-comp.rkt 185:4 (<= rat +inf.f) -- possible exact real arith +TR info: dead-inf-comp.rkt 188:4 (<= +inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 191:4 (<= rat -inf.f) -- possible exact real arith +TR info: dead-inf-comp.rkt 194:4 (<= -inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 198:4 (>= +inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 201:4 (>= rat +inf.f) -- possible exact real arith +TR info: dead-inf-comp.rkt 204:4 (>= -inf.f rat) -- possible exact real arith +TR info: dead-inf-comp.rkt 207:4 (>= rat -inf.f) -- possible exact real arith TR info: dead-inf-comp.rkt 212:41 displayln -- hidden parameter TR info: dead-inf-comp.rkt 212:41 displayln -- hidden parameter TR opt: dead-inf-comp.rkt 102:0 #%module-begin -- dead else branch diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/tests/different-langs.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/tests/different-langs.rkt index ce9fa145..9b24fa94 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/tests/different-langs.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/tests/different-langs.rkt @@ -1,6 +1,6 @@ #;#; #<