diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-04-06 10:18:50 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-05-18 00:44:46 -0700 |
| commit | ee696b0102f327d61ad9d08dc9589415f5cee3cb (patch) | |
| tree | a256797e42fce9c72d237b3978ba1183c659ba94 | |
| parent | cd6b8e1cbace1550f755447aa08242a017b95412 (diff) | |
| download | mu-ee696b0102f327d61ad9d08dc9589415f5cee3cb.tar.gz | |
-
| -rw-r--r-- | apps/survey.subx | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/apps/survey.subx b/apps/survey.subx index 0e1cf0bd..c816e8e7 100644 --- a/apps/survey.subx +++ b/apps/survey.subx @@ -840,51 +840,6 @@ $compute-offsets:construct-next-segment: e8/call next-word/disp32 # . discard args 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp -#? # dump curr-segment-name if not null (clobbering eax) {{{ -#? # . if (curr-segment-name == 0) goto update-curr-segment-name -#? 81 7/subop/compare 3/mod/direct 6/rm32/esi . . . . . 0/imm32 # compare esi -#? 74/jump-if-= $compute-offsets:update-curr-segment-name/disp8 -#? # . write(2/stderr, "setting segment to: ") -#? # . . push args -#? 68/push "setting segment to: "/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 -#? # . clear-stream($Stderr->buffer) -#? # . . push args -#? 68/push $Stderr->buffer/imm32 -#? # . . call -#? e8/call clear-stream/disp32 -#? # . . discard args -#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/imm32 # add to esp -#? # . . restore eax -#? 58/pop-to-eax -#? # . write-buffered(Stderr, curr-segment-name) -#? # . . push args -#? 56/push-esi -#? 68/push Stderr/imm32 -#? # . . call -#? e8/call write-buffered/disp32 -#? # . . discard args -#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 8/imm32 # add to esp -#? # . flush(Stderr) -#? # . . push args -#? 68/push Stderr/imm32 -#? # . . call -#? e8/call flush/disp32 -#? # . . discard args -#? 81 0/subop/add 3/mod/direct 4/rm32/esp . . . . . 4/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 -#? # }}} $compute-offsets:update-curr-segment-name: # curr-segment-name = slice-to-string(segment-tmp) # . eax = slice-to-string(Heap, segment-tmp) |