diff options
| author | Kartik Agaram <vc@akkartik.com> | 2019-07-09 16:00:55 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2019-07-09 16:00:55 -0700 |
| commit | 7761194ec198d50a37c9f56a0a1d0bac55ebec68 (patch) | |
| tree | 0d3467a37f20418b94b2f86b73bb71ff2761145c | |
| parent | c01f78ff6a70db6b03504f077f871da3b5168668 (diff) | |
| download | mu-7761194ec198d50a37c9f56a0a1d0bac55ebec68.tar.gz | |
switch to global Heap
| -rwxr-xr-x | subx/apps/survey | bin | 37431 -> 37294 bytes | |||
| -rw-r--r-- | subx/apps/survey.subx | 15 |
2 files changed, 5 insertions, 10 deletions
diff --git a/subx/apps/survey b/subx/apps/survey index 074b4ab6..5690d862 100755 --- a/subx/apps/survey +++ b/subx/apps/survey Binary files differdiff --git a/subx/apps/survey.subx b/subx/apps/survey.subx index 53e75d8f..7fa024f3 100644 --- a/subx/apps/survey.subx +++ b/subx/apps/survey.subx @@ -326,8 +326,6 @@ compute-offsets:file-offset: 0/imm32 compute-offsets:segment-offset: 0/imm32 compute-offsets:word-slice: 0/imm32/start compute-offsets:word-slice:end: 0/imm32/end -compute-offsets:heap: 0/imm32/start -compute-offsets:heap:end: 0/imm32/end == code @@ -393,12 +391,9 @@ compute-offsets: # in : (address buffered-file), segments : (address stream {st # segment-offset = 0 b8/copy-to-EAX 0/imm32 89/copy 0/mod/indirect 5/rm32/.disp32 . . 0/r32/EAX compute-offsets:segment-offset/disp32 # copy EAX to *segment-offset - # var heap : (address allocation-descriptor) = {0, 0} - c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 . . . compute-offsets:heap/disp32 0/imm32 # copy to *compute-offsets:word-slice - c7 0/subop/copy 0/mod/indirect 5/rm32/.disp32 . . . compute-offsets:heap:end/disp32 0/imm32 # copy to *(compute-offsets:word-slice+4) # new-segment(1024, heap) # . . push args - 68/push compute-offsets:heap/imm32 + 68/push Heap/imm32 68/push 0x400/imm32 # . . call e8/call new-segment/disp32 @@ -407,7 +402,7 @@ compute-offsets: # in : (address buffered-file), segments : (address stream {st # line/ECX = new-stream(heap, 512, 1) 68/push 1/imm32 68/push 0x200/imm32 - 68/push compute-offsets:heap/imm32 + 68/push Heap/imm32 e8/call new-stream/disp32 # . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add to ESP @@ -527,7 +522,7 @@ $compute-offsets:segment: 74/jump-if-equal $compute-offsets:construct-next-segment/disp8 # EAX = slice-to-string(curr-segment-name) 68/push compute-offsets:curr-segment-name/imm32 - 68/push compute-offsets:heap/imm32 + 68/push Heap/imm32 e8/call slice-to-string/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP @@ -605,7 +600,7 @@ $compute-offsets:construct-next-segment: 53/push-EBX # EAX = slice-to-string(curr-segment-name) 68/push compute-offsets:curr-segment-name/imm32 - 68/push compute-offsets:heap/imm32 + 68/push Heap/imm32 e8/call slice-to-string/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP @@ -647,7 +642,7 @@ $compute-offsets:construct-next-segment: $compute-offsets:else: # EAX = slice-to-string(curr-segment-name) 52/push-EDX - 68/push compute-offsets:heap/imm32 + 68/push Heap/imm32 e8/call slice-to-string/disp32 # . . discard args 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add to ESP |