From b0dfe182ff519a0cfa35e387e0295aa9e41125be Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Thu, 26 Nov 2020 21:59:28 -0800 Subject: 7283 --- apps/mu | Bin 578051 -> 577078 bytes apps/mu.subx | 110 +++++++---------------------------------------------------- 2 files changed, 12 insertions(+), 98 deletions(-) diff --git a/apps/mu b/apps/mu index d216c94d..70e8a1ca 100755 Binary files a/apps/mu and b/apps/mu differ diff --git a/apps/mu.subx b/apps/mu.subx index b2c3d165..0859e2d4 100644 --- a/apps/mu.subx +++ b/apps/mu.subx @@ -7706,14 +7706,7 @@ test-copy-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-copy-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -8189,14 +8182,7 @@ test-copy-to-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-copy-to-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -8493,14 +8479,7 @@ test-compare-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-compare-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -8523,14 +8502,7 @@ test-compare-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-compare-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -8823,14 +8795,7 @@ test-address-of-deref: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-address-of-deref: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -8942,15 +8907,7 @@ test-address-with-right-type-for-array: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # no error - (check-next-stream-line-equal _test-error-stream "" "F - test-address-with-right-type-for-array: error message") - # don't bother checking output + # no errors # . epilogue 89/<- %esp 5/r32/ebp 5d/pop-to-ebp @@ -8973,15 +8930,7 @@ test-address-with-right-type-for-stream: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # no error - (check-next-stream-line-equal _test-error-stream "" "F - test-address-with-right-type-for-stream: error message") - # don't bother checking output + # no errors # . epilogue 89/<- %esp 5/r32/ebp 5d/pop-to-ebp @@ -13338,14 +13287,7 @@ test-copy-object-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-copy-object-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -13684,14 +13626,7 @@ test-allocate-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-allocate-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -13983,14 +13918,7 @@ test-populate-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-populate-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -14282,14 +14210,7 @@ test-populate-stream-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-populate-stream-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return @@ -14489,14 +14410,7 @@ test-convert-deref-address: # convert (convert-mu _test-input-buffered-file _test-output-buffered-file Stderr 0) (flush _test-output-buffered-file) -#? # dump _test-error-stream {{{ -#? (write 2 "^") -#? (write-stream 2 _test-error-stream) -#? (write 2 "$\n") -#? (rewind-stream _test-error-stream) -#? # }}} - # not bothering checking output - (check-next-stream-line-equal _test-error-stream "" "F - test-convert-deref-address: error message") + # no errors # . epilogue 5d/pop-to-ebp c3/return -- cgit 1.4.1-2-gfad0