From 132f29a5b45fcdf39d41b96d34dd2c6d5de892e5 Mon Sep 17 00:00:00 2001
From: forsyth <forsyth@vitanuova.com>
Date: Sun, 19 Jul 2009 17:10:21 +0100
Subject: dis/mathcalc.dis

---
 libinterp/comp-386.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'libinterp/comp-386.c')

diff --git a/libinterp/comp-386.c b/libinterp/comp-386.c
index 4f5d89c4..8305ccce 100644
--- a/libinterp/comp-386.c
+++ b/libinterp/comp-386.c
@@ -1523,6 +1523,8 @@ preamble(void)
 	modrm(Oldw, O(REG, FP), RTMP, RFP);
 	modrm(Oldw, O(REG, MP), RTMP, RMP);
 	modrm(Ojmprm, O(REG, PC), RTMP, 4);
+
+	segflush(comvec, 32);
 }
 
 static void
@@ -1854,6 +1856,8 @@ typecom(Type *t)
 	if(cflag > 3)
 		print("typ= %.8lux %4d i %.8lux d %.8lux asm=%d\n",
 			(ulong)t, t->size, (ulong)t->initialize, (ulong)t->destroy, n);
+
+	segflush(t->initialize, n);
 }
 
 static void
@@ -1964,6 +1968,7 @@ compile(Module *m, int size, Modlink *ml)
 	free(m->prog);
 	m->prog = (Inst*)base;
 	m->compiled = 1;
+	segflush(base, n*sizeof(base));
 	return 1;
 bad:
 	free(patch);
-- 
cgit v1.2.3