From 859d9f9eee003a26f854476ce0ffb0129207beb6 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 14 Dec 2016 15:19:42 -0600 Subject: [PATCH] Fix another test for new `for` expansion. The new expansion actually helps us avoid a spurious unboxing. --- typed-racket-test/optimizer/tests/unboxed-for.rkt | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/typed-racket-test/optimizer/tests/unboxed-for.rkt b/typed-racket-test/optimizer/tests/unboxed-for.rkt index 8ba0bde9..4bcdf0a4 100644 --- a/typed-racket-test/optimizer/tests/unboxed-for.rkt +++ b/typed-racket-test/optimizer/tests/unboxed-for.rkt @@ -5,7 +5,6 @@ TR opt: unboxed-for.rkt 2:0 (for/fold: : Float-Complex ((sum : Float-Complex 0.0 TR opt: unboxed-for.rkt 2:0 (for/fold: : Float-Complex ((sum : Float-Complex 0.0+0.0i)) ((i : Float-Complex (quote (1.0+2.0i 2.0+4.0i)))) (+ i sum)) -- unboxed call site TR opt: unboxed-for.rkt 2:0 (for/fold: : Float-Complex ((sum : Float-Complex 0.0+0.0i)) ((i : Float-Complex (quote (1.0+2.0i 2.0+4.0i)))) (+ i sum)) -- unboxed call site TR opt: unboxed-for.rkt 2:0 (for/fold: : Float-Complex ((sum : Float-Complex 0.0+0.0i)) ((i : Float-Complex (quote (1.0+2.0i 2.0+4.0i)))) (+ i sum)) -- unboxed let bindings -TR opt: unboxed-for.rkt 2:0 (for/fold: : Float-Complex ((sum : Float-Complex 0.0+0.0i)) ((i : Float-Complex (quote (1.0+2.0i 2.0+4.0i)))) (+ i sum)) -- unboxed let bindings TR opt: unboxed-for.rkt 2:0 (for/fold: : Float-Complex ((sum : Float-Complex 0.0+0.0i)) ((i : Float-Complex (quote (1.0+2.0i 2.0+4.0i)))) (+ i sum)) -- unboxed let loop TR opt: unboxed-for.rkt 2:31 sum -- leave var unboxed TR opt: unboxed-for.rkt 2:31 sum -- unbox float-complex @@ -13,13 +12,10 @@ TR opt: unboxed-for.rkt 2:31 sum -- unboxed complex variable TR opt: unboxed-for.rkt 2:31 sum -- unboxed complex variable TR opt: unboxed-for.rkt 2:31 sum -- unboxed var -> table TR opt: unboxed-for.rkt 2:53 0.0+0.0i -- unboxed literal -TR opt: unboxed-for.rkt 3:13 i -- unboxed complex variable -TR opt: unboxed-for.rkt 3:13 i -- unboxed complex variable TR opt: unboxed-for.rkt 3:33 (quote (1.0+2.0i 2.0+4.0i)) -- in-list -TR opt: unboxed-for.rkt 3:33 (quote (1.0+2.0i 2.0+4.0i)) -- unbox float-complex TR opt: unboxed-for.rkt 4:11 sum -- leave var unboxed TR opt: unboxed-for.rkt 4:6 (+ i sum) -- unboxed binary float complex -TR opt: unboxed-for.rkt 4:9 i -- leave var unboxed +TR opt: unboxed-for.rkt 4:9 i -- unbox float-complex END #<