From 7f546434ed1648ff52efdb0e84883e8af5b2837a Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 8 Sep 2010 14:43:37 -0400 Subject: [PATCH] Included expected optimization logs in the test files. --- collects/tests/typed-scheme/optimizer/run.rkt | 48 ++++++++++++------ .../optimizer/tests/apply-plus.rkt | 8 +++ .../optimizer/tests/apply-plus.rkt.log | 4 -- .../optimizer/tests/begin-float.rkt | 8 +++ .../optimizer/tests/begin-float.rkt.log | 4 -- .../optimizer/tests/binary-fixnum.rkt | 6 +++ .../optimizer/tests/binary-fixnum.rkt.log | 2 - .../optimizer/tests/binary-nonzero-fixnum.rkt | 7 +++ .../tests/binary-nonzero-fixnum.rkt.log | 3 -- .../typed-scheme/optimizer/tests/box.rkt | 9 ++++ .../typed-scheme/optimizer/tests/box.rkt.log | 5 -- .../optimizer/tests/cross-module-struct.rkt | 3 ++ .../tests/cross-module-struct.rkt.log | 0 .../optimizer/tests/cross-module-struct2.rkt | 6 +++ .../tests/cross-module-struct2.rkt.log | 2 - .../optimizer/tests/dead-else.rkt | 9 ++++ .../optimizer/tests/dead-else.rkt.log | 5 -- .../optimizer/tests/dead-substructs.rkt | 6 +++ .../optimizer/tests/dead-substructs.rkt.log | 2 - .../optimizer/tests/dead-then.rkt | 9 ++++ .../optimizer/tests/dead-then.rkt.log | 5 -- .../optimizer/tests/define-begin-float.rkt | 7 +++ .../tests/define-begin-float.rkt.log | 3 -- .../optimizer/tests/define-call-float.rkt | 5 ++ .../optimizer/tests/define-call-float.rkt.log | 1 - .../optimizer/tests/define-float.rkt | 5 ++ .../optimizer/tests/define-float.rkt.log | 1 - .../optimizer/tests/define-pair.rkt | 5 ++ .../optimizer/tests/define-pair.rkt.log | 1 - .../optimizer/tests/different-langs.rkt | 5 ++ .../optimizer/tests/different-langs.rkt.log | 1 - .../optimizer/tests/double-float.rkt | 6 +++ .../optimizer/tests/double-float.rkt.log | 2 - .../optimizer/tests/exact-inexact.rkt | 6 +++ .../optimizer/tests/exact-inexact.rkt.log | 2 - .../optimizer/tests/fixnum-comparison.rkt | 8 +++ .../optimizer/tests/fixnum-comparison.rkt.log | 4 -- .../optimizer/tests/float-comp.rkt | 6 +++ .../optimizer/tests/float-comp.rkt.log | 2 - .../optimizer/tests/float-fun.rkt | 5 ++ .../optimizer/tests/float-fun.rkt.log | 1 - .../optimizer/tests/float-promotion.rkt | 9 ++++ .../optimizer/tests/float-promotion.rkt.log | 5 -- .../optimizer/tests/flvector-length.rkt | 6 +++ .../optimizer/tests/flvector-length.rkt.log | 2 - .../typed-scheme/optimizer/tests/fx-fl.rkt | 6 +++ .../optimizer/tests/fx-fl.rkt.log | 2 - .../typed-scheme/optimizer/tests/in-bytes.rkt | 18 +++++++ .../optimizer/tests/in-bytes.rkt.log | 15 ------ .../typed-scheme/optimizer/tests/in-list.rkt | 18 +++++++ .../optimizer/tests/in-list.rkt.log | 15 ------ .../optimizer/tests/in-string.rkt | 18 +++++++ .../optimizer/tests/in-string.rkt.log | 15 ------ .../optimizer/tests/in-vector.rkt | 18 +++++++ .../optimizer/tests/in-vector.rkt.log | 15 ------ .../tests/inexact-complex-conjugate-top.rkt | 10 ++++ .../inexact-complex-conjugate-top.rkt.log | 6 --- .../tests/inexact-complex-conjugate.rkt | 11 +++++ .../tests/inexact-complex-conjugate.rkt.log | 7 --- .../optimizer/tests/inexact-complex-div.rkt | 10 ++++ .../tests/inexact-complex-div.rkt.log | 6 --- .../tests/inexact-complex-fixnum.rkt | 12 +++++ .../tests/inexact-complex-fixnum.rkt.log | 8 --- .../tests/inexact-complex-float-div.rkt | 42 ++++++++++++++++ .../tests/inexact-complex-float-div.rkt.log | 38 -------------- .../tests/inexact-complex-float-mul.rkt | 38 ++++++++++++++ .../tests/inexact-complex-float-mul.rkt.log | 34 ------------- .../tests/inexact-complex-float-small.rkt | 32 ++++++++++++ .../tests/inexact-complex-float-small.rkt.log | 28 ----------- .../optimizer/tests/inexact-complex-float.rkt | 28 +++++++++++ .../tests/inexact-complex-float.rkt.log | 24 --------- .../optimizer/tests/inexact-complex-i.rkt | 11 +++++ .../optimizer/tests/inexact-complex-i.rkt.log | 7 --- .../tests/inexact-complex-integer.rkt | 9 ++++ .../tests/inexact-complex-integer.rkt.log | 5 -- .../optimizer/tests/inexact-complex-mult.rkt | 10 ++++ .../tests/inexact-complex-mult.rkt.log | 6 --- .../optimizer/tests/inexact-complex-parts.rkt | 13 +++++ .../tests/inexact-complex-parts.rkt.log | 9 ---- .../tests/inexact-complex-parts2.rkt | 40 +++++++++++++++ .../tests/inexact-complex-parts2.rkt.log | 36 -------------- .../tests/inexact-complex-parts3.rkt | 36 ++++++++++++++ .../tests/inexact-complex-parts3.rkt.log | 32 ------------ .../optimizer/tests/inexact-complex-sin.rkt | 9 ++++ .../tests/inexact-complex-sin.rkt.log | 5 -- .../optimizer/tests/inexact-complex.rkt | 14 ++++++ .../optimizer/tests/inexact-complex.rkt.log | 10 ---- .../tests/invalid-binary-nonzero-fixnum.rkt | 3 ++ .../invalid-binary-nonzero-fixnum.rkt.log | 0 .../optimizer/tests/invalid-exact-inexact.rkt | 6 +++ .../tests/invalid-exact-inexact.rkt.log | 2 - .../optimizer/tests/invalid-float-comp.rkt | 5 ++ .../tests/invalid-float-comp.rkt.log | 1 - .../tests/invalid-float-promotion.rkt | 5 ++ .../tests/invalid-float-promotion.rkt.log | 1 - .../tests/invalid-inexact-complex-parts.rkt | 5 ++ .../invalid-inexact-complex-parts.rkt.log | 1 - .../tests/invalid-make-flrectangular.rkt | 5 ++ .../tests/invalid-make-flrectangular.rkt.log | 1 - .../optimizer/tests/invalid-make-polar.rkt | 5 ++ .../tests/invalid-make-polar.rkt.log | 1 - .../optimizer/tests/invalid-mpair.rkt | 3 ++ .../optimizer/tests/invalid-mpair.rkt.log | 0 .../optimizer/tests/invalid-sqrt.rkt | 5 ++ .../optimizer/tests/invalid-sqrt.rkt.log | 1 - .../optimizer/tests/invalid-unboxed-let.rkt | 28 +++++++++++ .../tests/invalid-unboxed-let.rkt.log | 25 ---------- .../optimizer/tests/invalid-unboxed-let2.rkt | 18 +++++++ .../tests/invalid-unboxed-let2.rkt.log | 14 ------ .../optimizer/tests/invalid-vector-ref.rkt | 3 ++ .../tests/invalid-vector-ref.rkt.log | 0 .../optimizer/tests/invalid-vector-set.rkt | 3 ++ .../tests/invalid-vector-set.rkt.log | 0 .../optimizer/tests/known-vector-length.rkt | 7 +++ .../tests/known-vector-length.rkt.log | 3 -- .../optimizer/tests/let-float.rkt | 8 +++ .../optimizer/tests/let-float.rkt.log | 4 -- .../typed-scheme/optimizer/tests/let-rhs.rkt | 7 +++ .../optimizer/tests/let-rhs.rkt.log | 3 -- .../optimizer/tests/literal-int.rkt | 7 +++ .../optimizer/tests/literal-int.rkt.log | 3 -- .../optimizer/tests/magnitude.rkt | 10 +++- .../optimizer/tests/magnitude.rkt.log | 4 -- .../optimizer/tests/make-flrectangular.rkt | 8 +++ .../tests/make-flrectangular.rkt.log | 4 -- .../optimizer/tests/make-polar.rkt | 21 ++++++++ .../optimizer/tests/make-polar.rkt.log | 17 ------- .../optimizer/tests/maybe-exact-complex.rkt | 9 ++++ .../tests/maybe-exact-complex.rkt.log | 5 -- .../typed-scheme/optimizer/tests/mpair.rkt | 12 +++++ .../optimizer/tests/mpair.rkt.log | 8 --- .../optimizer/tests/n-ary-float.rkt | 6 +++ .../optimizer/tests/n-ary-float.rkt.log | 2 - .../optimizer/tests/n-ary-inexact-complex.rkt | 11 +++++ .../tests/n-ary-inexact-complex.rkt.log | 7 --- .../optimizer/tests/nested-float.rkt | 7 +++ .../optimizer/tests/nested-float.rkt.log | 3 -- .../optimizer/tests/nested-float2.rkt | 7 +++ .../optimizer/tests/nested-float2.rkt.log | 3 -- .../tests/nested-inexact-complex.rkt | 11 +++++ .../tests/nested-inexact-complex.rkt.log | 7 --- .../optimizer/tests/nested-let-loop.rkt | 43 ++++++++++++++++ .../optimizer/tests/nested-let-loop.rkt.log | 39 --------------- .../optimizer/tests/nested-pair1.rkt | 7 +++ .../optimizer/tests/nested-pair1.rkt.log | 3 -- .../optimizer/tests/nested-pair2.rkt | 7 +++ .../optimizer/tests/nested-pair2.rkt.log | 3 -- .../optimizer/tests/nested-unboxed-let.rkt | 25 ++++++++++ .../tests/nested-unboxed-let.rkt.log | 21 -------- .../optimizer/tests/one-arg-arith.rkt | 34 +++++++++++++ .../optimizer/tests/one-arg-arith.rkt.log | 30 ------------ .../typed-scheme/optimizer/tests/pair-fun.rkt | 5 ++ .../optimizer/tests/pair-fun.rkt.log | 1 - .../typed-scheme/optimizer/tests/quote.rkt | 5 ++ .../optimizer/tests/quote.rkt.log | 1 - .../optimizer/tests/real-part-loop.rkt | 24 +++++++++ .../optimizer/tests/real-part-loop.rkt.log | 20 -------- .../optimizer/tests/simple-float.rkt | 6 +++ .../optimizer/tests/simple-float.rkt.log | 2 - .../optimizer/tests/simple-pair.rkt | 6 +++ .../optimizer/tests/simple-pair.rkt.log | 2 - .../optimizer/tests/sqrt-segfault.rkt | 10 ++++ .../optimizer/tests/sqrt-segfault.rkt.log | 6 --- .../typed-scheme/optimizer/tests/sqrt.rkt | 5 ++ .../typed-scheme/optimizer/tests/sqrt.rkt.log | 1 - .../optimizer/tests/string-length.rkt | 8 +++ .../optimizer/tests/string-length.rkt.log | 4 -- .../typed-scheme/optimizer/tests/structs.rkt | 7 +++ .../optimizer/tests/structs.rkt.log | 3 -- .../optimizer/tests/unary-fixnum-nested.rkt | 7 +++ .../tests/unary-fixnum-nested.rkt.log | 3 -- .../optimizer/tests/unary-fixnum.rkt | 6 +++ .../optimizer/tests/unary-fixnum.rkt.log | 2 - .../optimizer/tests/unary-float.rkt | 6 +++ .../optimizer/tests/unary-float.rkt.log | 2 - .../optimizer/tests/unboxed-for.rkt | 49 +++++++++++++++++++ .../optimizer/tests/unboxed-for.rkt.log | 45 ----------------- .../tests/unboxed-let-functions1.rkt | 22 +++++++++ .../tests/unboxed-let-functions1.rkt.log | 18 ------- .../tests/unboxed-let-functions2.rkt | 28 +++++++++++ .../tests/unboxed-let-functions2.rkt.log | 24 --------- .../tests/unboxed-let-functions3.rkt | 22 +++++++++ .../tests/unboxed-let-functions3.rkt.log | 18 ------- .../tests/unboxed-let-functions4.rkt | 22 +++++++++ .../tests/unboxed-let-functions4.rkt.log | 18 ------- .../tests/unboxed-let-functions5.rkt | 11 +++++ .../tests/unboxed-let-functions5.rkt.log | 7 --- .../tests/unboxed-let-functions6.rkt | 27 ++++++++++ .../tests/unboxed-let-functions6.rkt.log | 23 --------- .../tests/unboxed-let-functions7.rkt | 25 ++++++++++ .../tests/unboxed-let-functions7.rkt.log | 21 -------- .../tests/unboxed-let-functions8.rkt | 10 ++++ .../tests/unboxed-let-functions8.rkt.log | 6 --- .../optimizer/tests/unboxed-let.rkt | 31 ++++++++++++ .../optimizer/tests/unboxed-let.rkt.log | 27 ---------- .../optimizer/tests/unboxed-let2.rkt | 24 +++++++++ .../optimizer/tests/unboxed-let2.rkt.log | 20 -------- .../optimizer/tests/unboxed-let3.rkt | 18 +++++++ .../optimizer/tests/unboxed-let3.rkt.log | 14 ------ .../tests/unboxed-letrec-syntaxes+values.rkt | 17 +++++++ .../unboxed-letrec-syntaxes+values.rkt.log | 13 ----- .../optimizer/tests/unboxed-letrec.rkt | 22 +++++++++ .../optimizer/tests/unboxed-letrec.rkt.log | 18 ------- .../tests/unboxed-make-rectangular.rkt | 26 ++++++++++ .../tests/unboxed-make-rectangular.rkt.log | 22 --------- .../optimizer/tests/vector-length-nested.rkt | 7 +++ .../tests/vector-length-nested.rkt.log | 3 -- .../optimizer/tests/vector-length.rkt | 6 +++ .../optimizer/tests/vector-length.rkt.log | 2 - .../optimizer/tests/vector-ref-set-ref.rkt | 9 ++++ .../tests/vector-ref-set-ref.rkt.log | 5 -- .../optimizer/tests/vector-ref.rkt | 6 +++ .../optimizer/tests/vector-ref.rkt.log | 2 - .../optimizer/tests/vector-ref2.rkt | 6 +++ .../optimizer/tests/vector-ref2.rkt.log | 2 - .../optimizer/tests/vector-set-quote.rkt | 5 ++ .../optimizer/tests/vector-set-quote.rkt.log | 1 - .../optimizer/tests/vector-set.rkt | 5 ++ .../optimizer/tests/vector-set.rkt.log | 1 - .../optimizer/tests/vector-set2.rkt | 5 ++ .../optimizer/tests/vector-set2.rkt.log | 1 - .../typed-scheme/optimizer/tests/zero.rkt | 9 ++++ .../typed-scheme/optimizer/tests/zero.rkt.log | 5 -- 223 files changed, 1427 insertions(+), 975 deletions(-) delete mode 100644 collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/begin-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/box.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/cross-module-struct.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/dead-else.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/dead-then.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/define-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/define-pair.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/different-langs.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/double-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/float-comp.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/float-fun.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/in-list.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/in-string.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/in-vector.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-binary-nonzero-fixnum.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-mpair.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-vector-ref.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/invalid-vector-set.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/let-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/literal-int.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/magnitude.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/mpair.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/nested-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/quote.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/simple-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/sqrt.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/string-length.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/structs.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unary-float.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-length.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-set.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt.log delete mode 100644 collects/tests/typed-scheme/optimizer/tests/zero.rkt.log diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index bd543654fe..ebff770939 100644 --- a/collects/tests/typed-scheme/optimizer/run.rkt +++ b/collects/tests/typed-scheme/optimizer/run.rkt @@ -1,6 +1,8 @@ #lang racket (require racket/runtime-path racket/sandbox) +(define show-names? (make-parameter #f)) + (define prog-rx (pregexp (string-append "^\\s*" "(#lang typed/(?:scheme|racket)(?:/base)?)" @@ -18,9 +20,12 @@ (list (car (sandbox-namespace-specs)) 'typed/racket 'typed/scheme)]) - ;; drop the #lang line - (let* ([prog (file->string file)] - ;; drop the #lang line and #:optimize + ;; drop the expected log + (let* ([prog (with-input-from-file file + (lambda () + (read-line) ; drop #; + (read) ; drop expected log + (port->string)))] ; get the actual program [m (or (regexp-match-positions prog-rx prog) (error 'evaluator "bad program contents in ~e" file))] [prog (string-append (substring prog (caadr m) (cdadr m)) @@ -34,23 +39,29 @@ (define (generate-opt-log name) (parameterize ([current-load-relative-directory tests-dir] [current-command-line-arguments '#("--log-optimizations")]) - (with-output-to-string - (lambda () - (dynamic-require (build-path (current-load-relative-directory) name) - #f))))) + (let ((log-string + (with-output-to-string + (lambda () + (dynamic-require (build-path (current-load-relative-directory) + name) + #f))))) + ;; have the log as an sexp, since that's what the expected log is + (with-input-from-string (string-append "(" log-string ")") + read)))) (define (test gen) (let-values (((base name _) (split-path gen))) + (when (show-names?) (displayln name)) (or (not (regexp-match ".*rkt$" name)) ; we ignore all but racket files ;; we log optimizations and compare to an expected log to make sure ;; that all the optimizations we expected did indeed happen (and (or (let ((log (generate-opt-log name)) ;; expected optimizer log, to see what was optimized (expected - (file->string - (build-path base - (string-append (path->string name) - ".log"))))) + (with-input-from-file gen + (lambda () + (read-line) ; skip the #; + (read))))) ; get the log itself (equal? log expected)) (begin (printf "~a failed: optimization log mismatch\n\n" name) #f)) @@ -60,13 +71,20 @@ (begin (printf "~a failed: result mismatch\n\n" name) #f)))))) +(define to-run + (command-line + #:once-each + ["--show-names" "show the names of tests as they are run" (show-names? #t)] + ;; we optionally take a test name. if none is given, run everything (#f) + #:args maybe-test-to-run + (and (not (null? maybe-test-to-run)) + (car maybe-test-to-run)))) + (define-runtime-path tests-dir "./tests") (let ((n-failures - (if (> (vector-length (current-command-line-arguments)) 0) - (if (test (format "tests/~a.rkt" - (vector-ref (current-command-line-arguments) 0))) - 0 1) + (if to-run + (if (test (format "tests/~a.rkt" to-run)) 0 1) (for/fold ((n-failures 0)) ((gen (in-directory tests-dir))) (+ n-failures (if (test gen) 0 1)))))) diff --git a/collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt b/collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt index 19479ca7bf..8478d8d4de 100644 --- a/collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt @@ -1,3 +1,11 @@ +#; +( +apply-plus.rkt line 12 col 7 - + - apply-map +apply-plus.rkt line 13 col 7 - * - apply-map +9 +24 +) + #lang typed/racket #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt.log b/collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt.log deleted file mode 100644 index 1d2f65256f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/apply-plus.rkt.log +++ /dev/null @@ -1,4 +0,0 @@ -apply-plus.rkt line 4 col 7 - + - apply-map -apply-plus.rkt line 5 col 7 - * - apply-map -9 -24 diff --git a/collects/tests/typed-scheme/optimizer/tests/begin-float.rkt b/collects/tests/typed-scheme/optimizer/tests/begin-float.rkt index 791e75b3cc..da828b4de2 100644 --- a/collects/tests/typed-scheme/optimizer/tests/begin-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/begin-float.rkt @@ -1,3 +1,11 @@ +#; +( +begin-float.rkt line 12 col 8 - - - binary float +begin-float.rkt line 13 col 8 - * - binary float +-1.0 +6.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/begin-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/begin-float.rkt.log deleted file mode 100644 index 1ddc043127..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/begin-float.rkt.log +++ /dev/null @@ -1,4 +0,0 @@ -begin-float.rkt line 4 col 8 - - - binary float -begin-float.rkt line 5 col 8 - * - binary float --1.0 -6.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt b/collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt index 3f7f72d4da..31dce5f935 100644 --- a/collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt @@ -1,3 +1,9 @@ +#; +( +binary-fixnum.rkt line 12 col 16 - vector-length - vector-length +binary-fixnum.rkt line 12 col 3 - bitwise-and - binary fixnum +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt.log b/collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt.log deleted file mode 100644 index 93ecec61d9..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/binary-fixnum.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -binary-fixnum.rkt line 6 col 16 - vector-length - vector-length -binary-fixnum.rkt line 6 col 3 - bitwise-and - binary fixnum diff --git a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt b/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt index 59a38b9ad1..2e3ad2e7fa 100644 --- a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt @@ -1,3 +1,10 @@ +#; +( +binary-nonzero-fixnum.rkt line 11 col 9 - vector-length - vector-length +binary-nonzero-fixnum.rkt line 11 col 1 - modulo - binary nonzero fixnum +1 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt.log b/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt.log deleted file mode 100644 index f673d69a5a..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -binary-nonzero-fixnum.rkt line 4 col 9 - vector-length - vector-length -binary-nonzero-fixnum.rkt line 4 col 1 - modulo - binary nonzero fixnum -1 diff --git a/collects/tests/typed-scheme/optimizer/tests/box.rkt b/collects/tests/typed-scheme/optimizer/tests/box.rkt index 44dd0a01d5..c7c7bbb6fa 100644 --- a/collects/tests/typed-scheme/optimizer/tests/box.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/box.rkt @@ -1,3 +1,12 @@ +#; +( +box.rkt line 17 col 1 - unbox - box +box.rkt line 18 col 1 - set-box! - box +box.rkt line 19 col 1 - unbox - box +1 +2 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/box.rkt.log b/collects/tests/typed-scheme/optimizer/tests/box.rkt.log deleted file mode 100644 index 452ad9c65c..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/box.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -box.rkt line 8 col 1 - unbox - box -box.rkt line 9 col 1 - set-box! - box -box.rkt line 10 col 1 - unbox - box -1 -2 diff --git a/collects/tests/typed-scheme/optimizer/tests/cross-module-struct.rkt b/collects/tests/typed-scheme/optimizer/tests/cross-module-struct.rkt index 7b52b214f6..0959962cff 100644 --- a/collects/tests/typed-scheme/optimizer/tests/cross-module-struct.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/cross-module-struct.rkt @@ -1,3 +1,6 @@ +#; +() + #lang typed/scheme #:optimize ;; will be imported by cross-module-struct2 diff --git a/collects/tests/typed-scheme/optimizer/tests/cross-module-struct.rkt.log b/collects/tests/typed-scheme/optimizer/tests/cross-module-struct.rkt.log deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt b/collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt index 45a1696e78..b9255c5617 100644 --- a/collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt @@ -1,3 +1,9 @@ +#; +( +cross-module-struct2.rkt line 11 col 1 - x-x - struct ref +1 +) + #lang typed/scheme #:optimize (require (file "cross-module-struct.rkt") racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt.log deleted file mode 100644 index 8141840c59..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/cross-module-struct2.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -cross-module-struct2.rkt line 5 col 1 - x-x - struct ref -1 diff --git a/collects/tests/typed-scheme/optimizer/tests/dead-else.rkt b/collects/tests/typed-scheme/optimizer/tests/dead-else.rkt index 9ec67d3d7c..ad1fcb95c5 100644 --- a/collects/tests/typed-scheme/optimizer/tests/dead-else.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/dead-else.rkt @@ -1,3 +1,12 @@ +#; +( +#f line #f col #f - op - dead else branch +dead-else.rkt line 14 col 14 - + - binary float +#f line #f col #f - op - dead else branch +dead-else.rkt line 17 col 14 - + - binary float +5.05.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/dead-else.rkt.log b/collects/tests/typed-scheme/optimizer/tests/dead-else.rkt.log deleted file mode 100644 index 21d7a0d568..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/dead-else.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -#f line #f col #f - op - dead else branch -dead-else.rkt line 5 col 14 - + - binary float -#f line #f col #f - op - dead else branch -dead-else.rkt line 8 col 14 - + - binary float -5.05.0 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt b/collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt index 796076c48a..638a5cf04d 100644 --- a/collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt @@ -1,3 +1,9 @@ +#; +( +1 +2 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt.log b/collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt.log deleted file mode 100644 index 1191247b6d..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/dead-substructs.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -1 -2 diff --git a/collects/tests/typed-scheme/optimizer/tests/dead-then.rkt b/collects/tests/typed-scheme/optimizer/tests/dead-then.rkt index ddcf70e502..86b4021150 100644 --- a/collects/tests/typed-scheme/optimizer/tests/dead-then.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/dead-then.rkt @@ -1,3 +1,12 @@ +#; +( +#f line #f col #f - op - dead then branch +dead-then.rkt line 15 col 14 - + - binary float +#f line #f col #f - op - dead then branch +dead-then.rkt line 18 col 14 - + - binary float +9.09.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/dead-then.rkt.log b/collects/tests/typed-scheme/optimizer/tests/dead-then.rkt.log deleted file mode 100644 index 71ec9fa203..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/dead-then.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -#f line #f col #f - op - dead then branch -dead-then.rkt line 6 col 14 - + - binary float -#f line #f col #f - op - dead then branch -dead-then.rkt line 9 col 14 - + - binary float -9.09.0 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt b/collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt index 6c214e4b2f..f6d0b6f7a6 100644 --- a/collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt @@ -1,3 +1,10 @@ +#; +( +define-begin-float.rkt line 11 col 27 - - - binary float +define-begin-float.rkt line 12 col 18 - * - binary float +-1.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt.log deleted file mode 100644 index 7e2e760593..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/define-begin-float.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -define-begin-float.rkt line 4 col 27 - - - binary float -define-begin-float.rkt line 5 col 18 - * - binary float --1.0 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt b/collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt index 0b0b311245..0aa843315d 100644 --- a/collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt @@ -1,3 +1,8 @@ +#; +( +define-call-float.rkt line 9 col 17 - + - binary float +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt.log deleted file mode 100644 index 6b045f2da7..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/define-call-float.rkt.log +++ /dev/null @@ -1 +0,0 @@ -define-call-float.rkt line 4 col 17 - + - binary float diff --git a/collects/tests/typed-scheme/optimizer/tests/define-float.rkt b/collects/tests/typed-scheme/optimizer/tests/define-float.rkt index fb4e85ecf4..9113cefaee 100644 --- a/collects/tests/typed-scheme/optimizer/tests/define-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/define-float.rkt @@ -1,3 +1,8 @@ +#; +( +define-float.rkt line 9 col 11 - + - binary float +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/define-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/define-float.rkt.log deleted file mode 100644 index 9425807078..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/define-float.rkt.log +++ /dev/null @@ -1 +0,0 @@ -define-float.rkt line 4 col 11 - + - binary float diff --git a/collects/tests/typed-scheme/optimizer/tests/define-pair.rkt b/collects/tests/typed-scheme/optimizer/tests/define-pair.rkt index f32efdc1af..379dcf8c39 100644 --- a/collects/tests/typed-scheme/optimizer/tests/define-pair.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/define-pair.rkt @@ -1,3 +1,8 @@ +#; +( +define-pair.rkt line 9 col 11 - car - unary pair +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/define-pair.rkt.log b/collects/tests/typed-scheme/optimizer/tests/define-pair.rkt.log deleted file mode 100644 index 4486d1bcbe..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/define-pair.rkt.log +++ /dev/null @@ -1 +0,0 @@ -define-pair.rkt line 4 col 11 - car - unary pair diff --git a/collects/tests/typed-scheme/optimizer/tests/different-langs.rkt b/collects/tests/typed-scheme/optimizer/tests/different-langs.rkt index 2d52084c71..cee704bb0e 100644 --- a/collects/tests/typed-scheme/optimizer/tests/different-langs.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/different-langs.rkt @@ -1,3 +1,8 @@ +#; +( +3 +) + #lang typed/scheme #:optimize ;; to see if the harness supports having the 2 versions of a test being diff --git a/collects/tests/typed-scheme/optimizer/tests/different-langs.rkt.log b/collects/tests/typed-scheme/optimizer/tests/different-langs.rkt.log deleted file mode 100644 index 00750edc07..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/different-langs.rkt.log +++ /dev/null @@ -1 +0,0 @@ -3 diff --git a/collects/tests/typed-scheme/optimizer/tests/double-float.rkt b/collects/tests/typed-scheme/optimizer/tests/double-float.rkt index a46f1de88e..a64003394f 100644 --- a/collects/tests/typed-scheme/optimizer/tests/double-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/double-float.rkt @@ -1,3 +1,9 @@ +#; +( +double-float.rkt line 10 col 1 - + - binary float +6.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/double-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/double-float.rkt.log deleted file mode 100644 index d8c941f953..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/double-float.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -double-float.rkt line 4 col 1 - + - binary float -6.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt b/collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt index 66b5cd34a4..d3382c3a02 100644 --- a/collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt @@ -1,3 +1,9 @@ +#; +( +exact-inexact.rkt line 10 col 1 - exact->inexact - int to float +1e+100 +) + #lang typed/scheme #:optimize (require racket/flonum) diff --git a/collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt.log b/collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt.log deleted file mode 100644 index 769f5345a9..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/exact-inexact.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -exact-inexact.rkt line 4 col 1 - exact->inexact - int to float -1e+100 diff --git a/collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt b/collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt index 9f959d1212..53384429c4 100644 --- a/collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt @@ -1,3 +1,11 @@ +#; +( +fixnum-comparison.rkt line 12 col 4 - vector-length - vector-length +#f line #f col #f - op - string-length +fixnum-comparison.rkt line 12 col 1 - < - binary fixnum +#t +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt.log b/collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt.log deleted file mode 100644 index f40fcf9321..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/fixnum-comparison.rkt.log +++ /dev/null @@ -1,4 +0,0 @@ -fixnum-comparison.rkt line 4 col 4 - vector-length - vector-length -#f line #f col #f - op - string-length -fixnum-comparison.rkt line 4 col 1 - < - binary fixnum -#t diff --git a/collects/tests/typed-scheme/optimizer/tests/float-comp.rkt b/collects/tests/typed-scheme/optimizer/tests/float-comp.rkt index 2d67b7ecd0..6cd3e00cee 100644 --- a/collects/tests/typed-scheme/optimizer/tests/float-comp.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/float-comp.rkt @@ -1,3 +1,9 @@ +#; +( +float-comp.rkt line 10 col 1 - < - binary float comp +#t +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/float-comp.rkt.log b/collects/tests/typed-scheme/optimizer/tests/float-comp.rkt.log deleted file mode 100644 index 4c247f0e8e..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/float-comp.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -float-comp.rkt line 4 col 1 - < - binary float comp -#t diff --git a/collects/tests/typed-scheme/optimizer/tests/float-fun.rkt b/collects/tests/typed-scheme/optimizer/tests/float-fun.rkt index 4aaa4a1ee3..0a20f92cc5 100644 --- a/collects/tests/typed-scheme/optimizer/tests/float-fun.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/float-fun.rkt @@ -1,3 +1,8 @@ +#; +( +float-fun.rkt line 12 col 3 - + - binary float +) + #lang typed/racket #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/float-fun.rkt.log b/collects/tests/typed-scheme/optimizer/tests/float-fun.rkt.log deleted file mode 100644 index a8433b05ba..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/float-fun.rkt.log +++ /dev/null @@ -1 +0,0 @@ -float-fun.rkt line 7 col 3 - + - binary float diff --git a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt b/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt index c3fda6ead2..641386445d 100644 --- a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt @@ -1,3 +1,12 @@ +#; +( +float-promotion.rkt line 13 col 4 - modulo - binary nonzero fixnum +float-promotion.rkt line 13 col 1 - + - binary float +float-promotion.rkt line 14 col 1 - + - binary float +2.0 +1e+200 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops racket/flonum) diff --git a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt.log b/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt.log deleted file mode 100644 index 65b20cfaa9..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -float-promotion.rkt line 4 col 4 - modulo - binary nonzero fixnum -float-promotion.rkt line 4 col 1 - + - binary float -float-promotion.rkt line 5 col 1 - + - binary float -2.0 -1e+200 diff --git a/collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt b/collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt index 35af6f4f56..2cfe1cd196 100644 --- a/collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt @@ -1,3 +1,9 @@ +#; +( +flvector-length.rkt line 10 col 1 - flvector-length - flvector-length +2 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops racket/flonum) diff --git a/collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt.log b/collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt.log deleted file mode 100644 index 1a908efd74..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/flvector-length.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -flvector-length.rkt line 4 col 1 - flvector-length - flvector-length -2 diff --git a/collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt b/collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt index f72ed808dd..7fac058b5c 100644 --- a/collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt @@ -1,3 +1,9 @@ +#; +( +fx-fl.rkt line 10 col 1 - exact->inexact - fixnum to float +1.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt.log b/collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt.log deleted file mode 100644 index 5ac1bca814..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/fx-fl.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -fx-fl.rkt line 4 col 1 - exact->inexact - fixnum to float -1.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt b/collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt index 3ee63e3120..5c5d8ba096 100644 --- a/collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt @@ -1,3 +1,21 @@ +#; +( +#f line #f col #f - make-sequence - in-bytes +#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote 123)))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-bytes.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-bytes.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +495051) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt.log b/collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt.log deleted file mode 100644 index 871ff7340e..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/in-bytes.rkt.log +++ /dev/null @@ -1,15 +0,0 @@ -#f line #f col #f - make-sequence - in-bytes -#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote 123)))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-bytes.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-bytes.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -495051 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/in-list.rkt b/collects/tests/typed-scheme/optimizer/tests/in-list.rkt index 4aec40c840..eaca57ac56 100644 --- a/collects/tests/typed-scheme/optimizer/tests/in-list.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/in-list.rkt @@ -1,3 +1,21 @@ +#; +( +#f line #f col #f - make-sequence - in-list +#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote (1 2 3))))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-list.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-list.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +123) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/in-list.rkt.log b/collects/tests/typed-scheme/optimizer/tests/in-list.rkt.log deleted file mode 100644 index 871f3e0223..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/in-list.rkt.log +++ /dev/null @@ -1,15 +0,0 @@ -#f line #f col #f - make-sequence - in-list -#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote (1 2 3))))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-list.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-list.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -123 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/in-string.rkt b/collects/tests/typed-scheme/optimizer/tests/in-string.rkt index 4b0bc6f2e0..5622cbea2e 100644 --- a/collects/tests/typed-scheme/optimizer/tests/in-string.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/in-string.rkt @@ -1,3 +1,21 @@ +#; +( +#f line #f col #f - make-sequence - in-string +#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote 123)))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-string.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-string.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +123) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/in-string.rkt.log b/collects/tests/typed-scheme/optimizer/tests/in-string.rkt.log deleted file mode 100644 index 2eee07f95a..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/in-string.rkt.log +++ /dev/null @@ -1,15 +0,0 @@ -#f line #f col #f - make-sequence - in-string -#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote 123)))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-string.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-string.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -123 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/in-vector.rkt b/collects/tests/typed-scheme/optimizer/tests/in-vector.rkt index c86d3f328f..333debddcb 100644 --- a/collects/tests/typed-scheme/optimizer/tests/in-vector.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/in-vector.rkt @@ -1,3 +1,21 @@ +#; +( +#f line #f col #f - make-sequence - in-vector +#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (#%app vector (quote 1) (quote 2) (quote 3))))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-vector.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings +#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings +#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings +#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings +in-vector.rkt line 22 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings +123) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/in-vector.rkt.log b/collects/tests/typed-scheme/optimizer/tests/in-vector.rkt.log deleted file mode 100644 index ff1303dc4f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/in-vector.rkt.log +++ /dev/null @@ -1,15 +0,0 @@ -#f line #f col #f - make-sequence - in-vector -#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (#%app vector (quote 1) (quote 2) (quote 3))))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) (#%app void) init)) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-vector.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))) - unboxed let bindings -#f line #f col #f - (let-values () (let-values () (#%app display i)) (#%app void)) - unboxed let bindings -#f line #f col #f - (let-values () (#%app display i)) - unboxed let bindings -#f line #f col #f - (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) - unboxed let bindings -in-vector.rkt line 4 col 0 - (letrec-values (((for-loop) (lambda (fold-var pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((fold-var) (let-values (((fold-var) fold-var)) (let-values () (let-values () (#%app display i)) (#%app void))))) (if (#%app all-cont? pos i) (#%app for-loop fold-var (#%app pos-next pos)) fold-var)) fold-var)) fold-var)))) for-loop) - unboxed let bindings -123 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt index 98896f9b74..f00190d120 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt @@ -1,3 +1,13 @@ +#; +( +inexact-complex-conjugate-top.rkt line 14 col 14 - 1.0+2.0i - unboxed literal +inexact-complex-conjugate-top.rkt line 14 col 23 - 2.0+4.0i - unboxed literal +inexact-complex-conjugate-top.rkt line 14 col 12 - + - unboxed binary inexact complex +inexact-complex-conjugate-top.rkt line 14 col 1 - conjugate - unboxed unary inexact complex +inexact-complex-conjugate-top.rkt line 14 col 0 - (#%app conjugate (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i))) - unboxed inexact complex +3.0-6.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt.log deleted file mode 100644 index c32d440e29..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate-top.rkt.log +++ /dev/null @@ -1,6 +0,0 @@ -inexact-complex-conjugate-top.rkt line 4 col 14 - 1.0+2.0i - unboxed literal -inexact-complex-conjugate-top.rkt line 4 col 23 - 2.0+4.0i - unboxed literal -inexact-complex-conjugate-top.rkt line 4 col 12 - + - unboxed binary inexact complex -inexact-complex-conjugate-top.rkt line 4 col 1 - conjugate - unboxed unary inexact complex -inexact-complex-conjugate-top.rkt line 4 col 0 - (#%app conjugate (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i))) - unboxed inexact complex -3.0-6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt index d0f25f4dae..1c3ca455ae 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt @@ -1,3 +1,14 @@ +#; +( +inexact-complex-conjugate.rkt line 15 col 14 - 1.0+2.0i - unboxed literal +inexact-complex-conjugate.rkt line 15 col 4 - conjugate - unboxed unary inexact complex +inexact-complex-conjugate.rkt line 15 col 35 - 2.0+4.0i - unboxed literal +inexact-complex-conjugate.rkt line 15 col 25 - conjugate - unboxed unary inexact complex +inexact-complex-conjugate.rkt line 15 col 1 - + - unboxed binary inexact complex +inexact-complex-conjugate.rkt line 15 col 0 - (#%app + (#%app conjugate (quote 1.0+2.0i)) (#%app conjugate (quote 2.0+4.0i))) - unboxed inexact complex +3.0-6.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt.log deleted file mode 100644 index 02fe881a04..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-conjugate.rkt.log +++ /dev/null @@ -1,7 +0,0 @@ -inexact-complex-conjugate.rkt line 4 col 14 - 1.0+2.0i - unboxed literal -inexact-complex-conjugate.rkt line 4 col 4 - conjugate - unboxed unary inexact complex -inexact-complex-conjugate.rkt line 4 col 35 - 2.0+4.0i - unboxed literal -inexact-complex-conjugate.rkt line 4 col 25 - conjugate - unboxed unary inexact complex -inexact-complex-conjugate.rkt line 4 col 1 - + - unboxed binary inexact complex -inexact-complex-conjugate.rkt line 4 col 0 - (#%app + (#%app conjugate (quote 1.0+2.0i)) (#%app conjugate (quote 2.0+4.0i))) - unboxed inexact complex -3.0-6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt index f716af05a5..04c4c4891e 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt @@ -1,3 +1,13 @@ +#; +( +inexact-complex-div.rkt line 14 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-div.rkt line 14 col 12 - 2.0+4.0i - unboxed literal +inexact-complex-div.rkt line 14 col 21 - 3.0+6.0i - unboxed literal +inexact-complex-div.rkt line 14 col 1 - / - unboxed binary inexact complex +inexact-complex-div.rkt line 14 col 0 - (#%app / (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex +0.03333333333333333-0.06666666666666667i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt.log deleted file mode 100644 index bb8d333a39..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-div.rkt.log +++ /dev/null @@ -1,6 +0,0 @@ -inexact-complex-div.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-div.rkt line 4 col 12 - 2.0+4.0i - unboxed literal -inexact-complex-div.rkt line 4 col 21 - 3.0+6.0i - unboxed literal -inexact-complex-div.rkt line 4 col 1 - / - unboxed binary inexact complex -inexact-complex-div.rkt line 4 col 0 - (#%app / (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex -0.03333333333333333-0.06666666666666667i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt index 09affc246f..19000e6a9a 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt @@ -1,3 +1,15 @@ +#; +( +inexact-complex-fixnum.rkt line 16 col 4 - modulo - binary nonzero fixnum +inexact-complex-fixnum.rkt line 16 col 4 - modulo - binary nonzero fixnum +inexact-complex-fixnum.rkt line 16 col 3 - (#%app modulo (quote 2) (quote 1)) - float-coerce-expr in complex ops +inexact-complex-fixnum.rkt line 16 col 16 - 1.0+2.0i - unboxed literal +inexact-complex-fixnum.rkt line 16 col 25 - 3.0+6.0i - unboxed literal +inexact-complex-fixnum.rkt line 16 col 1 - + - unboxed binary inexact complex +inexact-complex-fixnum.rkt line 16 col 0 - (#%app + (#%app modulo (quote 2) (quote 1)) (quote 1.0+2.0i) (quote 3.0+6.0i)) - unboxed inexact complex +4.0+8.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt.log deleted file mode 100644 index 89fc2ef992..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-fixnum.rkt.log +++ /dev/null @@ -1,8 +0,0 @@ -inexact-complex-fixnum.rkt line 4 col 4 - modulo - binary nonzero fixnum -inexact-complex-fixnum.rkt line 4 col 4 - modulo - binary nonzero fixnum -inexact-complex-fixnum.rkt line 4 col 3 - (#%app modulo (quote 2) (quote 1)) - float-coerce-expr in complex ops -inexact-complex-fixnum.rkt line 4 col 16 - 1.0+2.0i - unboxed literal -inexact-complex-fixnum.rkt line 4 col 25 - 3.0+6.0i - unboxed literal -inexact-complex-fixnum.rkt line 4 col 1 - + - unboxed binary inexact complex -inexact-complex-fixnum.rkt line 4 col 0 - (#%app + (#%app modulo (quote 2) (quote 1)) (quote 1.0+2.0i) (quote 3.0+6.0i)) - unboxed inexact complex -4.0+8.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt index e94bcb1bf0..0519e2e2e4 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt @@ -1,3 +1,45 @@ +#; +( +inexact-complex-float-div.rkt line 47 col 62 - x - unbox inexact-complex +inexact-complex-float-div.rkt line 47 col 52 - real-part - unboxed inexact complex +inexact-complex-float-div.rkt line 48 col 62 - x - unbox inexact-complex +inexact-complex-float-div.rkt line 48 col 52 - imag-part - unboxed inexact complex +inexact-complex-float-div.rkt line 50 col 9 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 50 col 13 - 2.0+4.0i - unboxed literal +inexact-complex-float-div.rkt line 50 col 7 - / - unboxed binary inexact complex +inexact-complex-float-div.rkt line 50 col 6 - (#%app / (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-float-div.rkt line 51 col 9 - 1.0+2.0i - unboxed literal +inexact-complex-float-div.rkt line 51 col 18 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 51 col 7 - / - unboxed binary inexact complex +inexact-complex-float-div.rkt line 51 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0)) - unboxed inexact complex +inexact-complex-float-div.rkt line 52 col 9 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 52 col 13 - 2.0+4.0i - unboxed literal +inexact-complex-float-div.rkt line 52 col 22 - 3.0+6.0i - unboxed literal +inexact-complex-float-div.rkt line 52 col 7 - / - unboxed binary inexact complex +inexact-complex-float-div.rkt line 52 col 6 - (#%app / (quote 1.0) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex +inexact-complex-float-div.rkt line 53 col 9 - 1.0+2.0i - unboxed literal +inexact-complex-float-div.rkt line 53 col 18 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 53 col 22 - 3.0+6.0i - unboxed literal +inexact-complex-float-div.rkt line 53 col 7 - / - unboxed binary inexact complex +inexact-complex-float-div.rkt line 53 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex +inexact-complex-float-div.rkt line 54 col 9 - 1.0+2.0i - unboxed literal +inexact-complex-float-div.rkt line 54 col 18 - 2.0+4.0i - unboxed literal +inexact-complex-float-div.rkt line 54 col 27 - (quote 3.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 54 col 7 - / - unboxed binary inexact complex +inexact-complex-float-div.rkt line 54 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0)) - unboxed inexact complex +inexact-complex-float-div.rkt line 55 col 9 - 1.0+2.0i - unboxed literal +inexact-complex-float-div.rkt line 55 col 18 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 55 col 22 - (quote 3.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 55 col 7 - / - unboxed binary inexact complex +inexact-complex-float-div.rkt line 55 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0) (quote 3.0)) - unboxed inexact complex +inexact-complex-float-div.rkt line 56 col 9 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 56 col 13 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-div.rkt line 56 col 17 - 3.0+6.0i - unboxed literal +inexact-complex-float-div.rkt line 56 col 7 - / - unboxed binary inexact complex +inexact-complex-float-div.rkt line 56 col 6 - (#%app / (quote 1.0) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex +'("0.1000000000-0.2000000000" "0.50000000001.0000000000" "-0.0200000000-0.0266666667" "0.16666666670.0000000000" "0.16666666670.0000000000" "0.16666666670.3333333333" "0.0333333333-0.0666666667") +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt.log deleted file mode 100644 index 66974f7510..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-div.rkt.log +++ /dev/null @@ -1,38 +0,0 @@ -inexact-complex-float-div.rkt line 5 col 62 - x - unbox inexact-complex -inexact-complex-float-div.rkt line 5 col 52 - real-part - unboxed inexact complex -inexact-complex-float-div.rkt line 6 col 62 - x - unbox inexact-complex -inexact-complex-float-div.rkt line 6 col 52 - imag-part - unboxed inexact complex -inexact-complex-float-div.rkt line 8 col 9 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 8 col 13 - 2.0+4.0i - unboxed literal -inexact-complex-float-div.rkt line 8 col 7 - / - unboxed binary inexact complex -inexact-complex-float-div.rkt line 8 col 6 - (#%app / (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-float-div.rkt line 9 col 9 - 1.0+2.0i - unboxed literal -inexact-complex-float-div.rkt line 9 col 18 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 9 col 7 - / - unboxed binary inexact complex -inexact-complex-float-div.rkt line 9 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0)) - unboxed inexact complex -inexact-complex-float-div.rkt line 10 col 9 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 10 col 13 - 2.0+4.0i - unboxed literal -inexact-complex-float-div.rkt line 10 col 22 - 3.0+6.0i - unboxed literal -inexact-complex-float-div.rkt line 10 col 7 - / - unboxed binary inexact complex -inexact-complex-float-div.rkt line 10 col 6 - (#%app / (quote 1.0) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex -inexact-complex-float-div.rkt line 11 col 9 - 1.0+2.0i - unboxed literal -inexact-complex-float-div.rkt line 11 col 18 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 11 col 22 - 3.0+6.0i - unboxed literal -inexact-complex-float-div.rkt line 11 col 7 - / - unboxed binary inexact complex -inexact-complex-float-div.rkt line 11 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex -inexact-complex-float-div.rkt line 12 col 9 - 1.0+2.0i - unboxed literal -inexact-complex-float-div.rkt line 12 col 18 - 2.0+4.0i - unboxed literal -inexact-complex-float-div.rkt line 12 col 27 - (quote 3.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 12 col 7 - / - unboxed binary inexact complex -inexact-complex-float-div.rkt line 12 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0)) - unboxed inexact complex -inexact-complex-float-div.rkt line 13 col 9 - 1.0+2.0i - unboxed literal -inexact-complex-float-div.rkt line 13 col 18 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 13 col 22 - (quote 3.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 13 col 7 - / - unboxed binary inexact complex -inexact-complex-float-div.rkt line 13 col 6 - (#%app / (quote 1.0+2.0i) (quote 2.0) (quote 3.0)) - unboxed inexact complex -inexact-complex-float-div.rkt line 14 col 9 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 14 col 13 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-div.rkt line 14 col 17 - 3.0+6.0i - unboxed literal -inexact-complex-float-div.rkt line 14 col 7 - / - unboxed binary inexact complex -inexact-complex-float-div.rkt line 14 col 6 - (#%app / (quote 1.0) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex -'("0.1000000000-0.2000000000" "0.50000000001.0000000000" "-0.0200000000-0.0266666667" "0.16666666670.0000000000" "0.16666666670.0000000000" "0.16666666670.3333333333" "0.0333333333-0.0666666667") diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt index 7dc131755a..351f9b872d 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt @@ -1,3 +1,41 @@ +#; +( +inexact-complex-float-mul.rkt line 42 col 3 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-mul.rkt line 42 col 7 - 2.0+4.0i - unboxed literal +inexact-complex-float-mul.rkt line 42 col 1 - * - unboxed binary inexact complex +inexact-complex-float-mul.rkt line 42 col 0 - (#%app * (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-float-mul.rkt line 43 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float-mul.rkt line 43 col 12 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-mul.rkt line 43 col 1 - * - unboxed binary inexact complex +inexact-complex-float-mul.rkt line 43 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0)) - unboxed inexact complex +inexact-complex-float-mul.rkt line 44 col 3 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-mul.rkt line 44 col 7 - 2.0+4.0i - unboxed literal +inexact-complex-float-mul.rkt line 44 col 16 - 3.0+6.0i - unboxed literal +inexact-complex-float-mul.rkt line 44 col 1 - * - unboxed binary inexact complex +inexact-complex-float-mul.rkt line 44 col 0 - (#%app * (quote 1.0) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex +inexact-complex-float-mul.rkt line 45 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float-mul.rkt line 45 col 12 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-mul.rkt line 45 col 16 - 3.0+6.0i - unboxed literal +inexact-complex-float-mul.rkt line 45 col 1 - * - unboxed binary inexact complex +inexact-complex-float-mul.rkt line 45 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex +inexact-complex-float-mul.rkt line 46 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float-mul.rkt line 46 col 12 - 2.0+4.0i - unboxed literal +inexact-complex-float-mul.rkt line 46 col 21 - (quote 3.0) - float-coerce-expr in complex ops +inexact-complex-float-mul.rkt line 46 col 1 - * - unboxed binary inexact complex +inexact-complex-float-mul.rkt line 46 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0)) - unboxed inexact complex +inexact-complex-float-mul.rkt line 47 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float-mul.rkt line 47 col 12 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-mul.rkt line 47 col 16 - (quote 3.0) - float-coerce-expr in complex ops +inexact-complex-float-mul.rkt line 47 col 1 - * - unboxed binary inexact complex +inexact-complex-float-mul.rkt line 47 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0) (quote 3.0)) - unboxed inexact complex +2.0+4.0i +2.0+4.0i +-18.0+24.0i +-18.0+24.0i +-18.0+24.0i +6.0+12.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt.log deleted file mode 100644 index 8df845cb0f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-mul.rkt.log +++ /dev/null @@ -1,34 +0,0 @@ -inexact-complex-float-mul.rkt line 4 col 3 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-mul.rkt line 4 col 7 - 2.0+4.0i - unboxed literal -inexact-complex-float-mul.rkt line 4 col 1 - * - unboxed binary inexact complex -inexact-complex-float-mul.rkt line 4 col 0 - (#%app * (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-float-mul.rkt line 5 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float-mul.rkt line 5 col 12 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-mul.rkt line 5 col 1 - * - unboxed binary inexact complex -inexact-complex-float-mul.rkt line 5 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0)) - unboxed inexact complex -inexact-complex-float-mul.rkt line 6 col 3 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-mul.rkt line 6 col 7 - 2.0+4.0i - unboxed literal -inexact-complex-float-mul.rkt line 6 col 16 - 3.0+6.0i - unboxed literal -inexact-complex-float-mul.rkt line 6 col 1 - * - unboxed binary inexact complex -inexact-complex-float-mul.rkt line 6 col 0 - (#%app * (quote 1.0) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex -inexact-complex-float-mul.rkt line 7 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float-mul.rkt line 7 col 12 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-mul.rkt line 7 col 16 - 3.0+6.0i - unboxed literal -inexact-complex-float-mul.rkt line 7 col 1 - * - unboxed binary inexact complex -inexact-complex-float-mul.rkt line 7 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex -inexact-complex-float-mul.rkt line 8 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float-mul.rkt line 8 col 12 - 2.0+4.0i - unboxed literal -inexact-complex-float-mul.rkt line 8 col 21 - (quote 3.0) - float-coerce-expr in complex ops -inexact-complex-float-mul.rkt line 8 col 1 - * - unboxed binary inexact complex -inexact-complex-float-mul.rkt line 8 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0)) - unboxed inexact complex -inexact-complex-float-mul.rkt line 9 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float-mul.rkt line 9 col 12 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-mul.rkt line 9 col 16 - (quote 3.0) - float-coerce-expr in complex ops -inexact-complex-float-mul.rkt line 9 col 1 - * - unboxed binary inexact complex -inexact-complex-float-mul.rkt line 9 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0) (quote 3.0)) - unboxed inexact complex -2.0+4.0i -2.0+4.0i --18.0+24.0i --18.0+24.0i --18.0+24.0i -6.0+12.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt index dddbbcee41..50b60942d6 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt @@ -1,3 +1,35 @@ +#; +( +inexact-complex-float-small.rkt line 36 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float-small.rkt line 36 col 12 - (quote 3.0) - float-coerce-expr in complex ops +inexact-complex-float-small.rkt line 36 col 1 - + - unboxed binary inexact complex +inexact-complex-float-small.rkt line 36 col 0 - (#%app + (quote 1.0+2.0i) (quote 3.0)) - unboxed inexact complex +inexact-complex-float-small.rkt line 37 col 3 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-small.rkt line 37 col 7 - 2.0+4.0i - unboxed literal +inexact-complex-float-small.rkt line 37 col 1 - + - unboxed binary inexact complex +inexact-complex-float-small.rkt line 37 col 0 - (#%app + (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-float-small.rkt line 38 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float-small.rkt line 38 col 12 - (quote 3.0) - float-coerce-expr in complex ops +inexact-complex-float-small.rkt line 38 col 1 - - - unboxed binary inexact complex +inexact-complex-float-small.rkt line 38 col 0 - (#%app - (quote 1.0+2.0i) (quote 3.0)) - unboxed inexact complex +inexact-complex-float-small.rkt line 39 col 3 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-small.rkt line 39 col 7 - 2.0+4.0i - unboxed literal +inexact-complex-float-small.rkt line 39 col 1 - - - unboxed binary inexact complex +inexact-complex-float-small.rkt line 39 col 0 - (#%app - (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-float-small.rkt line 40 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float-small.rkt line 40 col 15 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float-small.rkt line 40 col 19 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float-small.rkt line 40 col 13 - + - binary float +inexact-complex-float-small.rkt line 40 col 12 - (#%app + (quote 1.0) (quote 2.0)) - float-coerce-expr in complex ops +inexact-complex-float-small.rkt line 40 col 1 - + - unboxed binary inexact complex +inexact-complex-float-small.rkt line 40 col 0 - (#%app + (quote 1.0+2.0i) (#%app + (quote 1.0) (quote 2.0))) - unboxed inexact complex +4.0+2.0i +3.0+4.0i +-2.0+2.0i +-1.0-4.0i +4.0+2.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt.log deleted file mode 100644 index 2af438d5b4..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float-small.rkt.log +++ /dev/null @@ -1,28 +0,0 @@ -inexact-complex-float-small.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float-small.rkt line 4 col 12 - (quote 3.0) - float-coerce-expr in complex ops -inexact-complex-float-small.rkt line 4 col 1 - + - unboxed binary inexact complex -inexact-complex-float-small.rkt line 4 col 0 - (#%app + (quote 1.0+2.0i) (quote 3.0)) - unboxed inexact complex -inexact-complex-float-small.rkt line 5 col 3 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-small.rkt line 5 col 7 - 2.0+4.0i - unboxed literal -inexact-complex-float-small.rkt line 5 col 1 - + - unboxed binary inexact complex -inexact-complex-float-small.rkt line 5 col 0 - (#%app + (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-float-small.rkt line 6 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float-small.rkt line 6 col 12 - (quote 3.0) - float-coerce-expr in complex ops -inexact-complex-float-small.rkt line 6 col 1 - - - unboxed binary inexact complex -inexact-complex-float-small.rkt line 6 col 0 - (#%app - (quote 1.0+2.0i) (quote 3.0)) - unboxed inexact complex -inexact-complex-float-small.rkt line 7 col 3 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-small.rkt line 7 col 7 - 2.0+4.0i - unboxed literal -inexact-complex-float-small.rkt line 7 col 1 - - - unboxed binary inexact complex -inexact-complex-float-small.rkt line 7 col 0 - (#%app - (quote 1.0) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-float-small.rkt line 8 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float-small.rkt line 8 col 15 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float-small.rkt line 8 col 19 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float-small.rkt line 8 col 13 - + - binary float -inexact-complex-float-small.rkt line 8 col 12 - (#%app + (quote 1.0) (quote 2.0)) - float-coerce-expr in complex ops -inexact-complex-float-small.rkt line 8 col 1 - + - unboxed binary inexact complex -inexact-complex-float-small.rkt line 8 col 0 - (#%app + (quote 1.0+2.0i) (#%app + (quote 1.0) (quote 2.0))) - unboxed inexact complex -4.0+2.0i -3.0+4.0i --2.0+2.0i --1.0-4.0i -4.0+2.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt index 8c0e9080e0..1711348cec 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt @@ -1,3 +1,31 @@ +#; +( +inexact-complex-float.rkt line 32 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float.rkt line 32 col 12 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float.rkt line 32 col 16 - 3.0+6.0i - unboxed literal +inexact-complex-float.rkt line 32 col 1 - + - unboxed binary inexact complex +inexact-complex-float.rkt line 32 col 0 - (#%app + (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex +inexact-complex-float.rkt line 33 col 3 - (quote 1.0) - float-coerce-expr in complex ops +inexact-complex-float.rkt line 33 col 7 - 2.0+4.0i - unboxed literal +inexact-complex-float.rkt line 33 col 16 - 3.0+6.0i - unboxed literal +inexact-complex-float.rkt line 33 col 1 - - - unboxed binary inexact complex +inexact-complex-float.rkt line 33 col 0 - (#%app - (quote 1.0) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex +inexact-complex-float.rkt line 34 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float.rkt line 34 col 12 - (quote 2.0) - float-coerce-expr in complex ops +inexact-complex-float.rkt line 34 col 16 - 3.0+6.0i - unboxed literal +inexact-complex-float.rkt line 34 col 1 - - - unboxed binary inexact complex +inexact-complex-float.rkt line 34 col 0 - (#%app - (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex +inexact-complex-float.rkt line 35 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-float.rkt line 35 col 12 - 2.0+4.0i - unboxed literal +inexact-complex-float.rkt line 35 col 21 - (quote 3.0) - float-coerce-expr in complex ops +inexact-complex-float.rkt line 35 col 1 - - - unboxed binary inexact complex +inexact-complex-float.rkt line 35 col 0 - (#%app - (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0)) - unboxed inexact complex +6.0+8.0i +-4.0-10.0i +-4.0-4.0i +-4.0-2.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt.log deleted file mode 100644 index ccf9a57c4c..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-float.rkt.log +++ /dev/null @@ -1,24 +0,0 @@ -inexact-complex-float.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float.rkt line 4 col 12 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float.rkt line 4 col 16 - 3.0+6.0i - unboxed literal -inexact-complex-float.rkt line 4 col 1 - + - unboxed binary inexact complex -inexact-complex-float.rkt line 4 col 0 - (#%app + (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex -inexact-complex-float.rkt line 5 col 3 - (quote 1.0) - float-coerce-expr in complex ops -inexact-complex-float.rkt line 5 col 7 - 2.0+4.0i - unboxed literal -inexact-complex-float.rkt line 5 col 16 - 3.0+6.0i - unboxed literal -inexact-complex-float.rkt line 5 col 1 - - - unboxed binary inexact complex -inexact-complex-float.rkt line 5 col 0 - (#%app - (quote 1.0) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex -inexact-complex-float.rkt line 6 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float.rkt line 6 col 12 - (quote 2.0) - float-coerce-expr in complex ops -inexact-complex-float.rkt line 6 col 16 - 3.0+6.0i - unboxed literal -inexact-complex-float.rkt line 6 col 1 - - - unboxed binary inexact complex -inexact-complex-float.rkt line 6 col 0 - (#%app - (quote 1.0+2.0i) (quote 2.0) (quote 3.0+6.0i)) - unboxed inexact complex -inexact-complex-float.rkt line 7 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-float.rkt line 7 col 12 - 2.0+4.0i - unboxed literal -inexact-complex-float.rkt line 7 col 21 - (quote 3.0) - float-coerce-expr in complex ops -inexact-complex-float.rkt line 7 col 1 - - - unboxed binary inexact complex -inexact-complex-float.rkt line 7 col 0 - (#%app - (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0)) - unboxed inexact complex -6.0+8.0i --4.0-10.0i --4.0-4.0i --4.0-2.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt index 6b8adae5f1..aae6f6a799 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt @@ -1,3 +1,14 @@ +#; +( +inexact-complex-i.rkt line 15 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-i.rkt line 15 col 15 - 0+1.0i - unboxed literal +inexact-complex-i.rkt line 15 col 21 - 2.0+4.0i - unboxed literal +inexact-complex-i.rkt line 15 col 13 - * - unboxed binary inexact complex +inexact-complex-i.rkt line 15 col 1 - + - unboxed binary inexact complex +inexact-complex-i.rkt line 15 col 0 - (#%app + (quote 1.0+2.0i) (#%app * (quote 0+1.0i) (quote 2.0+4.0i))) - unboxed inexact complex +-3.0+4.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt.log deleted file mode 100644 index 657af7ca2f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-i.rkt.log +++ /dev/null @@ -1,7 +0,0 @@ -inexact-complex-i.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-i.rkt line 4 col 15 - 0+1.0i - unboxed literal -inexact-complex-i.rkt line 4 col 21 - 2.0+4.0i - unboxed literal -inexact-complex-i.rkt line 4 col 13 - * - unboxed binary inexact complex -inexact-complex-i.rkt line 4 col 1 - + - unboxed binary inexact complex -inexact-complex-i.rkt line 4 col 0 - (#%app + (quote 1.0+2.0i) (#%app * (quote 0+1.0i) (quote 2.0+4.0i))) - unboxed inexact complex --3.0+4.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt index 55caa0bf24..32a4458aab 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt @@ -1,3 +1,12 @@ +#; +( +inexact-complex-integer.rkt line 13 col 3 - (#%app expt (quote 2) (quote 100)) - float-coerce-expr in complex ops +inexact-complex-integer.rkt line 13 col 16 - 1.0+2.0i - unboxed literal +inexact-complex-integer.rkt line 13 col 1 - + - unboxed binary inexact complex +inexact-complex-integer.rkt line 13 col 0 - (#%app + (#%app expt (quote 2) (quote 100)) (quote 1.0+2.0i)) - unboxed inexact complex +1.2676506002282294e+30+2.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops racket/flonum) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt.log deleted file mode 100644 index 594060afe7..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-integer.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -inexact-complex-integer.rkt line 4 col 3 - (#%app expt (quote 2) (quote 100)) - float-coerce-expr in complex ops -inexact-complex-integer.rkt line 4 col 16 - 1.0+2.0i - unboxed literal -inexact-complex-integer.rkt line 4 col 1 - + - unboxed binary inexact complex -inexact-complex-integer.rkt line 4 col 0 - (#%app + (#%app expt (quote 2) (quote 100)) (quote 1.0+2.0i)) - unboxed inexact complex -1.2676506002282294e+30+2.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt index 5d31dfd8cd..3d0f21fe3f 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt @@ -1,3 +1,13 @@ +#; +( +inexact-complex-mult.rkt line 14 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-mult.rkt line 14 col 12 - 2.0+4.0i - unboxed literal +inexact-complex-mult.rkt line 14 col 21 - 3.0+6.0i - unboxed literal +inexact-complex-mult.rkt line 14 col 1 - * - unboxed binary inexact complex +inexact-complex-mult.rkt line 14 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex +-66.0-12.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt.log deleted file mode 100644 index ced7da3caf..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-mult.rkt.log +++ /dev/null @@ -1,6 +0,0 @@ -inexact-complex-mult.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-mult.rkt line 4 col 12 - 2.0+4.0i - unboxed literal -inexact-complex-mult.rkt line 4 col 21 - 3.0+6.0i - unboxed literal -inexact-complex-mult.rkt line 4 col 1 - * - unboxed binary inexact complex -inexact-complex-mult.rkt line 4 col 0 - (#%app * (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0+6.0i)) - unboxed inexact complex --66.0-12.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt index 8bf303f850..f677196ba3 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt @@ -1,3 +1,16 @@ +#; +( +inexact-complex-parts.rkt line 17 col 11 - 1.0+2.0i - unboxed literal +inexact-complex-parts.rkt line 17 col 1 - real-part - unboxed inexact complex +inexact-complex-parts.rkt line 18 col 11 - 1.0+2.0i - unboxed literal +inexact-complex-parts.rkt line 18 col 1 - imag-part - unboxed inexact complex +inexact-complex-parts.rkt line 19 col 11 - 1.0+2.0i - unboxed literal +inexact-complex-parts.rkt line 19 col 1 - real-part - unboxed inexact complex +1.0 +2.0 +1.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt.log deleted file mode 100644 index 2b4cd97e4f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts.rkt.log +++ /dev/null @@ -1,9 +0,0 @@ -inexact-complex-parts.rkt line 4 col 11 - 1.0+2.0i - unboxed literal -inexact-complex-parts.rkt line 4 col 1 - real-part - unboxed inexact complex -inexact-complex-parts.rkt line 5 col 11 - 1.0+2.0i - unboxed literal -inexact-complex-parts.rkt line 5 col 1 - imag-part - unboxed inexact complex -inexact-complex-parts.rkt line 6 col 11 - 1.0+2.0i - unboxed literal -inexact-complex-parts.rkt line 6 col 1 - real-part - unboxed inexact complex -1.0 -2.0 -1.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt index 67c4d048e9..7ff10458de 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt @@ -1,3 +1,43 @@ +#; +( +inexact-complex-parts2.rkt line 46 col 14 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 46 col 23 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 46 col 12 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 46 col 11 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-parts2.rkt line 46 col 14 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 46 col 23 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 46 col 12 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 46 col 1 - real-part - unboxed inexact complex +inexact-complex-parts2.rkt line 47 col 23 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 47 col 32 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 47 col 21 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 47 col 20 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-parts2.rkt line 47 col 23 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 47 col 32 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 47 col 21 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 47 col 1 - unsafe-flreal-part - unboxed inexact complex +inexact-complex-parts2.rkt line 48 col 14 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 48 col 23 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 48 col 12 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 48 col 11 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-parts2.rkt line 48 col 14 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 48 col 23 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 48 col 12 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 48 col 1 - imag-part - unboxed inexact complex +inexact-complex-parts2.rkt line 49 col 23 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 49 col 32 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 49 col 21 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 49 col 20 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex-parts2.rkt line 49 col 23 - 1.0+2.0i - unboxed literal +inexact-complex-parts2.rkt line 49 col 32 - 2.0+4.0i - unboxed literal +inexact-complex-parts2.rkt line 49 col 21 - + - unboxed binary inexact complex +inexact-complex-parts2.rkt line 49 col 1 - unsafe-flimag-part - unboxed inexact complex +3.0 +3.0 +6.0 +6.0 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt.log deleted file mode 100644 index a1b668c70f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts2.rkt.log +++ /dev/null @@ -1,36 +0,0 @@ -inexact-complex-parts2.rkt line 6 col 14 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 6 col 23 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 6 col 12 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 6 col 11 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-parts2.rkt line 6 col 14 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 6 col 23 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 6 col 12 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 6 col 1 - real-part - unboxed inexact complex -inexact-complex-parts2.rkt line 7 col 23 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 7 col 32 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 7 col 21 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 7 col 20 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-parts2.rkt line 7 col 23 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 7 col 32 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 7 col 21 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 7 col 1 - unsafe-flreal-part - unboxed inexact complex -inexact-complex-parts2.rkt line 8 col 14 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 8 col 23 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 8 col 12 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 8 col 11 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-parts2.rkt line 8 col 14 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 8 col 23 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 8 col 12 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 8 col 1 - imag-part - unboxed inexact complex -inexact-complex-parts2.rkt line 9 col 23 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 9 col 32 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 9 col 21 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 9 col 20 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex-parts2.rkt line 9 col 23 - 1.0+2.0i - unboxed literal -inexact-complex-parts2.rkt line 9 col 32 - 2.0+4.0i - unboxed literal -inexact-complex-parts2.rkt line 9 col 21 - + - unboxed binary inexact complex -inexact-complex-parts2.rkt line 9 col 1 - unsafe-flimag-part - unboxed inexact complex -3.0 -3.0 -6.0 -6.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt index 4c681aa140..4c5770489b 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt @@ -1,3 +1,39 @@ +#; +( +inexact-complex-parts3.rkt line 42 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-parts3.rkt line 42 col 26 - 2.0+4.0i - unboxed literal +inexact-complex-parts3.rkt line 42 col 35 - 3.0+6.0i - unboxed literal +inexact-complex-parts3.rkt line 42 col 24 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 42 col 13 - real-part - unboxed unary inexact complex +inexact-complex-parts3.rkt line 42 col 1 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 42 col 0 - (#%app + (quote 1.0+2.0i) (#%app real-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex +inexact-complex-parts3.rkt line 43 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-parts3.rkt line 43 col 35 - 2.0+4.0i - unboxed literal +inexact-complex-parts3.rkt line 43 col 44 - 3.0+6.0i - unboxed literal +inexact-complex-parts3.rkt line 43 col 33 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 43 col 13 - unsafe-flreal-part - unboxed unary inexact complex +inexact-complex-parts3.rkt line 43 col 1 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 43 col 0 - (#%app + (quote 1.0+2.0i) (#%app unsafe-flreal-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex +inexact-complex-parts3.rkt line 44 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-parts3.rkt line 44 col 26 - 2.0+4.0i - unboxed literal +inexact-complex-parts3.rkt line 44 col 35 - 3.0+6.0i - unboxed literal +inexact-complex-parts3.rkt line 44 col 24 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 44 col 13 - imag-part - unboxed unary inexact complex +inexact-complex-parts3.rkt line 44 col 1 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 44 col 0 - (#%app + (quote 1.0+2.0i) (#%app imag-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex +inexact-complex-parts3.rkt line 45 col 3 - 1.0+2.0i - unboxed literal +inexact-complex-parts3.rkt line 45 col 35 - 2.0+4.0i - unboxed literal +inexact-complex-parts3.rkt line 45 col 44 - 3.0+6.0i - unboxed literal +inexact-complex-parts3.rkt line 45 col 33 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 45 col 13 - unsafe-flimag-part - unboxed unary inexact complex +inexact-complex-parts3.rkt line 45 col 1 - + - unboxed binary inexact complex +inexact-complex-parts3.rkt line 45 col 0 - (#%app + (quote 1.0+2.0i) (#%app unsafe-flimag-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex +6.0+2.0i +6.0+2.0i +11.0+2.0i +11.0+2.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt.log deleted file mode 100644 index 083899bbd6..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-parts3.rkt.log +++ /dev/null @@ -1,32 +0,0 @@ -inexact-complex-parts3.rkt line 6 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-parts3.rkt line 6 col 26 - 2.0+4.0i - unboxed literal -inexact-complex-parts3.rkt line 6 col 35 - 3.0+6.0i - unboxed literal -inexact-complex-parts3.rkt line 6 col 24 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 6 col 13 - real-part - unboxed unary inexact complex -inexact-complex-parts3.rkt line 6 col 1 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 6 col 0 - (#%app + (quote 1.0+2.0i) (#%app real-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex -inexact-complex-parts3.rkt line 7 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-parts3.rkt line 7 col 35 - 2.0+4.0i - unboxed literal -inexact-complex-parts3.rkt line 7 col 44 - 3.0+6.0i - unboxed literal -inexact-complex-parts3.rkt line 7 col 33 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 7 col 13 - unsafe-flreal-part - unboxed unary inexact complex -inexact-complex-parts3.rkt line 7 col 1 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 7 col 0 - (#%app + (quote 1.0+2.0i) (#%app unsafe-flreal-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex -inexact-complex-parts3.rkt line 8 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-parts3.rkt line 8 col 26 - 2.0+4.0i - unboxed literal -inexact-complex-parts3.rkt line 8 col 35 - 3.0+6.0i - unboxed literal -inexact-complex-parts3.rkt line 8 col 24 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 8 col 13 - imag-part - unboxed unary inexact complex -inexact-complex-parts3.rkt line 8 col 1 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 8 col 0 - (#%app + (quote 1.0+2.0i) (#%app imag-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex -inexact-complex-parts3.rkt line 9 col 3 - 1.0+2.0i - unboxed literal -inexact-complex-parts3.rkt line 9 col 35 - 2.0+4.0i - unboxed literal -inexact-complex-parts3.rkt line 9 col 44 - 3.0+6.0i - unboxed literal -inexact-complex-parts3.rkt line 9 col 33 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 9 col 13 - unsafe-flimag-part - unboxed unary inexact complex -inexact-complex-parts3.rkt line 9 col 1 - + - unboxed binary inexact complex -inexact-complex-parts3.rkt line 9 col 0 - (#%app + (quote 1.0+2.0i) (#%app unsafe-flimag-part (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) - unboxed inexact complex -6.0+2.0i -6.0+2.0i -11.0+2.0i -11.0+2.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt index 04a96f727f..2bf1fc70cb 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt @@ -1,3 +1,12 @@ +#; +( +inexact-complex-sin.rkt line 14 col 13 - (#%app sin (#%app * t (quote 6.28))) - float-coerce-expr in complex ops +inexact-complex-sin.rkt line 14 col 30 - 0.0+0.0i - unboxed literal +inexact-complex-sin.rkt line 14 col 11 - + - unboxed binary inexact complex +inexact-complex-sin.rkt line 14 col 10 - (#%app + (#%app sin (#%app * t (quote 6.28))) (quote 0.0+0.0i)) - unboxed inexact complex +-0.0031853017931379904+0.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt.log deleted file mode 100644 index f1084edef3..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex-sin.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -inexact-complex-sin.rkt line 5 col 13 - (#%app sin (#%app * t (quote 6.28))) - float-coerce-expr in complex ops -inexact-complex-sin.rkt line 5 col 30 - 0.0+0.0i - unboxed literal -inexact-complex-sin.rkt line 5 col 11 - + - unboxed binary inexact complex -inexact-complex-sin.rkt line 5 col 10 - (#%app + (#%app sin (#%app * t (quote 6.28))) (quote 0.0+0.0i)) - unboxed inexact complex --0.0031853017931379904+0.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt b/collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt index ba1f440693..ecab28b67e 100644 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt @@ -1,3 +1,17 @@ +#; +( +inexact-complex.rkt line 18 col 3 - 1.0+2.0i - unboxed literal +inexact-complex.rkt line 18 col 12 - 2.0+4.0i - unboxed literal +inexact-complex.rkt line 18 col 1 - + - unboxed binary inexact complex +inexact-complex.rkt line 18 col 0 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +inexact-complex.rkt line 19 col 3 - 1.0+2.0i - unboxed literal +inexact-complex.rkt line 19 col 12 - 2.0+4.0i - unboxed literal +inexact-complex.rkt line 19 col 1 - - - unboxed binary inexact complex +inexact-complex.rkt line 19 col 0 - (#%app - (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +3.0+6.0i +-1.0-2.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt.log b/collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt.log deleted file mode 100644 index d8b7ac6b38..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/inexact-complex.rkt.log +++ /dev/null @@ -1,10 +0,0 @@ -inexact-complex.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -inexact-complex.rkt line 4 col 12 - 2.0+4.0i - unboxed literal -inexact-complex.rkt line 4 col 1 - + - unboxed binary inexact complex -inexact-complex.rkt line 4 col 0 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -inexact-complex.rkt line 5 col 3 - 1.0+2.0i - unboxed literal -inexact-complex.rkt line 5 col 12 - 2.0+4.0i - unboxed literal -inexact-complex.rkt line 5 col 1 - - - unboxed binary inexact complex -inexact-complex.rkt line 5 col 0 - (#%app - (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -3.0+6.0i --1.0-2.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-binary-nonzero-fixnum.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-binary-nonzero-fixnum.rkt index 389c47d44e..d4090067af 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-binary-nonzero-fixnum.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-binary-nonzero-fixnum.rkt @@ -1,3 +1,6 @@ +#; +() + #lang typed/scheme #:optimize (: f ( -> Void)) diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-binary-nonzero-fixnum.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-binary-nonzero-fixnum.rkt.log deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt index be9df5ae66..283a9c37e1 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt @@ -1,3 +1,9 @@ +#; +( +invalid-exact-inexact.rkt line 9 col 1 - exact->inexact - float to float +1.0 +) + #lang typed/scheme #:optimize (exact->inexact 1.0) ; not an integer, can't optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt.log deleted file mode 100644 index da50f1cd5a..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-exact-inexact.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -invalid-exact-inexact.rkt line 3 col 1 - exact->inexact - float to float -1.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt index 058e956851..1de1b62411 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt @@ -1,3 +1,8 @@ +#; +( +#t +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt.log deleted file mode 100644 index 56ed4c7fe1..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-float-comp.rkt.log +++ /dev/null @@ -1 +0,0 @@ -#t diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt index ef72d390a1..5a2588a893 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt @@ -1,3 +1,8 @@ +#; +( +0.5 +) + #lang typed/scheme #:optimize (/ 1 2.0) ; result is not a float, can't optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt.log deleted file mode 100644 index 2eb3c4fe4e..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-float-promotion.rkt.log +++ /dev/null @@ -1 +0,0 @@ -0.5 diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt index 6a3345d379..3a8bad9e73 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt @@ -1,3 +1,8 @@ +#; +( +1 +) + #lang typed/scheme #:optimize (real-part 1+2i) diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt.log deleted file mode 100644 index d00491fd7e..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-inexact-complex-parts.rkt.log +++ /dev/null @@ -1 +0,0 @@ -1 diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt index 45995fcce6..607b0d4a6a 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt @@ -1,3 +1,8 @@ +#; +( +1+2i +) + #lang typed/scheme #:optimize (make-rectangular 1 2) diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt.log deleted file mode 100644 index a62cde7150..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-make-flrectangular.rkt.log +++ /dev/null @@ -1 +0,0 @@ -1+2i diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt index cd94a75868..4c3b0d1d23 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt @@ -1,3 +1,8 @@ +#; +( +0 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt.log deleted file mode 100644 index 573541ac97..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-make-polar.rkt.log +++ /dev/null @@ -1 +0,0 @@ -0 diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-mpair.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-mpair.rkt index 54fd281b66..3d2995ba57 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-mpair.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-mpair.rkt @@ -1,3 +1,6 @@ +#; +() + #lang typed/scheme #:optimize (: f ((MListof Integer) -> Integer)) diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-mpair.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-mpair.rkt.log deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt index bd4182fa8b..2f9bb37adf 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt @@ -1,3 +1,8 @@ +#; +( +0+1.4142135623730951i +) + #lang typed/scheme #:optimize (sqrt -2.0) ; not a nonnegative flonum, can't optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt.log deleted file mode 100644 index d63a835cd6..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt.log +++ /dev/null @@ -1 +0,0 @@ -0+1.4142135623730951i diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt index 532ea42639..afc7c9e6ba 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt @@ -1,3 +1,31 @@ +#; +( +invalid-unboxed-let.rkt line 38 col 14 - t1 - unbox inexact-complex +invalid-unboxed-let.rkt line 38 col 17 - t1 - unbox inexact-complex +invalid-unboxed-let.rkt line 38 col 12 - + - unboxed binary inexact complex +invalid-unboxed-let.rkt line 38 col 11 - (#%app + t1 t1) - unboxed inexact complex +invalid-unboxed-let.rkt line 38 col 14 - t1 - unbox inexact-complex +invalid-unboxed-let.rkt line 38 col 17 - t1 - unbox inexact-complex +invalid-unboxed-let.rkt line 38 col 12 - + - unboxed binary inexact complex +invalid-unboxed-let.rkt line 38 col 11 - (#%app + t1 t1) - unboxed inexact complex +invalid-unboxed-let.rkt line 38 col 14 - t1 - unbox inexact-complex +invalid-unboxed-let.rkt line 38 col 17 - t1 - unbox inexact-complex +invalid-unboxed-let.rkt line 38 col 12 - + - unboxed binary inexact complex +invalid-unboxed-let.rkt line 38 col 11 - (#%app + t1 t1) - unboxed inexact complex +invalid-unboxed-let.rkt line 34 col 13 - 1.0+2.0i - unboxed literal +invalid-unboxed-let.rkt line 34 col 22 - 2.0+4.0i - unboxed literal +invalid-unboxed-let.rkt line 34 col 11 - + - unboxed binary inexact complex +invalid-unboxed-let.rkt line 35 col 13 - 3.0+6.0i - unboxed literal +invalid-unboxed-let.rkt line 35 col 22 - 4.0+8.0i - unboxed literal +invalid-unboxed-let.rkt line 35 col 11 - + - unboxed binary inexact complex +invalid-unboxed-let.rkt line 35 col 10 - (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i)) - unboxed inexact complex +invalid-unboxed-let.rkt line 34 col 0 - (let-values (((t1) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i))) ((t2) (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i))) ((t3) (quote 1.0+2.0i)) ((t4) (quote 1))) (#%app display (#%app + t1 t1)) (#%app display t2) (#%app display t3) (#%app display t4)) - unboxed let bindings +invalid-unboxed-let.rkt line 38 col 14 - t1 - leave var unboxed +invalid-unboxed-let.rkt line 38 col 17 - t1 - leave var unboxed +invalid-unboxed-let.rkt line 38 col 12 - + - unboxed binary inexact complex +invalid-unboxed-let.rkt line 38 col 11 - (#%app + t1 t1) - unboxed inexact complex +6.0+12.0i7.0+14.0i1.0+2.0i1) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt.log deleted file mode 100644 index 09434f3a11..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let.rkt.log +++ /dev/null @@ -1,25 +0,0 @@ -invalid-unboxed-let.rkt line 10 col 14 - t1 - unbox inexact-complex -invalid-unboxed-let.rkt line 10 col 17 - t1 - unbox inexact-complex -invalid-unboxed-let.rkt line 10 col 12 - + - unboxed binary inexact complex -invalid-unboxed-let.rkt line 10 col 11 - (#%app + t1 t1) - unboxed inexact complex -invalid-unboxed-let.rkt line 10 col 14 - t1 - unbox inexact-complex -invalid-unboxed-let.rkt line 10 col 17 - t1 - unbox inexact-complex -invalid-unboxed-let.rkt line 10 col 12 - + - unboxed binary inexact complex -invalid-unboxed-let.rkt line 10 col 11 - (#%app + t1 t1) - unboxed inexact complex -invalid-unboxed-let.rkt line 10 col 14 - t1 - unbox inexact-complex -invalid-unboxed-let.rkt line 10 col 17 - t1 - unbox inexact-complex -invalid-unboxed-let.rkt line 10 col 12 - + - unboxed binary inexact complex -invalid-unboxed-let.rkt line 10 col 11 - (#%app + t1 t1) - unboxed inexact complex -invalid-unboxed-let.rkt line 6 col 13 - 1.0+2.0i - unboxed literal -invalid-unboxed-let.rkt line 6 col 22 - 2.0+4.0i - unboxed literal -invalid-unboxed-let.rkt line 6 col 11 - + - unboxed binary inexact complex -invalid-unboxed-let.rkt line 7 col 13 - 3.0+6.0i - unboxed literal -invalid-unboxed-let.rkt line 7 col 22 - 4.0+8.0i - unboxed literal -invalid-unboxed-let.rkt line 7 col 11 - + - unboxed binary inexact complex -invalid-unboxed-let.rkt line 7 col 10 - (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i)) - unboxed inexact complex -invalid-unboxed-let.rkt line 6 col 0 - (let-values (((t1) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i))) ((t2) (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i))) ((t3) (quote 1.0+2.0i)) ((t4) (quote 1))) (#%app display (#%app + t1 t1)) (#%app display t2) (#%app display t3) (#%app display t4)) - unboxed let bindings -invalid-unboxed-let.rkt line 10 col 14 - t1 - leave var unboxed -invalid-unboxed-let.rkt line 10 col 17 - t1 - leave var unboxed -invalid-unboxed-let.rkt line 10 col 12 - + - unboxed binary inexact complex -invalid-unboxed-let.rkt line 10 col 11 - (#%app + t1 t1) - unboxed inexact complex -6.0+12.0i7.0+14.0i1.0+2.0i1 \ No newline at end of file diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt index 2d4b614418..8875971bbe 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt @@ -1,3 +1,21 @@ +#; +( +invalid-unboxed-let2.rkt line 25 col 33 - 1.0+2.0i - unboxed literal +invalid-unboxed-let2.rkt line 25 col 42 - 2.0+4.0i - unboxed literal +invalid-unboxed-let2.rkt line 25 col 31 - + - unboxed binary inexact complex +invalid-unboxed-let2.rkt line 25 col 30 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +invalid-unboxed-let2.rkt line 25 col 55 - 3.0+6.0i - unboxed literal +invalid-unboxed-let2.rkt line 25 col 64 - 4.0+8.0i - unboxed literal +invalid-unboxed-let2.rkt line 25 col 53 - + - unboxed binary inexact complex +invalid-unboxed-let2.rkt line 25 col 52 - (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i)) - unboxed inexact complex +invalid-unboxed-let2.rkt line 25 col 0 - (let-values (((t1 t2) (#%app values (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i))))) (#%app + t1 t2)) - unboxed let bindings +invalid-unboxed-let2.rkt line 26 col 5 - t1 - unbox inexact-complex +invalid-unboxed-let2.rkt line 26 col 8 - t2 - unbox inexact-complex +invalid-unboxed-let2.rkt line 26 col 3 - + - unboxed binary inexact complex +invalid-unboxed-let2.rkt line 26 col 2 - (#%app + t1 t2) - unboxed inexact complex +10.0+20.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt.log deleted file mode 100644 index dfc04e3e0e..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-unboxed-let2.rkt.log +++ /dev/null @@ -1,14 +0,0 @@ -invalid-unboxed-let2.rkt line 7 col 33 - 1.0+2.0i - unboxed literal -invalid-unboxed-let2.rkt line 7 col 42 - 2.0+4.0i - unboxed literal -invalid-unboxed-let2.rkt line 7 col 31 - + - unboxed binary inexact complex -invalid-unboxed-let2.rkt line 7 col 30 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -invalid-unboxed-let2.rkt line 7 col 55 - 3.0+6.0i - unboxed literal -invalid-unboxed-let2.rkt line 7 col 64 - 4.0+8.0i - unboxed literal -invalid-unboxed-let2.rkt line 7 col 53 - + - unboxed binary inexact complex -invalid-unboxed-let2.rkt line 7 col 52 - (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i)) - unboxed inexact complex -invalid-unboxed-let2.rkt line 7 col 0 - (let-values (((t1 t2) (#%app values (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i))))) (#%app + t1 t2)) - unboxed let bindings -invalid-unboxed-let2.rkt line 8 col 5 - t1 - unbox inexact-complex -invalid-unboxed-let2.rkt line 8 col 8 - t2 - unbox inexact-complex -invalid-unboxed-let2.rkt line 8 col 3 - + - unboxed binary inexact complex -invalid-unboxed-let2.rkt line 8 col 2 - (#%app + t1 t2) - unboxed inexact complex -10.0+20.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-vector-ref.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-vector-ref.rkt index d0a39f0486..2bc6634e35 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-vector-ref.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-vector-ref.rkt @@ -1,3 +1,6 @@ +#; +() + #lang typed/scheme #:optimize (: f ((Vectorof Integer) -> Integer)) diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-vector-ref.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-vector-ref.rkt.log deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-vector-set.rkt b/collects/tests/typed-scheme/optimizer/tests/invalid-vector-set.rkt index 391b1940c4..75abb3b60b 100644 --- a/collects/tests/typed-scheme/optimizer/tests/invalid-vector-set.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/invalid-vector-set.rkt @@ -1,3 +1,6 @@ +#; +() + #lang typed/scheme #:optimize (: f ((Vectorof Integer) -> Void)) diff --git a/collects/tests/typed-scheme/optimizer/tests/invalid-vector-set.rkt.log b/collects/tests/typed-scheme/optimizer/tests/invalid-vector-set.rkt.log deleted file mode 100644 index e69de29bb2..0000000000 diff --git a/collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt b/collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt index 084836372d..97f4c295c3 100644 --- a/collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt @@ -1,3 +1,10 @@ +#; +( +known-vector-length.rkt line 11 col 6 - vector-length - known-length vector-length +known-vector-length.rkt line 11 col 6 - vector-length - known-length vector-length +4 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt.log b/collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt.log deleted file mode 100644 index cf549a4595..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/known-vector-length.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -known-vector-length.rkt line 4 col 6 - vector-length - known-length vector-length -known-vector-length.rkt line 4 col 6 - vector-length - known-length vector-length -4 diff --git a/collects/tests/typed-scheme/optimizer/tests/let-float.rkt b/collects/tests/typed-scheme/optimizer/tests/let-float.rkt index bfc23b141b..e598b83657 100644 --- a/collects/tests/typed-scheme/optimizer/tests/let-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/let-float.rkt @@ -1,3 +1,11 @@ +#; +( +let-float.rkt line 12 col 10 - + - binary float +let-float.rkt line 12 col 0 - (let-values (((x) (#%app + (quote 3.0) (quote 2.0)))) (#%app * (quote 9.0) x)) - unboxed let bindings +let-float.rkt line 13 col 3 - * - binary float +45.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/let-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/let-float.rkt.log deleted file mode 100644 index 87a77be365..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/let-float.rkt.log +++ /dev/null @@ -1,4 +0,0 @@ -let-float.rkt line 4 col 10 - + - binary float -let-float.rkt line 4 col 0 - (let-values (((x) (#%app + (quote 3.0) (quote 2.0)))) (#%app * (quote 9.0) x)) - unboxed let bindings -let-float.rkt line 5 col 3 - * - binary float -45.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt b/collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt index d93d5c2ad4..ec49c5d48b 100644 --- a/collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt @@ -1,3 +1,10 @@ +#; +( +let-rhs.rkt line 13 col 10 - + - binary float +let-rhs.rkt line 13 col 0 - (let-values (((x) (#%app + (quote 1.0) (quote 2.0)))) x) - unboxed let bindings +3.0 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt.log b/collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt.log deleted file mode 100644 index e5c1bd2cc4..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/let-rhs.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -let-rhs.rkt line 6 col 10 - + - binary float -let-rhs.rkt line 6 col 0 - (let-values (((x) (#%app + (quote 1.0) (quote 2.0)))) x) - unboxed let bindings -3.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/literal-int.rkt b/collects/tests/typed-scheme/optimizer/tests/literal-int.rkt index 8cd8fd7d92..eb246d7af3 100644 --- a/collects/tests/typed-scheme/optimizer/tests/literal-int.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/literal-int.rkt @@ -1,3 +1,10 @@ +#; +( +literal-int.rkt line 13 col 1 - + - binary float +3.0 +1 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/literal-int.rkt.log b/collects/tests/typed-scheme/optimizer/tests/literal-int.rkt.log deleted file mode 100644 index 0d0b15e44d..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/literal-int.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -literal-int.rkt line 6 col 1 - + - binary float -3.0 -1 diff --git a/collects/tests/typed-scheme/optimizer/tests/magnitude.rkt b/collects/tests/typed-scheme/optimizer/tests/magnitude.rkt index 1ba1330b1a..42d8cd82d4 100644 --- a/collects/tests/typed-scheme/optimizer/tests/magnitude.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/magnitude.rkt @@ -1,6 +1,14 @@ +#; +( +magnitude.rkt line 14 col 11 - 3.0+4.0i - unboxed literal +magnitude.rkt line 14 col 1 - magnitude - unboxed unary inexact complex +magnitude.rkt line 14 col 0 - (#%app magnitude (quote 3.0+4.0i)) - unboxed inexact complex->float +5.0 +) + #lang typed/racket/base #:optimize (require racket/unsafe/ops) -(magnitude 3.0+4.0i) \ No newline at end of file +(magnitude 3.0+4.0i) diff --git a/collects/tests/typed-scheme/optimizer/tests/magnitude.rkt.log b/collects/tests/typed-scheme/optimizer/tests/magnitude.rkt.log deleted file mode 100644 index 39d9a00701..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/magnitude.rkt.log +++ /dev/null @@ -1,4 +0,0 @@ -magnitude.rkt line 6 col 11 - 3.0+4.0i - unboxed literal -magnitude.rkt line 6 col 1 - magnitude - unboxed unary inexact complex -magnitude.rkt line 6 col 0 - (#%app magnitude (quote 3.0+4.0i)) - unboxed inexact complex->float -5.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt b/collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt index 130f19d65d..05a40978ec 100644 --- a/collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt @@ -1,3 +1,11 @@ +#; +( +make-flrectangular.rkt line 12 col 1 - make-rectangular - binary float comp +make-flrectangular.rkt line 13 col 1 - make-flrectangular - binary float comp +1.0+2.2i +1.0+2.2i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops racket/flonum) diff --git a/collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt.log b/collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt.log deleted file mode 100644 index bc22160b7a..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/make-flrectangular.rkt.log +++ /dev/null @@ -1,4 +0,0 @@ -make-flrectangular.rkt line 4 col 1 - make-rectangular - binary float comp -make-flrectangular.rkt line 5 col 1 - make-flrectangular - binary float comp -1.0+2.2i -1.0+2.2i diff --git a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt index 5a0600e0d7..0497eab527 100644 --- a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt @@ -1,3 +1,24 @@ +#; +( +make-polar.rkt line 28 col 1 - make-polar - make-rectangular elimination +make-polar.rkt line 28 col 1 - make-polar - make-polar +make-polar.rkt line 32 col 50 - p - unbox inexact-complex +make-polar.rkt line 32 col 40 - real-part - unboxed unary inexact complex +make-polar.rkt line 32 col 39 - (#%app real-part p) - unboxed inexact complex->float +make-polar.rkt line 31 col 12 - 1.0+2.0i - unboxed literal +make-polar.rkt line 31 col 22 - make-polar - make-rectangular elimination +make-polar.rkt line 31 col 10 - + - unboxed binary inexact complex +make-polar.rkt line 31 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 32 col 50 - p - unboxed complex variable +make-polar.rkt line 32 col 50 - p - leave var unboxed +make-polar.rkt line 32 col 40 - real-part - unboxed inexact complex +make-polar.rkt line 33 col 50 - p - unboxed complex variable +make-polar.rkt line 33 col 50 - p - leave var unboxed +make-polar.rkt line 33 col 40 - imag-part - unboxed inexact complex +0.5403023058681398+0.8414709848078965i +"-0.30728724170.4863950094" +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log deleted file mode 100644 index 1faf7df899..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt.log +++ /dev/null @@ -1,17 +0,0 @@ -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 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.30728724170.4863950094" diff --git a/collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt b/collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt index fdf7e3a6b6..dc3170dcd8 100644 --- a/collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt @@ -1,3 +1,12 @@ +#; +( +maybe-exact-complex.rkt line 15 col 3 - 1.0+2.0i - unboxed literal +maybe-exact-complex.rkt line 15 col 12 - 2+4i - unboxed literal +maybe-exact-complex.rkt line 15 col 1 - + - unboxed binary inexact complex +maybe-exact-complex.rkt line 15 col 0 - (#%app + (quote 1.0+2.0i) (quote 2+4i)) - unboxed inexact complex +3.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt.log b/collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt.log deleted file mode 100644 index 0ba4731628..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/maybe-exact-complex.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -maybe-exact-complex.rkt line 6 col 3 - 1.0+2.0i - unboxed literal -maybe-exact-complex.rkt line 6 col 12 - 2+4i - unboxed literal -maybe-exact-complex.rkt line 6 col 1 - + - unboxed binary inexact complex -maybe-exact-complex.rkt line 6 col 0 - (#%app + (quote 1.0+2.0i) (quote 2+4i)) - unboxed inexact complex -3.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/mpair.rkt b/collects/tests/typed-scheme/optimizer/tests/mpair.rkt index 5734c82b88..c357473b6d 100644 --- a/collects/tests/typed-scheme/optimizer/tests/mpair.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/mpair.rkt @@ -1,3 +1,15 @@ +#; +( +mpair.rkt line 18 col 1 - mcar - mutable pair +mpair.rkt line 19 col 1 - mcdr - mutable pair +mpair.rkt line 20 col 1 - set-mcar! - mutable pair +mpair.rkt line 21 col 1 - set-mcdr! - mutable pair +mpair.rkt line 21 col 14 - + - binary float +mpair.rkt line 27 col 7 - mcar - mutable pair +1 +1.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/mpair.rkt.log b/collects/tests/typed-scheme/optimizer/tests/mpair.rkt.log deleted file mode 100644 index 9ac03ff1d8..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/mpair.rkt.log +++ /dev/null @@ -1,8 +0,0 @@ -mpair.rkt line 6 col 1 - mcar - mutable pair -mpair.rkt line 7 col 1 - mcdr - mutable pair -mpair.rkt line 8 col 1 - set-mcar! - mutable pair -mpair.rkt line 9 col 1 - set-mcdr! - mutable pair -mpair.rkt line 9 col 14 - + - binary float -mpair.rkt line 15 col 7 - mcar - mutable pair -1 -1.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt b/collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt index d93384bed3..b2b8515f97 100644 --- a/collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt @@ -1,3 +1,9 @@ +#; +( +n-ary-float.rkt line 10 col 1 - + - binary float +6.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt.log deleted file mode 100644 index 8312e22a0f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/n-ary-float.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -n-ary-float.rkt line 4 col 1 - + - binary float -6.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt b/collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt index 6ab5e23fca..9df467e122 100644 --- a/collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt @@ -1,3 +1,14 @@ +#; +( +n-ary-inexact-complex.rkt line 15 col 3 - 1.0+2.0i - unboxed literal +n-ary-inexact-complex.rkt line 15 col 12 - 2.0+4.0i - unboxed literal +n-ary-inexact-complex.rkt line 15 col 21 - 3.0+6.0i - unboxed literal +n-ary-inexact-complex.rkt line 15 col 30 - 4.0+8.0i - unboxed literal +n-ary-inexact-complex.rkt line 15 col 1 - + - unboxed binary inexact complex +n-ary-inexact-complex.rkt line 15 col 0 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0+6.0i) (quote 4.0+8.0i)) - unboxed inexact complex +10.0+20.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt.log b/collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt.log deleted file mode 100644 index 0d2575484a..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/n-ary-inexact-complex.rkt.log +++ /dev/null @@ -1,7 +0,0 @@ -n-ary-inexact-complex.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -n-ary-inexact-complex.rkt line 4 col 12 - 2.0+4.0i - unboxed literal -n-ary-inexact-complex.rkt line 4 col 21 - 3.0+6.0i - unboxed literal -n-ary-inexact-complex.rkt line 4 col 30 - 4.0+8.0i - unboxed literal -n-ary-inexact-complex.rkt line 4 col 1 - + - unboxed binary inexact complex -n-ary-inexact-complex.rkt line 4 col 0 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i) (quote 3.0+6.0i) (quote 4.0+8.0i)) - unboxed inexact complex -10.0+20.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-float.rkt b/collects/tests/typed-scheme/optimizer/tests/nested-float.rkt index 290db71b28..e2dee8866e 100644 --- a/collects/tests/typed-scheme/optimizer/tests/nested-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/nested-float.rkt @@ -1,3 +1,10 @@ +#; +( +nested-float.rkt line 11 col 8 - + - binary float +nested-float.rkt line 11 col 1 - + - binary float +9.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/nested-float.rkt.log deleted file mode 100644 index 37bad6b1e7..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/nested-float.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -nested-float.rkt line 4 col 8 - + - binary float -nested-float.rkt line 4 col 1 - + - binary float -9.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt b/collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt index ec44730aac..cc3d59b945 100644 --- a/collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt @@ -1,3 +1,10 @@ +#; +( +nested-float2.rkt line 11 col 8 - * - binary float +nested-float2.rkt line 11 col 1 - + - binary float +14.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt.log deleted file mode 100644 index 8ddb49ff9d..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/nested-float2.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -nested-float2.rkt line 4 col 8 - * - binary float -nested-float2.rkt line 4 col 1 - + - binary float -14.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt b/collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt index 82f8e04d0b..6d02401095 100644 --- a/collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt @@ -1,3 +1,14 @@ +#; +( +nested-inexact-complex.rkt line 15 col 3 - 1.0+2.0i - unboxed literal +nested-inexact-complex.rkt line 15 col 15 - 2.0+4.0i - unboxed literal +nested-inexact-complex.rkt line 15 col 24 - 3.0+6.0i - unboxed literal +nested-inexact-complex.rkt line 15 col 13 - - - unboxed binary inexact complex +nested-inexact-complex.rkt line 15 col 1 - + - unboxed binary inexact complex +nested-inexact-complex.rkt line 15 col 0 - (#%app + (quote 1.0+2.0i) (#%app - (quote 2.0+4.0i) (quote 3.0+6.0i))) - unboxed inexact complex +0.0+0.0i +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt.log b/collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt.log deleted file mode 100644 index 2cd986f156..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/nested-inexact-complex.rkt.log +++ /dev/null @@ -1,7 +0,0 @@ -nested-inexact-complex.rkt line 4 col 3 - 1.0+2.0i - unboxed literal -nested-inexact-complex.rkt line 4 col 15 - 2.0+4.0i - unboxed literal -nested-inexact-complex.rkt line 4 col 24 - 3.0+6.0i - unboxed literal -nested-inexact-complex.rkt line 4 col 13 - - - unboxed binary inexact complex -nested-inexact-complex.rkt line 4 col 1 - + - unboxed binary inexact complex -nested-inexact-complex.rkt line 4 col 0 - (#%app + (quote 1.0+2.0i) (#%app - (quote 2.0+4.0i) (quote 3.0+6.0i))) - unboxed inexact complex -0.0+0.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt b/collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt index 0a8dfc638a..92f40326c1 100644 --- a/collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt @@ -1,3 +1,46 @@ +#; +( +nested-let-loop.rkt line 58 col 38 - r - unbox inexact-complex +nested-let-loop.rkt line 58 col 40 - s - unbox inexact-complex +nested-let-loop.rkt line 58 col 36 - + - unboxed binary inexact complex +nested-let-loop.rkt line 58 col 35 - (#%app + r s) - unboxed inexact complex +nested-let-loop.rkt line 51 col 8 - r - unboxed var -> table +nested-let-loop.rkt line 49 col 6 - loop1 - unboxed function -> table +nested-let-loop.rkt line 49 col 6 - loop1 - fun -> unboxed fun +nested-let-loop.rkt line 53 col 10 - r - unboxed complex variable +nested-let-loop.rkt line 58 col 38 - r - leave var unboxed +nested-let-loop.rkt line 58 col 40 - s - unbox inexact-complex +nested-let-loop.rkt line 58 col 36 - + - unboxed binary inexact complex +nested-let-loop.rkt line 58 col 35 - (#%app + r s) - unboxed inexact complex +nested-let-loop.rkt line 56 col 18 - s - unboxed var -> table +nested-let-loop.rkt line 54 col 16 - loop2 - unboxed function -> table +nested-let-loop.rkt line 54 col 16 - loop2 - fun -> unboxed fun +nested-let-loop.rkt line 58 col 38 - r - leave var unboxed +nested-let-loop.rkt line 58 col 40 - s - leave var unboxed +nested-let-loop.rkt line 58 col 36 - + - unboxed binary inexact complex +nested-let-loop.rkt line 58 col 21 - loop1 - unboxed call site +nested-let-loop.rkt line 58 col 28 - cdr - unary pair +nested-let-loop.rkt line 58 col 21 - loop1 - call to fun with unboxed args +nested-let-loop.rkt line 59 col 38 - s - leave var unboxed +nested-let-loop.rkt line 59 col 40 - (#%app car x) - unbox inexact-complex +nested-let-loop.rkt line 59 col 41 - car - unary pair +nested-let-loop.rkt line 59 col 48 - (#%app car y) - unbox inexact-complex +nested-let-loop.rkt line 59 col 49 - car - unary pair +nested-let-loop.rkt line 59 col 36 - + - unboxed binary inexact complex +nested-let-loop.rkt line 59 col 21 - loop2 - unboxed call site +nested-let-loop.rkt line 59 col 28 - cdr - unary pair +nested-let-loop.rkt line 59 col 21 - loop2 - call to fun with unboxed args +#f line #f col #f - (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) - unboxed let bindings +nested-let-loop.rkt line 56 col 38 - 0.0+0.0i - unboxed literal +#f line #f col #f - (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) - unboxed call site +nested-let-loop.rkt line 54 col 16 - loop2 - unboxed let loop +#f line #f col #f - (letrec-values (((loop1) (lambda (x r) (if (#%app null? x) r (#%app (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) (quote (3.0+6.0i 4.0+8.0i)) (quote 0.0+0.0i)))))) loop1) - unboxed let bindings +nested-let-loop.rkt line 51 col 28 - 0.0+0.0i - unboxed literal +#f line #f col #f - (letrec-values (((loop1) (lambda (x r) (if (#%app null? x) r (#%app (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) (quote (3.0+6.0i 4.0+8.0i)) (quote 0.0+0.0i)))))) loop1) - unboxed call site +nested-let-loop.rkt line 49 col 6 - loop1 - unboxed let loop +20.0+40.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt.log b/collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt.log deleted file mode 100644 index c3771eb8df..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/nested-let-loop.rkt.log +++ /dev/null @@ -1,39 +0,0 @@ -nested-let-loop.rkt line 15 col 38 - r - unbox inexact-complex -nested-let-loop.rkt line 15 col 40 - s - unbox inexact-complex -nested-let-loop.rkt line 15 col 36 - + - unboxed binary inexact complex -nested-let-loop.rkt line 15 col 35 - (#%app + r s) - unboxed inexact complex -nested-let-loop.rkt line 8 col 8 - r - unboxed var -> table -nested-let-loop.rkt line 6 col 6 - loop1 - unboxed function -> table -nested-let-loop.rkt line 6 col 6 - loop1 - fun -> unboxed fun -nested-let-loop.rkt line 10 col 10 - r - unboxed complex variable -nested-let-loop.rkt line 15 col 38 - r - leave var unboxed -nested-let-loop.rkt line 15 col 40 - s - unbox inexact-complex -nested-let-loop.rkt line 15 col 36 - + - unboxed binary inexact complex -nested-let-loop.rkt line 15 col 35 - (#%app + r s) - unboxed inexact complex -nested-let-loop.rkt line 13 col 18 - s - unboxed var -> table -nested-let-loop.rkt line 11 col 16 - loop2 - unboxed function -> table -nested-let-loop.rkt line 11 col 16 - loop2 - fun -> unboxed fun -nested-let-loop.rkt line 15 col 38 - r - leave var unboxed -nested-let-loop.rkt line 15 col 40 - s - leave var unboxed -nested-let-loop.rkt line 15 col 36 - + - unboxed binary inexact complex -nested-let-loop.rkt line 15 col 21 - loop1 - unboxed call site -nested-let-loop.rkt line 15 col 28 - cdr - unary pair -nested-let-loop.rkt line 15 col 21 - loop1 - call to fun with unboxed args -nested-let-loop.rkt line 16 col 38 - s - leave var unboxed -nested-let-loop.rkt line 16 col 40 - (#%app car x) - unbox inexact-complex -nested-let-loop.rkt line 16 col 41 - car - unary pair -nested-let-loop.rkt line 16 col 48 - (#%app car y) - unbox inexact-complex -nested-let-loop.rkt line 16 col 49 - car - unary pair -nested-let-loop.rkt line 16 col 36 - + - unboxed binary inexact complex -nested-let-loop.rkt line 16 col 21 - loop2 - unboxed call site -nested-let-loop.rkt line 16 col 28 - cdr - unary pair -nested-let-loop.rkt line 16 col 21 - loop2 - call to fun with unboxed args -#f line #f col #f - (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) - unboxed let bindings -nested-let-loop.rkt line 13 col 38 - 0.0+0.0i - unboxed literal -#f line #f col #f - (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) - unboxed call site -nested-let-loop.rkt line 11 col 16 - loop2 - unboxed let loop -#f line #f col #f - (letrec-values (((loop1) (lambda (x r) (if (#%app null? x) r (#%app (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) (quote (3.0+6.0i 4.0+8.0i)) (quote 0.0+0.0i)))))) loop1) - unboxed let bindings -nested-let-loop.rkt line 8 col 28 - 0.0+0.0i - unboxed literal -#f line #f col #f - (letrec-values (((loop1) (lambda (x r) (if (#%app null? x) r (#%app (letrec-values (((loop2) (lambda (y s) (if (#%app null? y) (#%app loop1 (#%app cdr x) (#%app + r s)) (#%app loop2 (#%app cdr y) (#%app + s (#%app car x) (#%app car y))))))) loop2) (quote (3.0+6.0i 4.0+8.0i)) (quote 0.0+0.0i)))))) loop1) - unboxed call site -nested-let-loop.rkt line 6 col 6 - loop1 - unboxed let loop -20.0+40.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt b/collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt index bfe2d3c395..f7670a0bea 100644 --- a/collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt @@ -1,3 +1,10 @@ +#; +( +nested-pair1.rkt line 11 col 6 - cdr - unary pair +nested-pair1.rkt line 11 col 1 - car - unary pair +2 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt.log b/collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt.log deleted file mode 100644 index a55316ef78..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/nested-pair1.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -nested-pair1.rkt line 4 col 6 - cdr - unary pair -nested-pair1.rkt line 4 col 1 - car - unary pair -2 diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt b/collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt index 15baf31457..651a4d5fe5 100644 --- a/collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt @@ -1,3 +1,10 @@ +#; +( +nested-pair2.rkt line 11 col 6 - cdr - unary pair +nested-pair2.rkt line 11 col 1 - car - unary pair +'(2) +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt.log deleted file mode 100644 index 0db01b6478..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/nested-pair2.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -nested-pair2.rkt line 4 col 6 - cdr - unary pair -nested-pair2.rkt line 4 col 1 - car - unary pair -'(2) diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt b/collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt index 9d1529e4b9..f41eb3ce17 100644 --- a/collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt @@ -1,3 +1,28 @@ +#; +( +nested-unboxed-let.rkt line 32 col 14 - x - unbox inexact-complex +nested-unboxed-let.rkt line 32 col 16 - 2.0+3.0i - unboxed literal +nested-unboxed-let.rkt line 32 col 12 - + - unboxed binary inexact complex +nested-unboxed-let.rkt line 32 col 11 - (#%app + x (quote 2.0+3.0i)) - unboxed inexact complex +nested-unboxed-let.rkt line 31 col 12 - 1.0+2.0i - unboxed literal +nested-unboxed-let.rkt line 31 col 21 - 2.0+3.0i - unboxed literal +nested-unboxed-let.rkt line 31 col 10 - + - unboxed binary inexact complex +nested-unboxed-let.rkt line 31 col 0 - (let-values (((x) (#%app + (quote 1.0+2.0i) (quote 2.0+3.0i)))) (let-values (((x) (#%app + x (quote 2.0+3.0i)))) (#%app + x (quote 3.0+6.0i)))) - unboxed let bindings +nested-unboxed-let.rkt line 33 col 7 - x - unbox inexact-complex +nested-unboxed-let.rkt line 33 col 9 - 3.0+6.0i - unboxed literal +nested-unboxed-let.rkt line 33 col 5 - + - unboxed binary inexact complex +nested-unboxed-let.rkt line 33 col 4 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex +nested-unboxed-let.rkt line 32 col 14 - x - leave var unboxed +nested-unboxed-let.rkt line 32 col 16 - 2.0+3.0i - unboxed literal +nested-unboxed-let.rkt line 32 col 12 - + - unboxed binary inexact complex +nested-unboxed-let.rkt line 32 col 2 - (let-values (((x) (#%app + x (quote 2.0+3.0i)))) (#%app + x (quote 3.0+6.0i))) - unboxed let bindings +nested-unboxed-let.rkt line 33 col 7 - x - leave var unboxed +nested-unboxed-let.rkt line 33 col 9 - 3.0+6.0i - unboxed literal +nested-unboxed-let.rkt line 33 col 5 - + - unboxed binary inexact complex +nested-unboxed-let.rkt line 33 col 4 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex +8.0+14.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt.log b/collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt.log deleted file mode 100644 index 6b9704feb4..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/nested-unboxed-let.rkt.log +++ /dev/null @@ -1,21 +0,0 @@ -nested-unboxed-let.rkt line 7 col 14 - x - unbox inexact-complex -nested-unboxed-let.rkt line 7 col 16 - 2.0+3.0i - unboxed literal -nested-unboxed-let.rkt line 7 col 12 - + - unboxed binary inexact complex -nested-unboxed-let.rkt line 7 col 11 - (#%app + x (quote 2.0+3.0i)) - unboxed inexact complex -nested-unboxed-let.rkt line 6 col 12 - 1.0+2.0i - unboxed literal -nested-unboxed-let.rkt line 6 col 21 - 2.0+3.0i - unboxed literal -nested-unboxed-let.rkt line 6 col 10 - + - unboxed binary inexact complex -nested-unboxed-let.rkt line 6 col 0 - (let-values (((x) (#%app + (quote 1.0+2.0i) (quote 2.0+3.0i)))) (let-values (((x) (#%app + x (quote 2.0+3.0i)))) (#%app + x (quote 3.0+6.0i)))) - unboxed let bindings -nested-unboxed-let.rkt line 8 col 7 - x - unbox inexact-complex -nested-unboxed-let.rkt line 8 col 9 - 3.0+6.0i - unboxed literal -nested-unboxed-let.rkt line 8 col 5 - + - unboxed binary inexact complex -nested-unboxed-let.rkt line 8 col 4 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex -nested-unboxed-let.rkt line 7 col 14 - x - leave var unboxed -nested-unboxed-let.rkt line 7 col 16 - 2.0+3.0i - unboxed literal -nested-unboxed-let.rkt line 7 col 12 - + - unboxed binary inexact complex -nested-unboxed-let.rkt line 7 col 2 - (let-values (((x) (#%app + x (quote 2.0+3.0i)))) (#%app + x (quote 3.0+6.0i))) - unboxed let bindings -nested-unboxed-let.rkt line 8 col 7 - x - leave var unboxed -nested-unboxed-let.rkt line 8 col 9 - 3.0+6.0i - unboxed literal -nested-unboxed-let.rkt line 8 col 5 - + - unboxed binary inexact complex -nested-unboxed-let.rkt line 8 col 4 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex -8.0+14.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt b/collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt index 686ca154e5..9b06cbd8cf 100644 --- a/collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt @@ -1,3 +1,37 @@ +#; +( +one-arg-arith.rkt line 40 col 1 - - - unary fixnum +one-arg-arith.rkt line 41 col 1 - - - unary float +one-arg-arith.rkt line 42 col 1 - / - unary float +one-arg-arith.rkt line 44 col 1 - + - unary number +one-arg-arith.rkt line 45 col 1 - + - unary number +one-arg-arith.rkt line 46 col 1 - + - unary number +one-arg-arith.rkt line 47 col 1 - * - unary number +one-arg-arith.rkt line 48 col 1 - * - unary number +one-arg-arith.rkt line 49 col 1 - * - unary number +one-arg-arith.rkt line 50 col 1 - min - unary number +one-arg-arith.rkt line 51 col 1 - min - unary number +one-arg-arith.rkt line 52 col 1 - min - unary number +one-arg-arith.rkt line 53 col 1 - max - unary number +one-arg-arith.rkt line 54 col 1 - max - unary number +one-arg-arith.rkt line 55 col 1 - max - unary number +-12 +-12.0 +0.23809523809523808 +1 +1.0 +1267650600228229401496703205376 +1 +1.0 +1267650600228229401496703205376 +1 +1.0 +1267650600228229401496703205376 +1 +1.0 +1267650600228229401496703205376 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt.log b/collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt.log deleted file mode 100644 index e0c9bd7814..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/one-arg-arith.rkt.log +++ /dev/null @@ -1,30 +0,0 @@ -one-arg-arith.rkt line 6 col 1 - - - unary fixnum -one-arg-arith.rkt line 7 col 1 - - - unary float -one-arg-arith.rkt line 8 col 1 - / - unary float -one-arg-arith.rkt line 10 col 1 - + - unary number -one-arg-arith.rkt line 11 col 1 - + - unary number -one-arg-arith.rkt line 12 col 1 - + - unary number -one-arg-arith.rkt line 13 col 1 - * - unary number -one-arg-arith.rkt line 14 col 1 - * - unary number -one-arg-arith.rkt line 15 col 1 - * - unary number -one-arg-arith.rkt line 16 col 1 - min - unary number -one-arg-arith.rkt line 17 col 1 - min - unary number -one-arg-arith.rkt line 18 col 1 - min - unary number -one-arg-arith.rkt line 19 col 1 - max - unary number -one-arg-arith.rkt line 20 col 1 - max - unary number -one-arg-arith.rkt line 21 col 1 - max - unary number --12 --12.0 -0.23809523809523808 -1 -1.0 -1267650600228229401496703205376 -1 -1.0 -1267650600228229401496703205376 -1 -1.0 -1267650600228229401496703205376 -1 -1.0 -1267650600228229401496703205376 diff --git a/collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt b/collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt index 505f290c98..35d8895754 100644 --- a/collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt @@ -1,3 +1,8 @@ +#; +( +pair-fun.rkt line 13 col 7 - car - unary pair +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt.log b/collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt.log deleted file mode 100644 index 7439ac52d9..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/pair-fun.rkt.log +++ /dev/null @@ -1 +0,0 @@ -pair-fun.rkt line 8 col 7 - car - unary pair diff --git a/collects/tests/typed-scheme/optimizer/tests/quote.rkt b/collects/tests/typed-scheme/optimizer/tests/quote.rkt index cedbcaf91f..a8be99555f 100644 --- a/collects/tests/typed-scheme/optimizer/tests/quote.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/quote.rkt @@ -1,3 +1,8 @@ +#; +( +'(+ 1.0 2.0) +) + #lang typed/scheme #:optimize '(+ 1.0 2.0) diff --git a/collects/tests/typed-scheme/optimizer/tests/quote.rkt.log b/collects/tests/typed-scheme/optimizer/tests/quote.rkt.log deleted file mode 100644 index aaf523129c..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/quote.rkt.log +++ /dev/null @@ -1 +0,0 @@ -'(+ 1.0 2.0) diff --git a/collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt b/collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt index adf87802d4..b39c9d8d5d 100644 --- a/collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt @@ -1,3 +1,27 @@ +#; +( +real-part-loop.rkt line 32 col 20 - v - unbox inexact-complex +real-part-loop.rkt line 32 col 10 - real-part - unboxed unary inexact complex +real-part-loop.rkt line 32 col 9 - (#%app real-part v) - unboxed inexact complex->float +real-part-loop.rkt line 31 col 13 - v - unboxed var -> table +real-part-loop.rkt line 31 col 6 - loop - unboxed function -> table +real-part-loop.rkt line 31 col 6 - loop - fun -> unboxed fun +real-part-loop.rkt line 32 col 20 - v - unboxed complex variable +real-part-loop.rkt line 32 col 20 - v - leave var unboxed +real-part-loop.rkt line 32 col 10 - real-part - unboxed inexact complex +real-part-loop.rkt line 32 col 7 - > - binary float comp +real-part-loop.rkt line 34 col 15 - v - leave var unboxed +real-part-loop.rkt line 34 col 17 - (quote 3.6) - float-coerce-expr in complex ops +real-part-loop.rkt line 34 col 13 - + - unboxed binary inexact complex +real-part-loop.rkt line 34 col 7 - loop - unboxed call site +real-part-loop.rkt line 34 col 7 - loop - call to fun with unboxed args +real-part-loop.rkt line 31 col 1 - (letrec-values (((loop) (lambda (v) (if (#%app > (#%app real-part v) (quote 70000.2)) (quote 0) (#%app loop (#%app + v (quote 3.6))))))) loop) - unboxed let bindings +real-part-loop.rkt line 31 col 15 - 0.0+1.0i - unboxed literal +real-part-loop.rkt line 31 col 1 - (letrec-values (((loop) (lambda (v) (if (#%app > (#%app real-part v) (quote 70000.2)) (quote 0) (#%app loop (#%app + v (quote 3.6))))))) loop) - unboxed call site +real-part-loop.rkt line 31 col 6 - loop - unboxed let loop +0 +) + #lang typed/racket/base #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt.log b/collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt.log deleted file mode 100644 index de773229f1..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/real-part-loop.rkt.log +++ /dev/null @@ -1,20 +0,0 @@ -real-part-loop.rkt line 8 col 20 - v - unbox inexact-complex -real-part-loop.rkt line 8 col 10 - real-part - unboxed unary inexact complex -real-part-loop.rkt line 8 col 9 - (#%app real-part v) - unboxed inexact complex->float -real-part-loop.rkt line 7 col 13 - v - unboxed var -> table -real-part-loop.rkt line 7 col 6 - loop - unboxed function -> table -real-part-loop.rkt line 7 col 6 - loop - fun -> unboxed fun -real-part-loop.rkt line 8 col 20 - v - unboxed complex variable -real-part-loop.rkt line 8 col 20 - v - leave var unboxed -real-part-loop.rkt line 8 col 10 - real-part - unboxed inexact complex -real-part-loop.rkt line 8 col 7 - > - binary float comp -real-part-loop.rkt line 10 col 15 - v - leave var unboxed -real-part-loop.rkt line 10 col 17 - (quote 3.6) - float-coerce-expr in complex ops -real-part-loop.rkt line 10 col 13 - + - unboxed binary inexact complex -real-part-loop.rkt line 10 col 7 - loop - unboxed call site -real-part-loop.rkt line 10 col 7 - loop - call to fun with unboxed args -real-part-loop.rkt line 7 col 1 - (letrec-values (((loop) (lambda (v) (if (#%app > (#%app real-part v) (quote 70000.2)) (quote 0) (#%app loop (#%app + v (quote 3.6))))))) loop) - unboxed let bindings -real-part-loop.rkt line 7 col 15 - 0.0+1.0i - unboxed literal -real-part-loop.rkt line 7 col 1 - (letrec-values (((loop) (lambda (v) (if (#%app > (#%app real-part v) (quote 70000.2)) (quote 0) (#%app loop (#%app + v (quote 3.6))))))) loop) - unboxed call site -real-part-loop.rkt line 7 col 6 - loop - unboxed let loop -0 diff --git a/collects/tests/typed-scheme/optimizer/tests/simple-float.rkt b/collects/tests/typed-scheme/optimizer/tests/simple-float.rkt index 850c34c989..8d761f4724 100644 --- a/collects/tests/typed-scheme/optimizer/tests/simple-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/simple-float.rkt @@ -1,3 +1,9 @@ +#; +( +simple-float.rkt line 10 col 1 - + - binary float +5.0 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/simple-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/simple-float.rkt.log deleted file mode 100644 index a74f9d1601..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/simple-float.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -simple-float.rkt line 4 col 1 - + - binary float -5.0 diff --git a/collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt b/collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt index b70202837d..404b13778a 100644 --- a/collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt @@ -1,3 +1,9 @@ +#; +( +simple-pair.rkt line 10 col 1 - car - unary pair +1 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt.log b/collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt.log deleted file mode 100644 index bf55f9df27..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/simple-pair.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -simple-pair.rkt line 4 col 1 - car - unary pair -1 diff --git a/collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt b/collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt index af42b1ff9c..a67456dbbe 100644 --- a/collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt @@ -1,3 +1,13 @@ +#; +( +sqrt-segfault.rkt line 22 col 15 - - - binary float +sqrt-segfault.rkt line 22 col 0 - (let-values (((dx) (#%app - (quote 0.0) (quote 0.0)))) (let-values (((dist2) (#%app * dx dx))) (let-values (((mag) (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))))) (#%app void)))) - unboxed let bindings +sqrt-segfault.rkt line 23 col 15 - * - binary float +sqrt-segfault.rkt line 22 col 0 - (let-values (((dist2) (#%app * dx dx))) (let-values (((mag) (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))))) (#%app void))) - unboxed let bindings +sqrt-segfault.rkt line 24 col 14 - (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))) - unboxed let bindings +sqrt-segfault.rkt line 22 col 0 - (let-values (((mag) (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))))) (#%app void)) - unboxed let bindings +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt.log b/collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt.log deleted file mode 100644 index 4c968e23fa..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt.log +++ /dev/null @@ -1,6 +0,0 @@ -sqrt-segfault.rkt line 12 col 15 - - - binary float -sqrt-segfault.rkt line 12 col 0 - (let-values (((dx) (#%app - (quote 0.0) (quote 0.0)))) (let-values (((dist2) (#%app * dx dx))) (let-values (((mag) (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))))) (#%app void)))) - unboxed let bindings -sqrt-segfault.rkt line 13 col 15 - * - binary float -sqrt-segfault.rkt line 12 col 0 - (let-values (((dist2) (#%app * dx dx))) (let-values (((mag) (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))))) (#%app void))) - unboxed let bindings -sqrt-segfault.rkt line 14 col 14 - (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))) - unboxed let bindings -sqrt-segfault.rkt line 12 col 0 - (let-values (((mag) (let-values (((val) (#%app * dist2 (#%app sqrt dist2)))) (if (#%app inexact-real? val) val (#%app error (quote Assertion failed)))))) (#%app void)) - unboxed let bindings diff --git a/collects/tests/typed-scheme/optimizer/tests/sqrt.rkt b/collects/tests/typed-scheme/optimizer/tests/sqrt.rkt index 9ff52d708a..3f64370692 100644 --- a/collects/tests/typed-scheme/optimizer/tests/sqrt.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/sqrt.rkt @@ -1,3 +1,8 @@ +#; +( +sqrt.rkt line 11 col 3 - sqrt - unary float +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/sqrt.rkt.log b/collects/tests/typed-scheme/optimizer/tests/sqrt.rkt.log deleted file mode 100644 index 5b590d186f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/sqrt.rkt.log +++ /dev/null @@ -1 +0,0 @@ -sqrt.rkt line 6 col 3 - sqrt - unary float diff --git a/collects/tests/typed-scheme/optimizer/tests/string-length.rkt b/collects/tests/typed-scheme/optimizer/tests/string-length.rkt index b3053d0482..32c2df80b6 100644 --- a/collects/tests/typed-scheme/optimizer/tests/string-length.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/string-length.rkt @@ -1,3 +1,11 @@ +#; +( +#f line #f col #f - op - string-length +#f line #f col #f - op - bytes-length +2 +2 +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/string-length.rkt.log b/collects/tests/typed-scheme/optimizer/tests/string-length.rkt.log deleted file mode 100644 index 2b8e27d9f4..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/string-length.rkt.log +++ /dev/null @@ -1,4 +0,0 @@ -#f line #f col #f - op - string-length -#f line #f col #f - op - bytes-length -2 -2 diff --git a/collects/tests/typed-scheme/optimizer/tests/structs.rkt b/collects/tests/typed-scheme/optimizer/tests/structs.rkt index 7ea3763bb6..190b5904a8 100644 --- a/collects/tests/typed-scheme/optimizer/tests/structs.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/structs.rkt @@ -1,3 +1,10 @@ +#; +( +structs.rkt line 13 col 1 - pt-x - struct ref +structs.rkt line 14 col 1 - set-pt-y! - struct set +3 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/structs.rkt.log b/collects/tests/typed-scheme/optimizer/tests/structs.rkt.log deleted file mode 100644 index 04314853c8..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/structs.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -structs.rkt line 6 col 1 - pt-x - struct ref -structs.rkt line 7 col 1 - set-pt-y! - struct set -3 diff --git a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt b/collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt index 054dcc37e7..1bd5f21bc0 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt @@ -1,3 +1,10 @@ +#; +( +unary-fixnum-nested.rkt line 11 col 6 - bitwise-not - unary fixnum +unary-fixnum-nested.rkt line 11 col 1 - abs - unary fixnum +4 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops racket/fixnum) diff --git a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt.log deleted file mode 100644 index b4a88bd1f9..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum-nested.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -unary-fixnum-nested.rkt line 4 col 6 - bitwise-not - unary fixnum -unary-fixnum-nested.rkt line 4 col 1 - abs - unary fixnum -4 diff --git a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt b/collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt index c6183cbed4..b5c321c4d3 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt @@ -1,3 +1,9 @@ +#; +( +unary-fixnum.rkt line 10 col 1 - bitwise-not - unary fixnum +-5 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt.log deleted file mode 100644 index 103c68e293..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unary-fixnum.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -unary-fixnum.rkt line 4 col 1 - bitwise-not - unary fixnum --5 diff --git a/collects/tests/typed-scheme/optimizer/tests/unary-float.rkt b/collects/tests/typed-scheme/optimizer/tests/unary-float.rkt index 0f9075a017..59bccafdee 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unary-float.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unary-float.rkt @@ -1,3 +1,9 @@ +#; +( +unary-float.rkt line 10 col 1 - sin - unary float +0.9092974268256817 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/unary-float.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unary-float.rkt.log deleted file mode 100644 index 7225f61f45..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unary-float.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -unary-float.rkt line 4 col 1 - sin - unary float -0.9092974268256817 diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt index ebc3fc3761..71960a727e 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt @@ -1,3 +1,52 @@ +#; +( +#f line #f col #f - make-sequence - in-list +#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote (1.0+2.0i 2.0+4.0i))))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (sum pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) sum)))) for-loop) (quote 0.0+0.0i) init)) - unboxed let bindings +unboxed-for.rkt line 57 col 9 - i - unbox inexact-complex +unboxed-for.rkt line 57 col 11 - sum - unbox inexact-complex +unboxed-for.rkt line 57 col 7 - + - unboxed binary inexact complex +unboxed-for.rkt line 57 col 6 - (#%app + i sum) - unboxed inexact complex +unboxed-for.rkt line 57 col 9 - i - unbox inexact-complex +unboxed-for.rkt line 57 col 11 - sum - unbox inexact-complex +unboxed-for.rkt line 57 col 7 - + - unboxed binary inexact complex +unboxed-for.rkt line 57 col 6 - (#%app + i sum) - unboxed inexact complex +unboxed-for.rkt line 55 col 31 - sum - unboxed var -> table +#f line #f col #f - for-loop - unboxed function -> table +#f line #f col #f - for-loop - fun -> unboxed fun +unboxed-for.rkt line 55 col 31 - sum - unboxed complex variable +unboxed-for.rkt line 57 col 9 - i - unbox inexact-complex +unboxed-for.rkt line 57 col 11 - sum - unbox inexact-complex +unboxed-for.rkt line 57 col 7 - + - unboxed binary inexact complex +unboxed-for.rkt line 57 col 6 - (#%app + i sum) - unboxed inexact complex +#f line #f col #f - (#%app pos->vals pos) - unbox inexact-complex +#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) - unboxed let bindings +unboxed-for.rkt line 56 col 13 - i - unboxed complex variable +unboxed-for.rkt line 56 col 13 - i - unboxed complex variable +unboxed-for.rkt line 57 col 9 - i - leave var unboxed +unboxed-for.rkt line 57 col 11 - sum - unbox inexact-complex +unboxed-for.rkt line 57 col 7 - + - unboxed binary inexact complex +unboxed-for.rkt line 57 col 6 - (#%app + i sum) - unboxed inexact complex +unboxed-for.rkt line 55 col 31 - sum - leave var unboxed +#f line #f col #f - (let-values (((sum) sum)) (let-values () (#%app + i sum))) - unboxed let bindings +#f line #f col #f - (let-values () (#%app + i sum)) - unboxed let bindings +unboxed-for.rkt line 57 col 9 - i - leave var unboxed +unboxed-for.rkt line 57 col 11 - sum - leave var unboxed +unboxed-for.rkt line 57 col 7 - + - unboxed binary inexact complex +unboxed-for.rkt line 57 col 6 - (#%app + i sum) - unboxed inexact complex +#f line #f col #f - (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) - unboxed let bindings +unboxed-for.rkt line 56 col 13 - i - unboxed complex variable +unboxed-for.rkt line 55 col 31 - sum - unbox inexact-complex +#f line #f col #f - for-loop - unboxed call site +#f line #f col #f - for-loop - call to fun with unboxed args +unboxed-for.rkt line 55 col 31 - sum - unboxed complex variable +unboxed-for.rkt line 55 col 31 - sum - unboxed complex variable +unboxed-for.rkt line 55 col 0 - (letrec-values (((for-loop) (lambda (sum pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) sum)))) for-loop) - unboxed let bindings +unboxed-for.rkt line 55 col 53 - 0.0+0.0i - unboxed literal +unboxed-for.rkt line 55 col 0 - (letrec-values (((for-loop) (lambda (sum pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) sum)))) for-loop) - unboxed call site +#f line #f col #f - for-loop - unboxed let loop +3.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt.log deleted file mode 100644 index 71c74c2cb2..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-for.rkt.log +++ /dev/null @@ -1,45 +0,0 @@ -#f line #f col #f - make-sequence - in-list -#f line #f col #f - (let-values (((pos->vals pos-next init pos-cont? val-cont? all-cont?) (#%app make-sequence (quote (i)) (quote (1.0+2.0i 2.0+4.0i))))) (#%app void) (#%app (letrec-values (((for-loop) (lambda (sum pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) sum)))) for-loop) (quote 0.0+0.0i) init)) - unboxed let bindings -unboxed-for.rkt line 8 col 9 - i - unbox inexact-complex -unboxed-for.rkt line 8 col 11 - sum - unbox inexact-complex -unboxed-for.rkt line 8 col 7 - + - unboxed binary inexact complex -unboxed-for.rkt line 8 col 6 - (#%app + i sum) - unboxed inexact complex -unboxed-for.rkt line 8 col 9 - i - unbox inexact-complex -unboxed-for.rkt line 8 col 11 - sum - unbox inexact-complex -unboxed-for.rkt line 8 col 7 - + - unboxed binary inexact complex -unboxed-for.rkt line 8 col 6 - (#%app + i sum) - unboxed inexact complex -unboxed-for.rkt line 6 col 31 - sum - unboxed var -> table -#f line #f col #f - for-loop - unboxed function -> table -#f line #f col #f - for-loop - fun -> unboxed fun -unboxed-for.rkt line 6 col 31 - sum - unboxed complex variable -unboxed-for.rkt line 8 col 9 - i - unbox inexact-complex -unboxed-for.rkt line 8 col 11 - sum - unbox inexact-complex -unboxed-for.rkt line 8 col 7 - + - unboxed binary inexact complex -unboxed-for.rkt line 8 col 6 - (#%app + i sum) - unboxed inexact complex -#f line #f col #f - (#%app pos->vals pos) - unbox inexact-complex -#f line #f col #f - (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) - unboxed let bindings -unboxed-for.rkt line 7 col 13 - i - unboxed complex variable -unboxed-for.rkt line 7 col 13 - i - unboxed complex variable -unboxed-for.rkt line 8 col 9 - i - leave var unboxed -unboxed-for.rkt line 8 col 11 - sum - unbox inexact-complex -unboxed-for.rkt line 8 col 7 - + - unboxed binary inexact complex -unboxed-for.rkt line 8 col 6 - (#%app + i sum) - unboxed inexact complex -unboxed-for.rkt line 6 col 31 - sum - leave var unboxed -#f line #f col #f - (let-values (((sum) sum)) (let-values () (#%app + i sum))) - unboxed let bindings -#f line #f col #f - (let-values () (#%app + i sum)) - unboxed let bindings -unboxed-for.rkt line 8 col 9 - i - leave var unboxed -unboxed-for.rkt line 8 col 11 - sum - leave var unboxed -unboxed-for.rkt line 8 col 7 - + - unboxed binary inexact complex -unboxed-for.rkt line 8 col 6 - (#%app + i sum) - unboxed inexact complex -#f line #f col #f - (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) - unboxed let bindings -unboxed-for.rkt line 7 col 13 - i - unboxed complex variable -unboxed-for.rkt line 6 col 31 - sum - unbox inexact-complex -#f line #f col #f - for-loop - unboxed call site -#f line #f col #f - for-loop - call to fun with unboxed args -unboxed-for.rkt line 6 col 31 - sum - unboxed complex variable -unboxed-for.rkt line 6 col 31 - sum - unboxed complex variable -unboxed-for.rkt line 6 col 0 - (letrec-values (((for-loop) (lambda (sum pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) sum)))) for-loop) - unboxed let bindings -unboxed-for.rkt line 6 col 53 - 0.0+0.0i - unboxed literal -unboxed-for.rkt line 6 col 0 - (letrec-values (((for-loop) (lambda (sum pos) (if (#%app pos-cont? pos) (let-values (((i) (#%app pos->vals pos))) (if (#%app val-cont? i) (let-values (((sum) (let-values (((sum) sum)) (let-values () (#%app + i sum))))) (if (#%app all-cont? pos i) (#%app for-loop sum (#%app pos-next pos)) sum)) sum)) sum)))) for-loop) - unboxed call site -#f line #f col #f - for-loop - unboxed let loop -3.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt index ae8623a4f6..41b456b114 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt @@ -1,3 +1,25 @@ +#; +( +unboxed-let-functions1.rkt line 29 col 45 - x - unbox inexact-complex +unboxed-let-functions1.rkt line 29 col 47 - 3.0+6.0i - unboxed literal +unboxed-let-functions1.rkt line 29 col 43 - + - unboxed binary inexact complex +unboxed-let-functions1.rkt line 29 col 42 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex +unboxed-let-functions1.rkt line 29 col 20 - x - unboxed var -> table +unboxed-let-functions1.rkt line 29 col 7 - f - unboxed function -> table +unboxed-let-functions1.rkt line 29 col 7 - f - fun -> unboxed fun +unboxed-let-functions1.rkt line 29 col 45 - x - leave var unboxed +unboxed-let-functions1.rkt line 29 col 47 - 3.0+6.0i - unboxed literal +unboxed-let-functions1.rkt line 29 col 43 - + - unboxed binary inexact complex +unboxed-let-functions1.rkt line 29 col 42 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex +unboxed-let-functions1.rkt line 29 col 0 - (let-values (((f) (lambda (x) (#%app + x (quote 3.0+6.0i))))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) - unboxed let bindings +unboxed-let-functions1.rkt line 30 col 8 - 1.0+2.0i - unboxed literal +unboxed-let-functions1.rkt line 30 col 17 - 2.0+4.0i - unboxed literal +unboxed-let-functions1.rkt line 30 col 6 - + - unboxed binary inexact complex +unboxed-let-functions1.rkt line 30 col 3 - f - unboxed call site +unboxed-let-functions1.rkt line 30 col 3 - f - call to fun with unboxed args +6.0+12.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt.log deleted file mode 100644 index 9e89578008..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions1.rkt.log +++ /dev/null @@ -1,18 +0,0 @@ -unboxed-let-functions1.rkt line 7 col 45 - x - unbox inexact-complex -unboxed-let-functions1.rkt line 7 col 47 - 3.0+6.0i - unboxed literal -unboxed-let-functions1.rkt line 7 col 43 - + - unboxed binary inexact complex -unboxed-let-functions1.rkt line 7 col 42 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex -unboxed-let-functions1.rkt line 7 col 20 - x - unboxed var -> table -unboxed-let-functions1.rkt line 7 col 7 - f - unboxed function -> table -unboxed-let-functions1.rkt line 7 col 7 - f - fun -> unboxed fun -unboxed-let-functions1.rkt line 7 col 45 - x - leave var unboxed -unboxed-let-functions1.rkt line 7 col 47 - 3.0+6.0i - unboxed literal -unboxed-let-functions1.rkt line 7 col 43 - + - unboxed binary inexact complex -unboxed-let-functions1.rkt line 7 col 42 - (#%app + x (quote 3.0+6.0i)) - unboxed inexact complex -unboxed-let-functions1.rkt line 7 col 0 - (let-values (((f) (lambda (x) (#%app + x (quote 3.0+6.0i))))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) - unboxed let bindings -unboxed-let-functions1.rkt line 8 col 8 - 1.0+2.0i - unboxed literal -unboxed-let-functions1.rkt line 8 col 17 - 2.0+4.0i - unboxed literal -unboxed-let-functions1.rkt line 8 col 6 - + - unboxed binary inexact complex -unboxed-let-functions1.rkt line 8 col 3 - f - unboxed call site -unboxed-let-functions1.rkt line 8 col 3 - f - call to fun with unboxed args -6.0+12.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt index 1b2b401f62..a6040a56ae 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt @@ -1,3 +1,31 @@ +#; +( +unboxed-let-functions2.rkt line 36 col 21 - x - unbox inexact-complex +unboxed-let-functions2.rkt line 36 col 23 - y - unbox inexact-complex +unboxed-let-functions2.rkt line 36 col 19 - + - unboxed binary inexact complex +unboxed-let-functions2.rkt line 36 col 18 - (#%app + x y) - unboxed inexact complex +unboxed-let-functions2.rkt line 35 col 20 - x - unboxed var -> table +unboxed-let-functions2.rkt line 36 col 21 - x - unbox inexact-complex +unboxed-let-functions2.rkt line 36 col 23 - y - unbox inexact-complex +unboxed-let-functions2.rkt line 36 col 19 - + - unboxed binary inexact complex +unboxed-let-functions2.rkt line 36 col 18 - (#%app + x y) - unboxed inexact complex +unboxed-let-functions2.rkt line 35 col 42 - y - unboxed var -> table +unboxed-let-functions2.rkt line 35 col 7 - f - unboxed function -> table +unboxed-let-functions2.rkt line 35 col 7 - f - fun -> unboxed fun +unboxed-let-functions2.rkt line 36 col 21 - x - leave var unboxed +unboxed-let-functions2.rkt line 36 col 23 - y - leave var unboxed +unboxed-let-functions2.rkt line 36 col 19 - + - unboxed binary inexact complex +unboxed-let-functions2.rkt line 36 col 18 - (#%app + x y) - unboxed inexact complex +unboxed-let-functions2.rkt line 35 col 0 - (let-values (((f) (lambda (x y) (#%app + x y)))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) (quote 3.0+6.0i))) - unboxed let bindings +unboxed-let-functions2.rkt line 37 col 8 - 1.0+2.0i - unboxed literal +unboxed-let-functions2.rkt line 37 col 17 - 2.0+4.0i - unboxed literal +unboxed-let-functions2.rkt line 37 col 6 - + - unboxed binary inexact complex +unboxed-let-functions2.rkt line 38 col 5 - 3.0+6.0i - unboxed literal +unboxed-let-functions2.rkt line 37 col 3 - f - unboxed call site +unboxed-let-functions2.rkt line 37 col 3 - f - call to fun with unboxed args +6.0+12.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt.log deleted file mode 100644 index 33b4d33dae..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions2.rkt.log +++ /dev/null @@ -1,24 +0,0 @@ -unboxed-let-functions2.rkt line 8 col 21 - x - unbox inexact-complex -unboxed-let-functions2.rkt line 8 col 23 - y - unbox inexact-complex -unboxed-let-functions2.rkt line 8 col 19 - + - unboxed binary inexact complex -unboxed-let-functions2.rkt line 8 col 18 - (#%app + x y) - unboxed inexact complex -unboxed-let-functions2.rkt line 7 col 20 - x - unboxed var -> table -unboxed-let-functions2.rkt line 8 col 21 - x - unbox inexact-complex -unboxed-let-functions2.rkt line 8 col 23 - y - unbox inexact-complex -unboxed-let-functions2.rkt line 8 col 19 - + - unboxed binary inexact complex -unboxed-let-functions2.rkt line 8 col 18 - (#%app + x y) - unboxed inexact complex -unboxed-let-functions2.rkt line 7 col 42 - y - unboxed var -> table -unboxed-let-functions2.rkt line 7 col 7 - f - unboxed function -> table -unboxed-let-functions2.rkt line 7 col 7 - f - fun -> unboxed fun -unboxed-let-functions2.rkt line 8 col 21 - x - leave var unboxed -unboxed-let-functions2.rkt line 8 col 23 - y - leave var unboxed -unboxed-let-functions2.rkt line 8 col 19 - + - unboxed binary inexact complex -unboxed-let-functions2.rkt line 8 col 18 - (#%app + x y) - unboxed inexact complex -unboxed-let-functions2.rkt line 7 col 0 - (let-values (((f) (lambda (x y) (#%app + x y)))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) (quote 3.0+6.0i))) - unboxed let bindings -unboxed-let-functions2.rkt line 9 col 8 - 1.0+2.0i - unboxed literal -unboxed-let-functions2.rkt line 9 col 17 - 2.0+4.0i - unboxed literal -unboxed-let-functions2.rkt line 9 col 6 - + - unboxed binary inexact complex -unboxed-let-functions2.rkt line 10 col 5 - 3.0+6.0i - unboxed literal -unboxed-let-functions2.rkt line 9 col 3 - f - unboxed call site -unboxed-let-functions2.rkt line 9 col 3 - f - call to fun with unboxed args -6.0+12.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt index 32a0c2d8c8..2e5a90f220 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt @@ -1,3 +1,25 @@ +#; +( +unboxed-let-functions3.rkt line 30 col 21 - x - unbox inexact-complex +unboxed-let-functions3.rkt line 30 col 23 - y - float-coerce-expr in complex ops +unboxed-let-functions3.rkt line 30 col 19 - + - unboxed binary inexact complex +unboxed-let-functions3.rkt line 30 col 18 - (#%app + x y) - unboxed inexact complex +unboxed-let-functions3.rkt line 29 col 20 - x - unboxed var -> table +unboxed-let-functions3.rkt line 29 col 7 - f - unboxed function -> table +unboxed-let-functions3.rkt line 29 col 7 - f - fun -> unboxed fun +unboxed-let-functions3.rkt line 30 col 21 - x - leave var unboxed +unboxed-let-functions3.rkt line 30 col 23 - y - float-coerce-expr in complex ops +unboxed-let-functions3.rkt line 30 col 19 - + - unboxed binary inexact complex +unboxed-let-functions3.rkt line 30 col 18 - (#%app + x y) - unboxed inexact complex +unboxed-let-functions3.rkt line 29 col 0 - (let-values (((f) (lambda (x y) (#%app + x y)))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) (quote 3.0))) - unboxed let bindings +unboxed-let-functions3.rkt line 31 col 8 - 1.0+2.0i - unboxed literal +unboxed-let-functions3.rkt line 31 col 17 - 2.0+4.0i - unboxed literal +unboxed-let-functions3.rkt line 31 col 6 - + - unboxed binary inexact complex +unboxed-let-functions3.rkt line 31 col 3 - f - unboxed call site +unboxed-let-functions3.rkt line 31 col 3 - f - call to fun with unboxed args +6.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt.log deleted file mode 100644 index 09d9d03b54..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions3.rkt.log +++ /dev/null @@ -1,18 +0,0 @@ -unboxed-let-functions3.rkt line 8 col 21 - x - unbox inexact-complex -unboxed-let-functions3.rkt line 8 col 23 - y - float-coerce-expr in complex ops -unboxed-let-functions3.rkt line 8 col 19 - + - unboxed binary inexact complex -unboxed-let-functions3.rkt line 8 col 18 - (#%app + x y) - unboxed inexact complex -unboxed-let-functions3.rkt line 7 col 20 - x - unboxed var -> table -unboxed-let-functions3.rkt line 7 col 7 - f - unboxed function -> table -unboxed-let-functions3.rkt line 7 col 7 - f - fun -> unboxed fun -unboxed-let-functions3.rkt line 8 col 21 - x - leave var unboxed -unboxed-let-functions3.rkt line 8 col 23 - y - float-coerce-expr in complex ops -unboxed-let-functions3.rkt line 8 col 19 - + - unboxed binary inexact complex -unboxed-let-functions3.rkt line 8 col 18 - (#%app + x y) - unboxed inexact complex -unboxed-let-functions3.rkt line 7 col 0 - (let-values (((f) (lambda (x y) (#%app + x y)))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) (quote 3.0))) - unboxed let bindings -unboxed-let-functions3.rkt line 9 col 8 - 1.0+2.0i - unboxed literal -unboxed-let-functions3.rkt line 9 col 17 - 2.0+4.0i - unboxed literal -unboxed-let-functions3.rkt line 9 col 6 - + - unboxed binary inexact complex -unboxed-let-functions3.rkt line 9 col 3 - f - unboxed call site -unboxed-let-functions3.rkt line 9 col 3 - f - call to fun with unboxed args -6.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt index ec577333a8..bc294048d2 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt @@ -1,3 +1,25 @@ +#; +( +unboxed-let-functions4.rkt line 30 col 21 - x - unbox inexact-complex +unboxed-let-functions4.rkt line 30 col 23 - y - float-coerce-expr in complex ops +unboxed-let-functions4.rkt line 30 col 19 - + - unboxed binary inexact complex +unboxed-let-functions4.rkt line 30 col 18 - (#%app + x y) - unboxed inexact complex +unboxed-let-functions4.rkt line 29 col 32 - x - unboxed var -> table +unboxed-let-functions4.rkt line 29 col 7 - f - unboxed function -> table +unboxed-let-functions4.rkt line 29 col 7 - f - fun -> unboxed fun +unboxed-let-functions4.rkt line 30 col 21 - x - leave var unboxed +unboxed-let-functions4.rkt line 30 col 23 - y - float-coerce-expr in complex ops +unboxed-let-functions4.rkt line 30 col 19 - + - unboxed binary inexact complex +unboxed-let-functions4.rkt line 30 col 18 - (#%app + x y) - unboxed inexact complex +unboxed-let-functions4.rkt line 29 col 0 - (let-values (((f) (lambda (y x) (#%app + x y)))) (#%app f (quote 3.0) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) - unboxed let bindings +unboxed-let-functions4.rkt line 32 col 8 - 1.0+2.0i - unboxed literal +unboxed-let-functions4.rkt line 32 col 17 - 2.0+4.0i - unboxed literal +unboxed-let-functions4.rkt line 32 col 6 - + - unboxed binary inexact complex +unboxed-let-functions4.rkt line 31 col 3 - f - unboxed call site +unboxed-let-functions4.rkt line 31 col 3 - f - call to fun with unboxed args +6.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt.log deleted file mode 100644 index 5ddc3206ea..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions4.rkt.log +++ /dev/null @@ -1,18 +0,0 @@ -unboxed-let-functions4.rkt line 8 col 21 - x - unbox inexact-complex -unboxed-let-functions4.rkt line 8 col 23 - y - float-coerce-expr in complex ops -unboxed-let-functions4.rkt line 8 col 19 - + - unboxed binary inexact complex -unboxed-let-functions4.rkt line 8 col 18 - (#%app + x y) - unboxed inexact complex -unboxed-let-functions4.rkt line 7 col 32 - x - unboxed var -> table -unboxed-let-functions4.rkt line 7 col 7 - f - unboxed function -> table -unboxed-let-functions4.rkt line 7 col 7 - f - fun -> unboxed fun -unboxed-let-functions4.rkt line 8 col 21 - x - leave var unboxed -unboxed-let-functions4.rkt line 8 col 23 - y - float-coerce-expr in complex ops -unboxed-let-functions4.rkt line 8 col 19 - + - unboxed binary inexact complex -unboxed-let-functions4.rkt line 8 col 18 - (#%app + x y) - unboxed inexact complex -unboxed-let-functions4.rkt line 7 col 0 - (let-values (((f) (lambda (y x) (#%app + x y)))) (#%app f (quote 3.0) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) - unboxed let bindings -unboxed-let-functions4.rkt line 10 col 8 - 1.0+2.0i - unboxed literal -unboxed-let-functions4.rkt line 10 col 17 - 2.0+4.0i - unboxed literal -unboxed-let-functions4.rkt line 10 col 6 - + - unboxed binary inexact complex -unboxed-let-functions4.rkt line 9 col 3 - f - unboxed call site -unboxed-let-functions4.rkt line 9 col 3 - f - call to fun with unboxed args -6.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt index fb5da8d2ef..0b14144b67 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt @@ -1,3 +1,14 @@ +#; +( +unboxed-let-functions5.rkt line 20 col 22 - (let-values (((y) f)) x) - unboxed let bindings +unboxed-let-functions5.rkt line 18 col 0 - (letrec-values (((f) (lambda (x) (let-values (((y) f)) x)))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) - unboxed let bindings +unboxed-let-functions5.rkt line 22 col 15 - 1.0+2.0i - unboxed literal +unboxed-let-functions5.rkt line 22 col 24 - 2.0+4.0i - unboxed literal +unboxed-let-functions5.rkt line 22 col 13 - + - unboxed binary inexact complex +unboxed-let-functions5.rkt line 22 col 12 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex +3.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt.log deleted file mode 100644 index 3be81d1a17..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions5.rkt.log +++ /dev/null @@ -1,7 +0,0 @@ -unboxed-let-functions5.rkt line 9 col 22 - (let-values (((y) f)) x) - unboxed let bindings -unboxed-let-functions5.rkt line 7 col 0 - (letrec-values (((f) (lambda (x) (let-values (((y) f)) x)))) (#%app f (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) - unboxed let bindings -unboxed-let-functions5.rkt line 11 col 15 - 1.0+2.0i - unboxed literal -unboxed-let-functions5.rkt line 11 col 24 - 2.0+4.0i - unboxed literal -unboxed-let-functions5.rkt line 11 col 13 - + - unboxed binary inexact complex -unboxed-let-functions5.rkt line 11 col 12 - (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)) - unboxed inexact complex -3.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt index 31fae6f1f2..6bac579c4f 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt @@ -1,3 +1,30 @@ +#; +( +unboxed-let-functions6.rkt line 36 col 13 - z - unbox inexact-complex +unboxed-let-functions6.rkt line 36 col 15 - 0.0+1.0i - unboxed literal +unboxed-let-functions6.rkt line 36 col 11 - + - unboxed binary inexact complex +unboxed-let-functions6.rkt line 36 col 10 - (#%app + z (quote 0.0+1.0i)) - unboxed inexact complex +unboxed-let-functions6.rkt line 33 col 31 - z - unboxed var -> table +unboxed-let-functions6.rkt line 33 col 6 - loop - unboxed function -> table +unboxed-let-functions6.rkt line 33 col 6 - loop - fun -> unboxed fun +unboxed-let-functions6.rkt line 36 col 13 - z - leave var unboxed +unboxed-let-functions6.rkt line 36 col 15 - 0.0+1.0i - unboxed literal +unboxed-let-functions6.rkt line 36 col 11 - + - unboxed binary inexact complex +unboxed-let-functions6.rkt line 36 col 10 - (#%app + z (quote 0.0+1.0i)) - unboxed inexact complex +unboxed-let-functions6.rkt line 37 col 19 - z - leave var unboxed +unboxed-let-functions6.rkt line 37 col 22 - car - unary pair +unboxed-let-functions6.rkt line 37 col 21 - (#%app car l) - float-coerce-expr in complex ops +unboxed-let-functions6.rkt line 37 col 17 - + - unboxed binary inexact complex +unboxed-let-functions6.rkt line 37 col 11 - loop - unboxed call site +unboxed-let-functions6.rkt line 38 col 17 - cdr - unary pair +unboxed-let-functions6.rkt line 37 col 11 - loop - call to fun with unboxed args +#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) (#%app + z (quote 0.0+1.0i)) (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed let bindings +unboxed-let-functions6.rkt line 33 col 51 - 0.0+0.0i - unboxed literal +#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) (#%app + z (quote 0.0+1.0i)) (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed call site +unboxed-let-functions6.rkt line 33 col 6 - loop - unboxed let loop +6.0+1.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt.log deleted file mode 100644 index 0fd46bdc24..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions6.rkt.log +++ /dev/null @@ -1,23 +0,0 @@ -unboxed-let-functions6.rkt line 9 col 13 - z - unbox inexact-complex -unboxed-let-functions6.rkt line 9 col 15 - 0.0+1.0i - unboxed literal -unboxed-let-functions6.rkt line 9 col 11 - + - unboxed binary inexact complex -unboxed-let-functions6.rkt line 9 col 10 - (#%app + z (quote 0.0+1.0i)) - unboxed inexact complex -unboxed-let-functions6.rkt line 6 col 31 - z - unboxed var -> table -unboxed-let-functions6.rkt line 6 col 6 - loop - unboxed function -> table -unboxed-let-functions6.rkt line 6 col 6 - loop - fun -> unboxed fun -unboxed-let-functions6.rkt line 9 col 13 - z - leave var unboxed -unboxed-let-functions6.rkt line 9 col 15 - 0.0+1.0i - unboxed literal -unboxed-let-functions6.rkt line 9 col 11 - + - unboxed binary inexact complex -unboxed-let-functions6.rkt line 9 col 10 - (#%app + z (quote 0.0+1.0i)) - unboxed inexact complex -unboxed-let-functions6.rkt line 10 col 19 - z - leave var unboxed -unboxed-let-functions6.rkt line 10 col 22 - car - unary pair -unboxed-let-functions6.rkt line 10 col 21 - (#%app car l) - float-coerce-expr in complex ops -unboxed-let-functions6.rkt line 10 col 17 - + - unboxed binary inexact complex -unboxed-let-functions6.rkt line 10 col 11 - loop - unboxed call site -unboxed-let-functions6.rkt line 11 col 17 - cdr - unary pair -unboxed-let-functions6.rkt line 10 col 11 - loop - call to fun with unboxed args -#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) (#%app + z (quote 0.0+1.0i)) (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed let bindings -unboxed-let-functions6.rkt line 6 col 51 - 0.0+0.0i - unboxed literal -#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) (#%app + z (quote 0.0+1.0i)) (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed call site -unboxed-let-functions6.rkt line 6 col 6 - loop - unboxed let loop -6.0+1.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt index b60a7eecb8..59f5242d7a 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt @@ -1,3 +1,28 @@ +#; +( +unboxed-let-functions7.rkt line 35 col 15 - z - unbox inexact-complex +unboxed-let-functions7.rkt line 35 col 18 - car - unary pair +unboxed-let-functions7.rkt line 35 col 17 - (#%app car l) - float-coerce-expr in complex ops +unboxed-let-functions7.rkt line 35 col 13 - + - unboxed binary inexact complex +unboxed-let-functions7.rkt line 35 col 12 - (#%app + z (#%app car l)) - unboxed inexact complex +unboxed-let-functions7.rkt line 31 col 31 - z - unboxed var -> table +unboxed-let-functions7.rkt line 31 col 6 - loop - unboxed function -> table +unboxed-let-functions7.rkt line 31 col 6 - loop - fun -> unboxed fun +unboxed-let-functions7.rkt line 34 col 6 - z - unboxed complex variable +unboxed-let-functions7.rkt line 35 col 15 - z - leave var unboxed +unboxed-let-functions7.rkt line 35 col 18 - car - unary pair +unboxed-let-functions7.rkt line 35 col 17 - (#%app car l) - float-coerce-expr in complex ops +unboxed-let-functions7.rkt line 35 col 13 - + - unboxed binary inexact complex +unboxed-let-functions7.rkt line 35 col 7 - loop - unboxed call site +unboxed-let-functions7.rkt line 36 col 13 - cdr - unary pair +unboxed-let-functions7.rkt line 35 col 7 - loop - call to fun with unboxed args +#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) z (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed let bindings +unboxed-let-functions7.rkt line 31 col 51 - 0.0+0.0i - unboxed literal +#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) z (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed call site +unboxed-let-functions7.rkt line 31 col 6 - loop - unboxed let loop +6.0+0.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt.log deleted file mode 100644 index 699e188d75..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions7.rkt.log +++ /dev/null @@ -1,21 +0,0 @@ -unboxed-let-functions7.rkt line 10 col 15 - z - unbox inexact-complex -unboxed-let-functions7.rkt line 10 col 18 - car - unary pair -unboxed-let-functions7.rkt line 10 col 17 - (#%app car l) - float-coerce-expr in complex ops -unboxed-let-functions7.rkt line 10 col 13 - + - unboxed binary inexact complex -unboxed-let-functions7.rkt line 10 col 12 - (#%app + z (#%app car l)) - unboxed inexact complex -unboxed-let-functions7.rkt line 6 col 31 - z - unboxed var -> table -unboxed-let-functions7.rkt line 6 col 6 - loop - unboxed function -> table -unboxed-let-functions7.rkt line 6 col 6 - loop - fun -> unboxed fun -unboxed-let-functions7.rkt line 9 col 6 - z - unboxed complex variable -unboxed-let-functions7.rkt line 10 col 15 - z - leave var unboxed -unboxed-let-functions7.rkt line 10 col 18 - car - unary pair -unboxed-let-functions7.rkt line 10 col 17 - (#%app car l) - float-coerce-expr in complex ops -unboxed-let-functions7.rkt line 10 col 13 - + - unboxed binary inexact complex -unboxed-let-functions7.rkt line 10 col 7 - loop - unboxed call site -unboxed-let-functions7.rkt line 11 col 13 - cdr - unary pair -unboxed-let-functions7.rkt line 10 col 7 - loop - call to fun with unboxed args -#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) z (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed let bindings -unboxed-let-functions7.rkt line 6 col 51 - 0.0+0.0i - unboxed literal -#f line #f col #f - (letrec-values (((loop) (lambda (z l) (if (#%app null? l) z (#%app loop (#%app + z (#%app car l)) (#%app cdr l)))))) loop) - unboxed call site -unboxed-let-functions7.rkt line 6 col 6 - loop - unboxed let loop -6.0+0.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt index 88610a8c2e..45aae88c42 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt @@ -1,3 +1,13 @@ +#; +( +unboxed-let-functions8.rkt line 16 col 67 - x - unbox inexact-complex +unboxed-let-functions8.rkt line 16 col 69 - 2.0+4.0i - unboxed literal +unboxed-let-functions8.rkt line 16 col 65 - + - unboxed binary inexact complex +unboxed-let-functions8.rkt line 16 col 64 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +unboxed-let-functions8.rkt line 16 col 0 - (letrec-values (((f) (lambda (x) (#%app + x (quote 2.0+4.0i)))) ((g) f)) (#%app f (quote 1.0+2.0i))) - unboxed let bindings +3.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt.log deleted file mode 100644 index 0f1d706a2f..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt.log +++ /dev/null @@ -1,6 +0,0 @@ -unboxed-let-functions8.rkt line 6 col 67 - x - unbox inexact-complex -unboxed-let-functions8.rkt line 6 col 69 - 2.0+4.0i - unboxed literal -unboxed-let-functions8.rkt line 6 col 65 - + - unboxed binary inexact complex -unboxed-let-functions8.rkt line 6 col 64 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -unboxed-let-functions8.rkt line 6 col 0 - (letrec-values (((f) (lambda (x) (#%app + x (quote 2.0+4.0i)))) ((g) f)) (#%app f (quote 1.0+2.0i))) - unboxed let bindings -3.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt index faa7be8a91..b785896a07 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt @@ -1,3 +1,34 @@ +#; +( +unboxed-let.rkt line 38 col 14 - t1 - unbox inexact-complex +unboxed-let.rkt line 38 col 17 - 3.0+6.0i - unboxed literal +unboxed-let.rkt line 38 col 12 - - - unboxed binary inexact complex +unboxed-let.rkt line 38 col 11 - (#%app - t1 (quote 3.0+6.0i)) - unboxed inexact complex +unboxed-let.rkt line 37 col 14 - 1.0+2.0i - unboxed literal +unboxed-let.rkt line 37 col 23 - 2.0+4.0i - unboxed literal +unboxed-let.rkt line 37 col 12 - + - unboxed binary inexact complex +unboxed-let.rkt line 37 col 0 - (let-values (((t1) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) (let-values (((t2) (#%app - t1 (quote 3.0+6.0i)))) (let-values (((t3) (quote 4.0+8.0i))) (#%app + t2 t3)))) - unboxed let bindings +unboxed-let.rkt line 40 col 5 - t2 - unbox inexact-complex +unboxed-let.rkt line 40 col 8 - t3 - unbox inexact-complex +unboxed-let.rkt line 40 col 3 - + - unboxed binary inexact complex +unboxed-let.rkt line 40 col 2 - (#%app + t2 t3) - unboxed inexact complex +unboxed-let.rkt line 38 col 14 - t1 - leave var unboxed +unboxed-let.rkt line 38 col 17 - 3.0+6.0i - unboxed literal +unboxed-let.rkt line 38 col 12 - - - unboxed binary inexact complex +unboxed-let.rkt line 37 col 0 - (let-values (((t2) (#%app - t1 (quote 3.0+6.0i)))) (let-values (((t3) (quote 4.0+8.0i))) (#%app + t2 t3))) - unboxed let bindings +unboxed-let.rkt line 40 col 5 - t2 - leave var unboxed +unboxed-let.rkt line 40 col 8 - t3 - unbox inexact-complex +unboxed-let.rkt line 40 col 3 - + - unboxed binary inexact complex +unboxed-let.rkt line 40 col 2 - (#%app + t2 t3) - unboxed inexact complex +unboxed-let.rkt line 39 col 11 - 4.0+8.0i - unboxed literal +unboxed-let.rkt line 37 col 0 - (let-values (((t3) (quote 4.0+8.0i))) (#%app + t2 t3)) - unboxed let bindings +unboxed-let.rkt line 40 col 5 - t2 - leave var unboxed +unboxed-let.rkt line 40 col 8 - t3 - leave var unboxed +unboxed-let.rkt line 40 col 3 - + - unboxed binary inexact complex +unboxed-let.rkt line 40 col 2 - (#%app + t2 t3) - unboxed inexact complex +4.0+8.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt.log deleted file mode 100644 index 9127908e9c..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let.rkt.log +++ /dev/null @@ -1,27 +0,0 @@ -unboxed-let.rkt line 7 col 14 - t1 - unbox inexact-complex -unboxed-let.rkt line 7 col 17 - 3.0+6.0i - unboxed literal -unboxed-let.rkt line 7 col 12 - - - unboxed binary inexact complex -unboxed-let.rkt line 7 col 11 - (#%app - t1 (quote 3.0+6.0i)) - unboxed inexact complex -unboxed-let.rkt line 6 col 14 - 1.0+2.0i - unboxed literal -unboxed-let.rkt line 6 col 23 - 2.0+4.0i - unboxed literal -unboxed-let.rkt line 6 col 12 - + - unboxed binary inexact complex -unboxed-let.rkt line 6 col 0 - (let-values (((t1) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) (let-values (((t2) (#%app - t1 (quote 3.0+6.0i)))) (let-values (((t3) (quote 4.0+8.0i))) (#%app + t2 t3)))) - unboxed let bindings -unboxed-let.rkt line 9 col 5 - t2 - unbox inexact-complex -unboxed-let.rkt line 9 col 8 - t3 - unbox inexact-complex -unboxed-let.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-let.rkt line 9 col 2 - (#%app + t2 t3) - unboxed inexact complex -unboxed-let.rkt line 7 col 14 - t1 - leave var unboxed -unboxed-let.rkt line 7 col 17 - 3.0+6.0i - unboxed literal -unboxed-let.rkt line 7 col 12 - - - unboxed binary inexact complex -unboxed-let.rkt line 6 col 0 - (let-values (((t2) (#%app - t1 (quote 3.0+6.0i)))) (let-values (((t3) (quote 4.0+8.0i))) (#%app + t2 t3))) - unboxed let bindings -unboxed-let.rkt line 9 col 5 - t2 - leave var unboxed -unboxed-let.rkt line 9 col 8 - t3 - unbox inexact-complex -unboxed-let.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-let.rkt line 9 col 2 - (#%app + t2 t3) - unboxed inexact complex -unboxed-let.rkt line 8 col 11 - 4.0+8.0i - unboxed literal -unboxed-let.rkt line 6 col 0 - (let-values (((t3) (quote 4.0+8.0i))) (#%app + t2 t3)) - unboxed let bindings -unboxed-let.rkt line 9 col 5 - t2 - leave var unboxed -unboxed-let.rkt line 9 col 8 - t3 - leave var unboxed -unboxed-let.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-let.rkt line 9 col 2 - (#%app + t2 t3) - unboxed inexact complex -4.0+8.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt index fc47b9a22b..84eff33f98 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt @@ -1,3 +1,27 @@ +#; +( +unboxed-let2.rkt line 32 col 5 - t1 - unbox inexact-complex +unboxed-let2.rkt line 32 col 8 - t2 - unbox inexact-complex +unboxed-let2.rkt line 32 col 3 - + - unboxed binary inexact complex +unboxed-let2.rkt line 32 col 2 - (#%app + t1 t2) - unboxed inexact complex +unboxed-let2.rkt line 32 col 5 - t1 - unbox inexact-complex +unboxed-let2.rkt line 32 col 8 - t2 - unbox inexact-complex +unboxed-let2.rkt line 32 col 3 - + - unboxed binary inexact complex +unboxed-let2.rkt line 32 col 2 - (#%app + t1 t2) - unboxed inexact complex +unboxed-let2.rkt line 30 col 13 - 1.0+2.0i - unboxed literal +unboxed-let2.rkt line 30 col 22 - 2.0+4.0i - unboxed literal +unboxed-let2.rkt line 30 col 11 - + - unboxed binary inexact complex +unboxed-let2.rkt line 31 col 13 - 3.0+6.0i - unboxed literal +unboxed-let2.rkt line 31 col 22 - 4.0+8.0i - unboxed literal +unboxed-let2.rkt line 31 col 11 - + - unboxed binary inexact complex +unboxed-let2.rkt line 30 col 0 - (let-values (((t1) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i))) ((t2) (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i)))) (#%app + t1 t2)) - unboxed let bindings +unboxed-let2.rkt line 32 col 5 - t1 - leave var unboxed +unboxed-let2.rkt line 32 col 8 - t2 - leave var unboxed +unboxed-let2.rkt line 32 col 3 - + - unboxed binary inexact complex +unboxed-let2.rkt line 32 col 2 - (#%app + t1 t2) - unboxed inexact complex +10.0+20.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt.log deleted file mode 100644 index 25ebffb9b4..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let2.rkt.log +++ /dev/null @@ -1,20 +0,0 @@ -unboxed-let2.rkt line 8 col 5 - t1 - unbox inexact-complex -unboxed-let2.rkt line 8 col 8 - t2 - unbox inexact-complex -unboxed-let2.rkt line 8 col 3 - + - unboxed binary inexact complex -unboxed-let2.rkt line 8 col 2 - (#%app + t1 t2) - unboxed inexact complex -unboxed-let2.rkt line 8 col 5 - t1 - unbox inexact-complex -unboxed-let2.rkt line 8 col 8 - t2 - unbox inexact-complex -unboxed-let2.rkt line 8 col 3 - + - unboxed binary inexact complex -unboxed-let2.rkt line 8 col 2 - (#%app + t1 t2) - unboxed inexact complex -unboxed-let2.rkt line 6 col 13 - 1.0+2.0i - unboxed literal -unboxed-let2.rkt line 6 col 22 - 2.0+4.0i - unboxed literal -unboxed-let2.rkt line 6 col 11 - + - unboxed binary inexact complex -unboxed-let2.rkt line 7 col 13 - 3.0+6.0i - unboxed literal -unboxed-let2.rkt line 7 col 22 - 4.0+8.0i - unboxed literal -unboxed-let2.rkt line 7 col 11 - + - unboxed binary inexact complex -unboxed-let2.rkt line 6 col 0 - (let-values (((t1) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i))) ((t2) (#%app + (quote 3.0+6.0i) (quote 4.0+8.0i)))) (#%app + t1 t2)) - unboxed let bindings -unboxed-let2.rkt line 8 col 5 - t1 - leave var unboxed -unboxed-let2.rkt line 8 col 8 - t2 - leave var unboxed -unboxed-let2.rkt line 8 col 3 - + - unboxed binary inexact complex -unboxed-let2.rkt line 8 col 2 - (#%app + t1 t2) - unboxed inexact complex -10.0+20.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt index 2ca3e9d1c2..77e149d166 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt @@ -1,3 +1,21 @@ +#; +( +unboxed-let3.rkt line 34 col 9 - x - unbox inexact-complex +unboxed-let3.rkt line 34 col 11 - 2.0+4.0i - unboxed literal +unboxed-let3.rkt line 34 col 7 - + - unboxed binary inexact complex +unboxed-let3.rkt line 34 col 6 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +unboxed-let3.rkt line 31 col 12 - 1.0+2.0i - unboxed literal +unboxed-let3.rkt line 31 col 21 - 2.0+4.0i - unboxed literal +unboxed-let3.rkt line 31 col 10 - + - unboxed binary inexact complex +unboxed-let3.rkt line 31 col 0 - (let-values (((x) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) (if (#%app even? (quote 2)) x (#%app + x (quote 2.0+4.0i)))) - unboxed let bindings +unboxed-let3.rkt line 33 col 6 - x - unboxed complex variable +unboxed-let3.rkt line 34 col 9 - x - leave var unboxed +unboxed-let3.rkt line 34 col 11 - 2.0+4.0i - unboxed literal +unboxed-let3.rkt line 34 col 7 - + - unboxed binary inexact complex +unboxed-let3.rkt line 34 col 6 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +3.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt.log deleted file mode 100644 index 328214e050..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let3.rkt.log +++ /dev/null @@ -1,14 +0,0 @@ -unboxed-let3.rkt line 16 col 9 - x - unbox inexact-complex -unboxed-let3.rkt line 16 col 11 - 2.0+4.0i - unboxed literal -unboxed-let3.rkt line 16 col 7 - + - unboxed binary inexact complex -unboxed-let3.rkt line 16 col 6 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -unboxed-let3.rkt line 13 col 12 - 1.0+2.0i - unboxed literal -unboxed-let3.rkt line 13 col 21 - 2.0+4.0i - unboxed literal -unboxed-let3.rkt line 13 col 10 - + - unboxed binary inexact complex -unboxed-let3.rkt line 13 col 0 - (let-values (((x) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) (if (#%app even? (quote 2)) x (#%app + x (quote 2.0+4.0i)))) - unboxed let bindings -unboxed-let3.rkt line 15 col 6 - x - unboxed complex variable -unboxed-let3.rkt line 16 col 9 - x - leave var unboxed -unboxed-let3.rkt line 16 col 11 - 2.0+4.0i - unboxed literal -unboxed-let3.rkt line 16 col 7 - + - unboxed binary inexact complex -unboxed-let3.rkt line 16 col 6 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -3.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt index ae3c43b471..71d5417089 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt @@ -1,3 +1,20 @@ +#; +( +unboxed-letrec-syntaxes+values.rkt line 25 col 27 - x - unbox inexact-complex +unboxed-letrec-syntaxes+values.rkt line 25 col 29 - 2.0+4.0i - unboxed literal +unboxed-letrec-syntaxes+values.rkt line 25 col 25 - + - unboxed binary inexact complex +unboxed-letrec-syntaxes+values.rkt line 25 col 24 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +unboxed-letrec-syntaxes+values.rkt line 24 col 33 - 1.0+2.0i - unboxed literal +unboxed-letrec-syntaxes+values.rkt line 24 col 42 - 2.0+4.0i - unboxed literal +unboxed-letrec-syntaxes+values.rkt line 24 col 31 - + - unboxed binary inexact complex +unboxed-letrec-syntaxes+values.rkt line 23 col 0 - (letrec-syntaxes+values (((s) (syntax-rules () ((_ x) x)))) (((x) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) (#%app + x (quote 2.0+4.0i))) - unboxed let bindings +unboxed-letrec-syntaxes+values.rkt line 25 col 27 - x - leave var unboxed +unboxed-letrec-syntaxes+values.rkt line 25 col 29 - 2.0+4.0i - unboxed literal +unboxed-letrec-syntaxes+values.rkt line 25 col 25 - + - unboxed binary inexact complex +unboxed-letrec-syntaxes+values.rkt line 25 col 24 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +5.0+10.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt.log deleted file mode 100644 index 2092bb8bf2..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec-syntaxes+values.rkt.log +++ /dev/null @@ -1,13 +0,0 @@ -unboxed-letrec-syntaxes+values.rkt line 8 col 27 - x - unbox inexact-complex -unboxed-letrec-syntaxes+values.rkt line 8 col 29 - 2.0+4.0i - unboxed literal -unboxed-letrec-syntaxes+values.rkt line 8 col 25 - + - unboxed binary inexact complex -unboxed-letrec-syntaxes+values.rkt line 8 col 24 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -unboxed-letrec-syntaxes+values.rkt line 7 col 33 - 1.0+2.0i - unboxed literal -unboxed-letrec-syntaxes+values.rkt line 7 col 42 - 2.0+4.0i - unboxed literal -unboxed-letrec-syntaxes+values.rkt line 7 col 31 - + - unboxed binary inexact complex -unboxed-letrec-syntaxes+values.rkt line 6 col 0 - (letrec-syntaxes+values (((s) (syntax-rules () ((_ x) x)))) (((x) (#%app + (quote 1.0+2.0i) (quote 2.0+4.0i)))) (#%app + x (quote 2.0+4.0i))) - unboxed let bindings -unboxed-letrec-syntaxes+values.rkt line 8 col 27 - x - leave var unboxed -unboxed-letrec-syntaxes+values.rkt line 8 col 29 - 2.0+4.0i - unboxed literal -unboxed-letrec-syntaxes+values.rkt line 8 col 25 - + - unboxed binary inexact complex -unboxed-letrec-syntaxes+values.rkt line 8 col 24 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -5.0+10.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt index c70b05d2c9..5a52c7dc8a 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt @@ -1,3 +1,25 @@ +#; +( +unboxed-letrec.rkt line 31 col 5 - x - unbox inexact-complex +unboxed-letrec.rkt line 31 col 7 - y - unbox inexact-complex +unboxed-letrec.rkt line 31 col 3 - + - unboxed binary inexact complex +unboxed-letrec.rkt line 31 col 2 - (#%app + x y) - unboxed inexact complex +unboxed-letrec.rkt line 31 col 5 - x - unbox inexact-complex +unboxed-letrec.rkt line 31 col 7 - y - unbox inexact-complex +unboxed-letrec.rkt line 31 col 3 - + - unboxed binary inexact complex +unboxed-letrec.rkt line 31 col 2 - (#%app + x y) - unboxed inexact complex +unboxed-letrec.rkt line 29 col 31 - 1.0+2.0i - unboxed literal +unboxed-letrec.rkt line 30 col 34 - 2.0+4.0i - unboxed literal +unboxed-letrec.rkt line 30 col 43 - 3.0+6.0i - unboxed literal +unboxed-letrec.rkt line 30 col 32 - + - unboxed binary inexact complex +unboxed-letrec.rkt line 28 col 0 - (letrec-values (((f) (lambda (x) (#%app f x))) ((x) (quote 1.0+2.0i)) ((y) (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) (#%app + x y)) - unboxed let bindings +unboxed-letrec.rkt line 31 col 5 - x - leave var unboxed +unboxed-letrec.rkt line 31 col 7 - y - leave var unboxed +unboxed-letrec.rkt line 31 col 3 - + - unboxed binary inexact complex +unboxed-letrec.rkt line 31 col 2 - (#%app + x y) - unboxed inexact complex +6.0+12.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt.log deleted file mode 100644 index 0b67db132c..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-letrec.rkt.log +++ /dev/null @@ -1,18 +0,0 @@ -unboxed-letrec.rkt line 9 col 5 - x - unbox inexact-complex -unboxed-letrec.rkt line 9 col 7 - y - unbox inexact-complex -unboxed-letrec.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-letrec.rkt line 9 col 2 - (#%app + x y) - unboxed inexact complex -unboxed-letrec.rkt line 9 col 5 - x - unbox inexact-complex -unboxed-letrec.rkt line 9 col 7 - y - unbox inexact-complex -unboxed-letrec.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-letrec.rkt line 9 col 2 - (#%app + x y) - unboxed inexact complex -unboxed-letrec.rkt line 7 col 31 - 1.0+2.0i - unboxed literal -unboxed-letrec.rkt line 8 col 34 - 2.0+4.0i - unboxed literal -unboxed-letrec.rkt line 8 col 43 - 3.0+6.0i - unboxed literal -unboxed-letrec.rkt line 8 col 32 - + - unboxed binary inexact complex -unboxed-letrec.rkt line 6 col 0 - (letrec-values (((f) (lambda (x) (#%app f x))) ((x) (quote 1.0+2.0i)) ((y) (#%app + (quote 2.0+4.0i) (quote 3.0+6.0i)))) (#%app + x y)) - unboxed let bindings -unboxed-letrec.rkt line 9 col 5 - x - leave var unboxed -unboxed-letrec.rkt line 9 col 7 - y - leave var unboxed -unboxed-letrec.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-letrec.rkt line 9 col 2 - (#%app + x y) - unboxed inexact complex -6.0+12.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt index eeffd93a5b..6cd9a776c2 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt @@ -1,3 +1,29 @@ +#; +( +unboxed-make-rectangular.rkt line 33 col 5 - x - unbox inexact-complex +unboxed-make-rectangular.rkt line 33 col 7 - 2.0+4.0i - unboxed literal +unboxed-make-rectangular.rkt line 33 col 3 - + - unboxed binary inexact complex +unboxed-make-rectangular.rkt line 33 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +unboxed-make-rectangular.rkt line 32 col 10 - make-rectangular - make-rectangular elimination +unboxed-make-rectangular.rkt line 32 col 0 - (let-values (((x) (#%app make-rectangular (quote 1.0) (quote 2.0)))) (#%app + x (quote 2.0+4.0i))) - unboxed let bindings +unboxed-make-rectangular.rkt line 33 col 5 - x - leave var unboxed +unboxed-make-rectangular.rkt line 33 col 7 - 2.0+4.0i - unboxed literal +unboxed-make-rectangular.rkt line 33 col 3 - + - unboxed binary inexact complex +unboxed-make-rectangular.rkt line 33 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +unboxed-make-rectangular.rkt line 35 col 5 - x - unbox inexact-complex +unboxed-make-rectangular.rkt line 35 col 7 - 2.0+4.0i - unboxed literal +unboxed-make-rectangular.rkt line 35 col 3 - + - unboxed binary inexact complex +unboxed-make-rectangular.rkt line 35 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +unboxed-make-rectangular.rkt line 34 col 10 - unsafe-make-flrectangular - make-rectangular elimination +unboxed-make-rectangular.rkt line 34 col 0 - (let-values (((x) (#%app unsafe-make-flrectangular (quote 1.0) (quote 2.0)))) (#%app + x (quote 2.0+4.0i))) - unboxed let bindings +unboxed-make-rectangular.rkt line 35 col 5 - x - leave var unboxed +unboxed-make-rectangular.rkt line 35 col 7 - 2.0+4.0i - unboxed literal +unboxed-make-rectangular.rkt line 35 col 3 - + - unboxed binary inexact complex +unboxed-make-rectangular.rkt line 35 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex +3.0+6.0i +3.0+6.0i +) + #lang typed/scheme #:optimize diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt.log b/collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt.log deleted file mode 100644 index 264bc093a8..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-make-rectangular.rkt.log +++ /dev/null @@ -1,22 +0,0 @@ -unboxed-make-rectangular.rkt line 7 col 5 - x - unbox inexact-complex -unboxed-make-rectangular.rkt line 7 col 7 - 2.0+4.0i - unboxed literal -unboxed-make-rectangular.rkt line 7 col 3 - + - unboxed binary inexact complex -unboxed-make-rectangular.rkt line 7 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -unboxed-make-rectangular.rkt line 6 col 10 - make-rectangular - make-rectangular elimination -unboxed-make-rectangular.rkt line 6 col 0 - (let-values (((x) (#%app make-rectangular (quote 1.0) (quote 2.0)))) (#%app + x (quote 2.0+4.0i))) - unboxed let bindings -unboxed-make-rectangular.rkt line 7 col 5 - x - leave var unboxed -unboxed-make-rectangular.rkt line 7 col 7 - 2.0+4.0i - unboxed literal -unboxed-make-rectangular.rkt line 7 col 3 - + - unboxed binary inexact complex -unboxed-make-rectangular.rkt line 7 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -unboxed-make-rectangular.rkt line 9 col 5 - x - unbox inexact-complex -unboxed-make-rectangular.rkt line 9 col 7 - 2.0+4.0i - unboxed literal -unboxed-make-rectangular.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-make-rectangular.rkt line 9 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -unboxed-make-rectangular.rkt line 8 col 10 - unsafe-make-flrectangular - make-rectangular elimination -unboxed-make-rectangular.rkt line 8 col 0 - (let-values (((x) (#%app unsafe-make-flrectangular (quote 1.0) (quote 2.0)))) (#%app + x (quote 2.0+4.0i))) - unboxed let bindings -unboxed-make-rectangular.rkt line 9 col 5 - x - leave var unboxed -unboxed-make-rectangular.rkt line 9 col 7 - 2.0+4.0i - unboxed literal -unboxed-make-rectangular.rkt line 9 col 3 - + - unboxed binary inexact complex -unboxed-make-rectangular.rkt line 9 col 2 - (#%app + x (quote 2.0+4.0i)) - unboxed inexact complex -3.0+6.0i -3.0+6.0i diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt index 81bf26b284..5bcd563b56 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt @@ -1,3 +1,10 @@ +#; +( +vector-length-nested.rkt line 11 col 1 - vector-length - vector-length +vector-length-nested.rkt line 12 col 2 - vector-ref - vector +2 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt.log deleted file mode 100644 index 1f314ec856..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-length-nested.rkt.log +++ /dev/null @@ -1,3 +0,0 @@ -vector-length-nested.rkt line 4 col 1 - vector-length - vector-length -vector-length-nested.rkt line 5 col 2 - vector-ref - vector -2 diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-length.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-length.rkt index 7992fb63f6..65778288c8 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-length.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-length.rkt @@ -1,3 +1,9 @@ +#; +( +vector-length.rkt line 10 col 1 - vector-length - vector-length +3 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-length.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-length.rkt.log deleted file mode 100644 index 3afe86c2e4..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-length.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -vector-length.rkt line 4 col 1 - vector-length - vector-length -3 diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt index 8833301ae8..03f9fb71f4 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt @@ -1,3 +1,12 @@ +#; +( +vector-ref-set-ref.rkt line 15 col 1 - vector-ref - vector +vector-ref-set-ref.rkt line 16 col 1 - vector-set! - vector +vector-ref-set-ref.rkt line 17 col 1 - vector-ref - vector +1 +"2" +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt.log deleted file mode 100644 index ea7ce74ba5..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-ref-set-ref.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -vector-ref-set-ref.rkt line 6 col 1 - vector-ref - vector -vector-ref-set-ref.rkt line 7 col 1 - vector-set! - vector -vector-ref-set-ref.rkt line 8 col 1 - vector-ref - vector -1 -"2" diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt index 1f149356d9..8079665898 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt @@ -1,3 +1,9 @@ +#; +( +vector-ref.rkt line 10 col 1 - vector-ref - vector +1 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt.log deleted file mode 100644 index 55789a53ec..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-ref.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -vector-ref.rkt line 4 col 1 - vector-ref - vector -1 diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt index e9cf5ee5f9..49f50d5470 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt @@ -1,3 +1,9 @@ +#; +( +vector-ref2.rkt line 10 col 1 - vector-ref - vector +1 +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt.log deleted file mode 100644 index 50d071ad4d..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-ref2.rkt.log +++ /dev/null @@ -1,2 +0,0 @@ -vector-ref2.rkt line 4 col 1 - vector-ref - vector -1 diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt index 5243c3f36f..209bc9e073 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt @@ -1,3 +1,8 @@ +#; +( +vector-set-quote.rkt line 9 col 1 - vector-set! - vector +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt.log deleted file mode 100644 index f7a4e2d4fd..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-set-quote.rkt.log +++ /dev/null @@ -1 +0,0 @@ -vector-set-quote.rkt line 4 col 1 - vector-set! - vector diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-set.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-set.rkt index d01f53c59e..d3b26758ab 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-set.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-set.rkt @@ -1,3 +1,8 @@ +#; +( +vector-set.rkt line 9 col 1 - vector-set! - vector +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-set.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-set.rkt.log deleted file mode 100644 index 87ef3b5e59..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-set.rkt.log +++ /dev/null @@ -1 +0,0 @@ -vector-set.rkt line 4 col 1 - vector-set! - vector diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt b/collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt index d66ff004e1..d9661383b7 100644 --- a/collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt @@ -1,3 +1,8 @@ +#; +( +vector-set2.rkt line 9 col 1 - vector-set! - vector +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt.log b/collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt.log deleted file mode 100644 index ec90e65b42..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/vector-set2.rkt.log +++ /dev/null @@ -1 +0,0 @@ -vector-set2.rkt line 4 col 1 - vector-set! - vector diff --git a/collects/tests/typed-scheme/optimizer/tests/zero.rkt b/collects/tests/typed-scheme/optimizer/tests/zero.rkt index e853019b5c..411edd0927 100644 --- a/collects/tests/typed-scheme/optimizer/tests/zero.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/zero.rkt @@ -1,3 +1,12 @@ +#; +( +zero.rkt line 13 col 1 - zero? - fixnum zero? +zero.rkt line 14 col 8 - sqrt - unary float +zero.rkt line 14 col 1 - zero? - float zero? +#f +#f +) + #lang typed/scheme #:optimize (require racket/unsafe/ops) diff --git a/collects/tests/typed-scheme/optimizer/tests/zero.rkt.log b/collects/tests/typed-scheme/optimizer/tests/zero.rkt.log deleted file mode 100644 index 064aad6c4a..0000000000 --- a/collects/tests/typed-scheme/optimizer/tests/zero.rkt.log +++ /dev/null @@ -1,5 +0,0 @@ -zero.rkt line 4 col 1 - zero? - fixnum zero? -zero.rkt line 5 col 8 - sqrt - unary float -zero.rkt line 5 col 1 - zero? - float zero? -#f -#f