Improve some Performance Report messages.

This commit is contained in:
Vincent St-Amour 2012-05-30 16:24:24 -04:00
parent 84c6fe1522
commit 4ad700021b
2 changed files with 3 additions and 3 deletions

View File

@ -84,7 +84,7 @@
(define (log-fixnum-missed-opt stx)
(log-missed-optimization
"out of fixnum range"
"This expression has all fixnum arguments but is not guaranteed to itself return a fixnum. Therefore, it cannot be safely optimized. Constraining the arguments to be of Byte or Index types may help."
"This expression consists of all fixnum arguments but is not guaranteed to produce a fixnum. Therefore it cannot be safely optimized. Constraining the arguments to be of Byte or Index types may help."
stx))
;; general-purpose safety check for fixnum opts

View File

@ -80,10 +80,10 @@
(log-missed-optimization
"all args float-arg-expr, result not Float"
(string-append
"This expression has a Real type. It would be better optimized if it had a Float type."
"This expression has a Real type. The optimizer could improve its performance if it had type Float."
(if (null? irritants)
""
"To fix this, change the highlighted expression(s) to have Float type(s)."))
"To fix, change the highlighted expression(s) to have Float type(s)."))
stx irritants))
(define float-opt-msg "Float arithmetic specialization.")