akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

clean up after a few calls

This commit is contained in:
Kartik Agaram 2019-07-09 16:50:29 -07:00
parent f6ea25613f
commit 5821a0f612
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
subx/apps/survey
View File

Binary file not shown.

13
subx/apps/survey.subx
View File

@ -486,6 +486,8 @@ $compute-offsets:label:
68/push "label '"/imm32
# . . call
e8/call trace-slsls/disp32
# . . discard args
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0x14/imm32 # add to ESP
# trace-slsns("label '" word-slice/EDX "' is at offset '" *file-offset/EAX "'")
# . . EAX = file-offset
b8/copy-to-EAX compute-offsets:file-offset/imm32
@ -499,6 +501,8 @@ $compute-offsets:label:
68/push "label '"/imm32
# . . call
e8/call trace-slsns/disp32
# . . discard args
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0x14/imm32 # add to ESP
# continue
e9/jump $compute-offsets:word-loop/disp32
$compute-offsets:segment:
@ -602,16 +606,17 @@ $compute-offsets:construct-next-segment:
# seg->file-offset = *file-offset
8b/copy 0/mod/indirect 5/rm32/.disp32 . . 0/r32/EAX compute-offsets:file-offset/disp32 # copy *file-offset to EAX
89/copy 1/mod/*+disp8 3/rm32/EBX . . . 0/r32/EAX 4/disp8 . # copy EAX to *(EBX+4)
# trace-slsns("segment '", curr-segment-name, "' is at file offset ", seg->file-offset/EAX, "")
# . push args
# trace-slsns("segment '", curr-segment-name, "' is at file offset ", seg->file-offset, "")
# . . push args
68/push "."/imm32
50/push-EAX
68/push "' is at file offset "/imm32
68/push compute-offsets:curr-segment-name/imm32
68/push "segment '"/imm32
# . call
# . . call
e8/call trace-slsns/disp32
# . discard args
# . . discard args
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0x14/imm32 # add to ESP
# segment-offset = 0
c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 . . . compute-offsets:segment-offset/disp32 0/imm32 # copy to *segment-offset
e9/jump $compute-offsets:line-loop/disp32