diff options
Diffstat (limited to 'subx')
-rw-r--r-- | subx/apps/survey.subx | 27 |
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 |