X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=mach.c;h=ca7e17c7d3bd546b291be3ac9bf217205050a314;hp=69be7ea471873d11f8735b52dc75f09f7b52e192;hb=f33d7fdb41ccdda027c33c5358a3826bef83967b;hpb=63e54cb8e4f7e0d11fffc8fb7c52ddb625a2c6f6

diff --git a/mach.c b/mach.c
index 69be7ea..ca7e17c 100644
--- a/mach.c
+++ b/mach.c
@@ -499,12 +499,13 @@ int m_moveq(WORD inst, WORD siz)
 	return 0;
 }
 
-
+int movep = 0;          // Global flag to indicate we're generating a movep instruction
 //
 // movep Dn, disp(An) -- movep disp(An), Dn
 //
 int m_movep(WORD inst, WORD siz)
 {
+    movep = 1;          // Tell ea0gen to lay off the 0(a0) optimisations on this one
 	if (siz == SIZL)
 		inst |= 0x0040;
 
@@ -529,6 +530,7 @@ int m_movep(WORD inst, WORD siz)
 			ea0gen(siz);
 	}
 
+    movep = 0;
 	return 0;
 }