clean up after a few calls
This commit is contained in:
parent
f6ea25613f
commit
5821a0f612
BIN
subx/apps/survey
BIN
subx/apps/survey
Binary file not shown.
|
@ -486,6 +486,8 @@ $compute-offsets:label:
|
||||||
68/push "label '"/imm32
|
68/push "label '"/imm32
|
||||||
# . . call
|
# . . call
|
||||||
e8/call trace-slsls/disp32
|
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 "'")
|
# trace-slsns("label '" word-slice/EDX "' is at offset '" *file-offset/EAX "'")
|
||||||
# . . EAX = file-offset
|
# . . EAX = file-offset
|
||||||
b8/copy-to-EAX compute-offsets:file-offset/imm32
|
b8/copy-to-EAX compute-offsets:file-offset/imm32
|
||||||
|
@ -499,6 +501,8 @@ $compute-offsets:label:
|
||||||
68/push "label '"/imm32
|
68/push "label '"/imm32
|
||||||
# . . call
|
# . . call
|
||||||
e8/call trace-slsns/disp32
|
e8/call trace-slsns/disp32
|
||||||
|
# . . discard args
|
||||||
|
81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0x14/imm32 # add to ESP
|
||||||
# continue
|
# continue
|
||||||
e9/jump $compute-offsets:word-loop/disp32
|
e9/jump $compute-offsets:word-loop/disp32
|
||||||
$compute-offsets:segment:
|
$compute-offsets:segment:
|
||||||
|
@ -602,16 +606,17 @@ $compute-offsets:construct-next-segment:
|
||||||
# seg->file-offset = *file-offset
|
# 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
|
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)
|
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, "")
|
# trace-slsns("segment '", curr-segment-name, "' is at file offset ", seg->file-offset, "")
|
||||||
# . push args
|
# . . push args
|
||||||
68/push "."/imm32
|
68/push "."/imm32
|
||||||
50/push-EAX
|
50/push-EAX
|
||||||
68/push "' is at file offset "/imm32
|
68/push "' is at file offset "/imm32
|
||||||
68/push compute-offsets:curr-segment-name/imm32
|
68/push compute-offsets:curr-segment-name/imm32
|
||||||
68/push "segment '"/imm32
|
68/push "segment '"/imm32
|
||||||
# . call
|
# . . call
|
||||||
e8/call trace-slsns/disp32
|
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
|
# segment-offset = 0
|
||||||
c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 . . . compute-offsets:segment-offset/disp32 0/imm32 # copy to *segment-offset
|
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
|
e9/jump $compute-offsets:line-loop/disp32
|
||||||
|
|
Loading…
Reference in New Issue
Block a user