From 70a999aaebbd05873be56b0460e0d4182397cfea Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Mon, 15 Jul 2019 17:03:39 -0700
Subject: 5407

Bugfix nine: flush(out) after translation is done.

Still one remaining bug from comparing ELF binaries: emit-segments
prints nothing for some reason.
---
 subx/apps/survey.subx | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'subx/apps/survey.subx')

diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx
index 58de2b66..b7ce08dd 100644
--- a/subx/apps/survey.subx
+++ b/subx/apps/survey.subx
@@ -268,6 +268,13 @@ convert:  # in : (address buffered-file), out : (address buffered-file) -> <void
     e8/call  emit-output/disp32
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x10/imm32        # add to ESP
+    # flush(out)
+    # . . push args
+    ff          6/subop/push        1/mod/*+disp8   5/rm32/EBP    .           .             .           .           0xc/disp8       .                 # push *(EBP+12)
+    # . . call
+    e8/call  flush/disp32
+    # . . discard args
+    81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               4/imm32           # add to ESP
 $convert:end:
     # . reclaim locals
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0x214/imm32       # add to ESP
-- 
cgit 1.4.1-2-gfad0