From e1fd445fa4acab85eb2894bc94dc1a9b009fc9ba Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Sun, 29 Aug 2010 10:12:49 -0400 Subject: [PATCH] Ignored a rounding error between PPC and x86. --- .../optimizer/tests/make-polar.rkt | 4 +++- .../optimizer/tests/make-polar.rkt.log | 19 ++++++++++++++----- 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt index 6916033f49..5a0600e0d7 100644 --- a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt @@ -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))) diff --git a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log index 69a189550f..1faf7df899 100644 --- a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log +++ b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log @@ -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"