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

Fixed a test that could not work because of shadowing in hand-optimized code.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-07-23 17:51:36 -04:00
parent 5892ef2fad
commit 5d86813267
3 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/typed-scheme/optimizer/generic/unboxed-let.rkt
View File

@ -4,5 +4,5 @@
(let* ((t1 (+ 1.0+2.0i 2.0+4.0i))
(t2 (- t1 3.0+6.0i))
(t3 (- t1 4.0+8.0i)))
(t3 4.0+8.0i))
(+ t2 t3))

26
collects/tests/typed-scheme/optimizer/hand-optimized/unboxed-let.rkt
View File

@ -9,18 +9,16 @@
(unboxed-gensym-5 (unsafe-flreal-part unboxed-gensym-4))
(unboxed-gensym-6 (unsafe-flimag-part unboxed-gensym-4))
(unboxed-gensym-7 (unsafe-fl+ unboxed-gensym-2 unboxed-gensym-5)) ; t1-real
(unboxed-gensym-8 (unsafe-fl+ unboxed-gensym-3 unboxed-gensym-6)) ; t1-imag
(unboxed-gensym-9 3.0+6.0i)
(unboxed-gensym-10 (unsafe-flreal-part unboxed-gensym-9))
(unboxed-gensym-11 (unsafe-flimag-part unboxed-gensym-9))
(unboxed-gensym-12 (unsafe-fl- unboxed-gensym-7 unboxed-gensym-10)) ; t2-real
(unboxed-gensym-13 (unsafe-fl- unboxed-gensym-8 unboxed-gensym-11)) ; t2-imag
(unboxed-gensym-14 4.0+8.0i)
(unboxed-gensym-15 (unsafe-flreal-part unboxed-gensym-14))
(unboxed-gensym-16 (unsafe-flimag-part unboxed-gensym-14))
(unboxed-gensym-17 (unsafe-fl- unboxed-gensym-7 unboxed-gensym-15)) ; t3-real
(unboxed-gensym-18 (unsafe-fl- unboxed-gensym-8 unboxed-gensym-16)) ; t3-imag
(unboxed-gensym-19 (unsafe-fl+ unboxed-gensym-12 unboxed-gensym-17))
(unboxed-gensym-20 (unsafe-fl+ unboxed-gensym-13 unboxed-gensym-18)))
(unsafe-make-flrectangular unboxed-gensym-19 unboxed-gensym-20))
(unboxed-gensym-8 (unsafe-fl+ unboxed-gensym-3 unboxed-gensym-6))) ; t1-imag
(let* ((unboxed-gensym-1 3.0+6.0i)
(unboxed-gensym-2 (unsafe-flreal-part unboxed-gensym-1))
(unboxed-gensym-3 (unsafe-flimag-part unboxed-gensym-1))
(unboxed-gensym-4 (unsafe-fl- unboxed-gensym-7 unboxed-gensym-2)) ; t2-real
(unboxed-gensym-5 (unsafe-fl- unboxed-gensym-8 unboxed-gensym-3))) ; t2-imag
(let* ((unboxed-gensym-1 4.0+8.0i)
(unboxed-gensym-2 (unsafe-flreal-part unboxed-gensym-1)) ; t3-real
(unboxed-gensym-3 (unsafe-flimag-part unboxed-gensym-1)) ; t3-imag
(unboxed-gensym-4 (unsafe-fl+ unboxed-gensym-4 unboxed-gensym-2))
(unboxed-gensym-5 (unsafe-fl+ unboxed-gensym-5 unboxed-gensym-3)))
(unsafe-make-flrectangular unboxed-gensym-4 unboxed-gensym-5))))
(void)

2
collects/tests/typed-scheme/optimizer/non-optimized/unboxed-let.rkt
View File

@ -4,5 +4,5 @@
(let* ((t1 (+ 1.0+2.0i 2.0+4.0i))
(t2 (- t1 3.0+6.0i))
(t3 (- t1 4.0+8.0i)))
(t3 4.0+8.0i))
(+ t2 t3))