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

Ignored a rounding error between PPC and x86.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-08-29 10:12:49 -04:00
parent 7020cb6e4c
commit e1fd445fa4
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/typed-scheme/optimizer/tests/make-polar.rkt
View File

@ -7,4 +7,6 @@
(make-polar 1.0 1.0)
;; nested
(+ 1.0+2.0i (make-polar 2.0 4.0))
(let ((p (+ 1.0+2.0i (make-polar 2.0 4.0))))
(string-append (real->decimal-string (real-part p) 10)
(real->decimal-string (imag-part p) 10)))

19
collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log
View File

@ -1,8 +1,17 @@
make-polar.rkt line 7 col 1 - make-polar - make-rectangular elimination
make-polar.rkt line 7 col 1 - make-polar - make-polar
make-polar.rkt line 10 col 3 - 1.0+2.0i - unboxed literal
make-polar.rkt line 10 col 13 - make-polar - make-rectangular elimination
make-polar.rkt line 10 col 1 - + - unboxed binary inexact complex
make-polar.rkt line 10 col 0 - (#%app + (quote 1.0+2.0i) (#%app make-polar (quote 2.0) (quote 4.0))) - unboxed inexact complex
make-polar.rkt line 11 col 50 - p - unbox inexact-complex
make-polar.rkt line 11 col 40 - real-part - unboxed unary inexact complex
make-polar.rkt line 11 col 39 - (#%app real-part p) - unboxed inexact complex->float
make-polar.rkt line 10 col 12 - 1.0+2.0i - unboxed literal
make-polar.rkt line 10 col 22 - make-polar - make-rectangular elimination
make-polar.rkt line 10 col 10 - + - unboxed binary inexact complex
make-polar.rkt line 10 col 0 - (let-values (((p) (#%app + (quote 1.0+2.0i) (#%app make-polar (quote 2.0) (quote 4.0))))) (#%app string-append (#%app real->decimal-string (#%app real-part p) (quote 10)) (#%app real->decimal-string (#%app imag-part p) (quote 10)))) - unboxed let bindings
make-polar.rkt line 11 col 50 - p - unboxed complex variable
make-polar.rkt line 11 col 50 - p - leave var unboxed
make-polar.rkt line 11 col 40 - real-part - unboxed inexact complex
make-polar.rkt line 12 col 50 - p - unboxed complex variable
make-polar.rkt line 12 col 50 - p - leave var unboxed
make-polar.rkt line 12 col 40 - imag-part - unboxed inexact complex
0.5403023058681398+0.8414709848078965i
-0.3072872417272239+0.4863950093841434i
"-0.30728724170.4863950094"