diff options
| author | Kartik Agaram <vc@akkartik.com> | 2019-04-05 21:33:23 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2019-04-05 21:33:23 -0700 |
| commit | 1d7c822a1d9db53dd85282abdfd448db70b73156 (patch) | |
| tree | 17365f3d59c3a3cd5c29a260059b90cbe4331e89 | |
| parent | 49a389bc303ba8c9dbf13fc7a9d1cf4476338036 (diff) | |
| download | mu-1d7c822a1d9db53dd85282abdfd448db70b73156.tar.gz | |
5057
| -rw-r--r-- | subx/apps/pack.subx | 36 |
1 files changed, 35 insertions, 1 deletions
diff --git a/subx/apps/pack.subx b/subx/apps/pack.subx index 09d18461..65b0f64c 100644 --- a/subx/apps/pack.subx +++ b/subx/apps/pack.subx @@ -1313,6 +1313,40 @@ test-convert-data-passes-comments-through: e8/call flush/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add to ESP +#? # dump output {{{ +#? # . write(2/stderr, "^") +#? # . . push args +#? 68/push "^"/imm32 +#? 68/push 2/imm32/stderr +#? # . . call +#? e8/call write/disp32 +#? # . . discard args +#? 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP +#? # . write-stream(2/stderr, _test-output-stream) +#? # . . push args +#? 68/push _test-output-stream/imm32 +#? 68/push 2/imm32/stderr +#? # . . call +#? e8/call write-stream/disp32 +#? # . . discard args +#? 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP +#? # . write(2/stderr, "$") +#? # . . push args +#? 68/push "$"/imm32 +#? 68/push 2/imm32/stderr +#? # . . call +#? e8/call write/disp32 +#? # . . discard args +#? 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP +#? # . write(2/stderr, "\n") +#? # . . push args +#? 68/push Newline/imm32 +#? 68/push 2/imm32/stderr +#? # . . call +#? e8/call write/disp32 +#? # . . discard args +#? 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP +#? # }}} # . check-stream-equal(_test-output-stream, "# abcd", msg) # . . push args 68/push "F - test-convert-data-passes-comments-through"/imm32 @@ -6261,7 +6295,7 @@ $next-word:check1: # . return eb/jump $next-word:end/disp8 $next-word:not-comment: - # otherwise skip-chars-not-matching-whitespace(line) + # otherwise skip-chars-not-matching-whitespace(line) # including trailing newline # . . push args ff 6/subop/push 1/mod/*+disp8 5/rm32/EBP . . . . 8/disp8 . # push *(EBP+8) # . . call |