about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-04-05 21:33:23 -0700
committerKartik Agaram <vc@akkartik.com>2019-04-05 21:33:23 -0700
commit1d7c822a1d9db53dd85282abdfd448db70b73156 (patch)
tree17365f3d59c3a3cd5c29a260059b90cbe4331e89
parent49a389bc303ba8c9dbf13fc7a9d1cf4476338036 (diff)
downloadmu-1d7c822a1d9db53dd85282abdfd448db70b73156.tar.gz
5057
-rw-r--r--subx/apps/pack.subx36
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