about summary refs log tree commit diff stats
path: root/subx
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-07-01 23:29:14 -0700
committerKartik Agaram <vc@akkartik.com>2019-07-01 23:29:14 -0700
commit22cea315f5bc70e21e4e30bdca493457d6dac89e (patch)
tree81983b8fc8a0e6de095765ba0f7369fffabb2ee4 /subx
parent0e510776d37c09ea01a6b44cf4ff18b23a6f2810 (diff)
downloadmu-22cea315f5bc70e21e4e30bdca493457d6dac89e.tar.gz
.
Diffstat (limited to 'subx')
-rw-r--r--subx/apps/survey.subx27
1 files changed, 27 insertions, 0 deletions
diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx
index eeb6cf82..d5c3b57c 100644
--- a/subx/apps/survey.subx
+++ b/subx/apps/survey.subx
@@ -802,6 +802,32 @@ test-compute-addresses:
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               8/imm32           # add to ESP
     # checks
+#?     # dump *Trace-stream {{{
+#?     # . 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, *Trace-stream)
+#?     # . . push args
+#?     ff          6/subop/push        0/mod/indirect  5/rm32/.disp32            .             .           .           Trace-stream/disp32               # push *Trace-stream
+#?     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, "$\n")
+#?     # . . push args
+#?     68/push  "$\n"/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-trace-contains("segment 'a' starts at address 0x1074", msg)
     # . . push args
     68/push  "F - test-compute-addresses/0"/imm32
@@ -925,6 +951,7 @@ $stream-add4:abort:
 #   c: character [4-bytes, will eventually be UTF-8]
 #   s: (address string)
 #   l: (address slice)
+# one gotcha: 's5' must not be empty
 
 trace-sssns:  # s1 : (address string), s2 : (address string), s3 : (address string), n4 : int, s5 : (address string)
     # . prolog