From b8b852dbc11bfba63624755fa7d0c317d903e3a4 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 16 Jul 2010 12:35:00 -0400 Subject: [PATCH] Added a test for inexact imaginaries. --- .../optimizer/generic/inexact-complex-i.rkt | 3 +++ .../hand-optimized/inexact-complex-i.rkt | 22 +++++++++++++++++++ .../non-optimized/inexact-complex-i.rkt | 3 +++ 3 files changed, 28 insertions(+) create mode 100644 collects/tests/typed-scheme/optimizer/generic/inexact-complex-i.rkt create mode 100644 collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt create mode 100644 collects/tests/typed-scheme/optimizer/non-optimized/inexact-complex-i.rkt diff --git a/collects/tests/typed-scheme/optimizer/generic/inexact-complex-i.rkt b/collects/tests/typed-scheme/optimizer/generic/inexact-complex-i.rkt new file mode 100644 index 0000000000..95f0b4cb88 --- /dev/null +++ b/collects/tests/typed-scheme/optimizer/generic/inexact-complex-i.rkt @@ -0,0 +1,3 @@ +#lang typed/scheme #:optimize +(require racket/unsafe/ops) +(+ 1.0+2.0i (* +1.0i 2.0+4.0i)) diff --git a/collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt b/collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt new file mode 100644 index 0000000000..14f21208a0 --- /dev/null +++ b/collects/tests/typed-scheme/optimizer/hand-optimized/inexact-complex-i.rkt @@ -0,0 +1,22 @@ +#lang typed/scheme #:optimize +(require racket/unsafe/ops) +(let* ((unboxed-gensym-1 1.0+2.0i) + (unboxed-gensym-2 (unsafe-flreal-part unboxed-gensym-1)) + (unboxed-gensym-3 (unsafe-flimag-part unboxed-gensym-1)) + (unboxed-gensym-4 +1.0i) + (unboxed-gensym-5 (unsafe-flreal-part unboxed-gensym-4)) + (unboxed-gensym-6 (unsafe-flimag-part unboxed-gensym-4)) + (unboxed-gensym-7 2.0+4.0i) + (unboxed-gensym-8 (unsafe-flreal-part unboxed-gensym-7)) + (unboxed-gensym-9 (unsafe-flimag-part unboxed-gensym-7)) + (unboxed-gensym-10 (unsafe-fl- (unsafe-fl* unboxed-gensym-5 + unboxed-gensym-8) + (unsafe-fl* unboxed-gensym-6 + unboxed-gensym-9))) + (unboxed-gensym-11 (unsafe-fl+ (unsafe-fl* unboxed-gensym-6 + unboxed-gensym-8) + (unsafe-fl* unboxed-gensym-5 + unboxed-gensym-9))) + (unboxed-gensym-12 (unsafe-fl+ unboxed-gensym-2 unboxed-gensym-10)) + (unboxed-gensym-13 (unsafe-fl+ unboxed-gensym-3 unboxed-gensym-11))) + (unsafe-make-flrectangular unboxed-gensym-12 unboxed-gensym-13)) diff --git a/collects/tests/typed-scheme/optimizer/non-optimized/inexact-complex-i.rkt b/collects/tests/typed-scheme/optimizer/non-optimized/inexact-complex-i.rkt new file mode 100644 index 0000000000..d107b430d3 --- /dev/null +++ b/collects/tests/typed-scheme/optimizer/non-optimized/inexact-complex-i.rkt @@ -0,0 +1,3 @@ +#lang typed/scheme +(require racket/unsafe/ops) +(+ 1.0+2.0i (* +1.0i 2.0+4.0i))