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

Promote more literals at compile-time.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-04-29 15:25:38 -04:00
parent d9451ef4ab
commit 4d24cbee60
3 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt
View File

@ -1,8 +1,11 @@
#; #;
( (
0.5 0.5
2.0
) )
#lang typed/scheme #lang typed/scheme
#:optimize #:optimize
;; the ann are necessary, since (* PosReal Float) -> Float (exact 0 is not in PosReal)
(/ (ann 1 Integer) 2.0) ; result is not a float, can't optimize (/ (ann 1 Integer) 2.0) ; result is not a float, can't optimize
(* (ann 2/3 Exact-Rational) 3.0)

8
collects/tests/typed-scheme/optimizer/tests/rational-literal.rkt Normal file
View File

@ -0,0 +1,8 @@
#;
(
rational-literal.rkt line 8 col 1 - + - binary float
1.95
)
#lang typed/racket #:optimize
;; rational literals should be promoted to floats at compile time
(+ 3/4 1.2)

5
collects/typed-scheme/optimizer/float.rkt
View File

@ -67,9 +67,10 @@
#:commit #:commit
;; we can convert literals right away ;; we can convert literals right away
(pattern (quote n) (pattern (quote n)
#:when (exact-integer? (syntax->datum #'n)) #:when (and (real? (syntax->datum #'n))
(exact? (syntax->datum #'n)))
#:with opt #:with opt
(datum->syntax #'here (->fl (syntax->datum #'n)))) (datum->syntax #'here (exact->inexact (syntax->datum #'n))))
(pattern e:fixnum-expr (pattern e:fixnum-expr
#:with opt #'(unsafe-fx->fl e.opt)) #:with opt #'(unsafe-fx->fl e.opt))
(pattern e:int-expr (pattern e:int-expr