diff options
Diffstat (limited to 'subx/apps/survey.subx')
| -rw-r--r-- | subx/apps/survey.subx | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx index d868132a..0f5428bb 100644 --- a/subx/apps/survey.subx +++ b/subx/apps/survey.subx @@ -79,7 +79,7 @@ Entry: eb/jump $main:end/disp8 $run-main: # - otherwise convert stdin - # return convert(Stdin, Stdout) + # convert(Stdin, Stdout) # . . push args 68/push Stdout/imm32 68/push Stdin/imm32 @@ -87,6 +87,14 @@ $run-main: e8/call convert/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 # . syscall(exit, 0) bb/copy-to-EBX 0/imm32 $main:end: |