diff options
Diffstat (limited to 'apps/braces.subx')
| -rw-r--r-- | apps/braces.subx | 30 |
1 files changed, 6 insertions, 24 deletions
diff --git a/apps/braces.subx b/apps/braces.subx index 69e62c2c..aaae30e5 100644 --- a/apps/braces.subx +++ b/apps/braces.subx @@ -263,14 +263,8 @@ test-subx-braces-passes-most-words-through: # setup (clear-stream _test-input-stream) (clear-stream _test-output-stream) - # . clear-stream(_test-input-buffered-file+4) - b8/copy-to-eax _test-input-buffered-file/imm32 - 05/add-to-eax 4/imm32 - (clear-stream %eax) - # . clear-stream(_test-output-buffered-file+4) - b8/copy-to-eax _test-output-buffered-file/imm32 - 05/add-to-eax 4/imm32 - (clear-stream %eax) + (clear-stream _test-input-buffered-file->buffer) + (clear-stream _test-output-buffered-file->buffer) # test (write _test-input-stream "== abcd 0x1") (subx-braces _test-input-buffered-file _test-output-buffered-file) @@ -306,14 +300,8 @@ test-subx-braces-1: # setup (clear-stream _test-input-stream) (clear-stream _test-output-stream) - # . clear-stream(_test-input-buffered-file+4) - b8/copy-to-eax _test-input-buffered-file/imm32 - 05/add-to-eax 4/imm32 - (clear-stream %eax) - # . clear-stream(_test-output-buffered-file+4) - b8/copy-to-eax _test-output-buffered-file/imm32 - 05/add-to-eax 4/imm32 - (clear-stream %eax) + (clear-stream _test-input-buffered-file->buffer) + (clear-stream _test-output-buffered-file->buffer) # test (write _test-input-stream "{\nab break/imm32\ncd loop/imm32\n}") (subx-braces _test-input-buffered-file _test-output-buffered-file) @@ -353,14 +341,8 @@ test-subx-braces-2: # setup (clear-stream _test-input-stream) (clear-stream _test-output-stream) - # . clear-stream(_test-input-buffered-file+4) - b8/copy-to-eax _test-input-buffered-file/imm32 - 05/add-to-eax 4/imm32 - (clear-stream %eax) - # . clear-stream(_test-output-buffered-file+4) - b8/copy-to-eax _test-output-buffered-file/imm32 - 05/add-to-eax 4/imm32 - (clear-stream %eax) + (clear-stream _test-input-buffered-file->buffer) + (clear-stream _test-output-buffered-file->buffer) # test (write _test-input-stream "{\n{\nab break/imm32\n}\ncd loop/imm32\n}") (subx-braces _test-input-buffered-file _test-output-buffered-file) |