about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-04-06 10:18:50 -0700
committerKartik Agaram <vc@akkartik.com>2020-05-18 00:44:46 -0700
commitee696b0102f327d61ad9d08dc9589415f5cee3cb (patch)
treea256797e42fce9c72d237b3978ba1183c659ba94
parentcd6b8e1cbace1550f755447aa08242a017b95412 (diff)
downloadmu-ee696b0102f327d61ad9d08dc9589415f5cee3cb.tar.gz
-
-rw-r--r--apps/survey.subx45
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)