X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=eagen0.c;h=c69ac886efe96673908a6a77547f9cc31961f4d1;hp=de4f409049915edd0f9960b6084a16b1fac4f142;hb=75969398d9b8a9f82ea76fc4e4cbfb97b11160a4;hpb=75cce0d9eb190f6094f66ae283b5981af25e5a57

diff --git a/eagen0.c b/eagen0.c
index de4f409..c69ac88 100644
--- a/eagen0.c
+++ b/eagen0.c
@@ -9,158 +9,213 @@
 
 int eaNgen(WORD siz)
 {
-   WORD w;
-   VALUE v;
-   WORD tdb;
-
-   v = aNexval;
-   w = (WORD)(aNexattr & DEFINED);
-   tdb = (WORD)(aNexattr & TDB);
-
-   switch(amN) {
-      case DREG:                                            // "Do nothing" - they're in the opword
-      case AREG:
-      case AIND:
-      case APOSTINC:
-      case APREDEC:
-      case AM_USP:
-      case AM_CCR:
-      case AM_SR:
-      case AM_NONE:
-         break;                                             // This is a performance hit, though
-      case ADISP:                                           // expr(An)
-         if(w) {                                            // Just deposit it 
-            if(tdb)
-               rmark(cursect, sloc, tdb, MWORD, NULL);
-            if(v + 0x8000 >= 0x18000)
-               return(error(range_error));
-            D_word(v);
-         } else {                                           // Arrange for fixup later on 
-            fixup(FU_WORD|FU_SEXT, sloc, aNexpr);
-            D_word(0);
-         }
-         break;
-      case PCDISP:
-         if(w) {                                            // Just deposit it 
-            if((aNexattr & TDB) == cursect)
-               v -= (VALUE)sloc;
-            else if((aNexattr & TDB) != ABS)
-               error(rel_error);
-
-            if(v + 0x8000 >= 0x10000)
-               return(error(range_error));
-            D_word(v);
-         } else {                                           // Arrange for fixup later on 
-            fixup(FU_WORD|FU_SEXT|FU_PCREL, sloc, aNexpr);
-            D_word(0);
-         }
-         break;
-      case AINDEXED:
-         w = (WORD)((aNixreg << 12) | aNixsiz);             // Compute ixreg and size+scale
-         if(aNexattr & DEFINED) {                           // Deposit a byte... 
-            if(tdb)
-               return(error(abs_error));                    // Can't mark bytes 
-            if(v + 0x80 >= 0x180)
-               return(error(range_error));
-            w |= v & 0xff;
-            D_word(w);
-         } else {                                           // Fixup the byte later
-            fixup(FU_BYTE|FU_SEXT, sloc+1, aNexpr);
-            D_word(w);
-         }
-         break;
-      case PCINDEXED:
-         w = (WORD)((aNixreg << 12) | aNixsiz);             // Compute ixreg and size+scale
-         if(aNexattr & DEFINED) {                           // Deposit a byte... 
-            if((aNexattr & TDB) == cursect) 
-               v -= (VALUE)sloc;
-            else if((aNexattr & TDB) != ABS)
-               error(rel_error);
-
-            if(v + 0x80 >= 0x100)
-               return(error(range_error));
-            w |= v & 0xff;
-            D_word(w);
-         } else {                                           // Fixup the byte later 
-            fixup(FU_WBYTE|FU_SEXT|FU_PCREL, sloc, aNexpr);
-            D_word(w);
-         }
-         break;
-      case IMMED:
-         switch(siz) {
-            case SIZB:
-               if(w) {
-                  if(tdb)
-                     return(error("illegal byte-sized relative reference"));
-                  if(v + 0x100 >= 0x200)
-                     return(error(range_error));
-                  D_word(v);
-               } else {
-                  fixup(FU_BYTE|FU_SEXT, sloc+1, aNexpr);
-                  D_word(0);
-               }
-               break;
-            case SIZW:
-            case SIZN:
-               if(w) {
-                  if(tdb)
-                     rmark(cursect, sloc, tdb, MWORD, NULL);
-                  if(v + 0x10000 >= 0x20000)
-                     return(error(range_error));
-                  D_word(v);
-               } else {
-                  fixup(FU_WORD|FU_SEXT, sloc, aNexpr);
-                  D_word(0);
-               }
-               break;
-            case SIZL:
-               if(w) {
-                  if(tdb)
-                     rmark(cursect, sloc, tdb, MLONG, NULL);
-                  D_long(v);
-               } else {
-                  fixup(FU_LONG, sloc, aNexpr);
-                  D_long(0);
-               }
-               break;
-            default:
-               interror(1);                                 // IMMED size problem
-         }
-         break;
-      case ABSW:
-         if(w) {
-            if(tdb)
-               rmark(cursect, sloc, tdb, MWORD, NULL);
-            if(v + 0x8000 >= 0x10000)
-               return(error(range_error));
-            D_word(v);
-         } else {
-            fixup(FU_WORD|FU_SEXT, sloc, aNexpr);
-            D_word(0);
-         }
-         break;
-      case ABSL:
-         if(w) {
-            if(tdb)
-               rmark(cursect, sloc, tdb, MLONG, NULL);
-            D_long(v);
-         } else {
-            fixup(FU_LONG, sloc, aNexpr);
-            D_long(0);
-         }
-         break;
-      case ABASE:
-      case MEMPOST:
-      case MEMPRE:
-      case PCBASE:
-      case PCMPOST:
-      case PCMPRE:
-         return(error("unsupported 68020 addressing mode"));
-      default:
-         interror(3);                                       // Bad addressing mode in ea gen 
-   }
-
-   return(OK);
+	WORD w;
+	VALUE v;
+	WORD tdb;
+
+	v = aNexval;
+	w = (WORD)(aNexattr & DEFINED);
+	tdb = (WORD)(aNexattr & TDB);
+
+	switch (amN)
+	{
+	case DREG:                                            // "Do nothing" - they're in the opword
+	case AREG:
+	case AIND:
+	case APOSTINC:
+	case APREDEC:
+	case AM_USP:
+	case AM_CCR:
+	case AM_SR:
+	case AM_NONE:
+		break;                                             // This is a performance hit, though
+	case ADISP:                                           // expr(An)
+		if (w)
+		{                                            // Just deposit it 
+			if (tdb)
+				rmark(cursect, sloc, tdb, MWORD, NULL);
+
+			if (v + 0x8000 >= 0x18000)
+				return error(range_error);
+
+			D_word(v);
+		}
+		else
+		{                                           // Arrange for fixup later on 
+			fixup(FU_WORD|FU_SEXT, sloc, aNexpr);
+			D_word(0);
+		}
+
+		break;
+	case PCDISP:
+		if (w)
+		{                                            // Just deposit it 
+			if ((aNexattr & TDB) == cursect)
+				v -= (VALUE)sloc;
+			else if ((aNexattr & TDB) != ABS)
+				error(rel_error);
+
+			if (v + 0x8000 >= 0x10000)
+				return error(range_error);
+
+			D_word(v);
+		}
+		else
+		{                                           // Arrange for fixup later on 
+			fixup(FU_WORD|FU_SEXT|FU_PCREL, sloc, aNexpr);
+			D_word(0);
+		}
+
+		break;
+	case AINDEXED:
+		w = (WORD)((aNixreg << 12) | aNixsiz);             // Compute ixreg and size+scale
+
+		if (aNexattr & DEFINED)
+		{                           // Deposit a byte... 
+			if (tdb)
+				return error(abs_error);                    // Can't mark bytes 
+
+			if (v + 0x80 >= 0x180)
+				return error(range_error);
+
+			w |= v & 0xff;
+			D_word(w);
+		}
+		else
+		{                                           // Fixup the byte later
+			fixup(FU_BYTE|FU_SEXT, sloc+1, aNexpr);
+			D_word(w);
+		}
+
+		break;
+	case PCINDEXED:
+		w = (WORD)((aNixreg << 12) | aNixsiz);             // Compute ixreg and size+scale
+
+		if (aNexattr & DEFINED)
+		{                           // Deposit a byte... 
+			if ((aNexattr & TDB) == cursect) 
+				v -= (VALUE)sloc;
+			else if ((aNexattr & TDB) != ABS)
+				error(rel_error);
+
+			if (v + 0x80 >= 0x100)
+				return error(range_error);
+
+			w |= v & 0xff;
+			D_word(w);
+		}
+		else
+		{                                           // Fixup the byte later 
+			fixup(FU_WBYTE|FU_SEXT|FU_PCREL, sloc, aNexpr);
+			D_word(w);
+		}
+
+		break;
+	case IMMED:
+		switch (siz)
+		{
+		case SIZB:
+			if (w)
+			{
+				if (tdb)
+					return error("illegal byte-sized relative reference");
+
+				if (v + 0x100 >= 0x200)
+					return error(range_error);
+
+				D_word(v);
+			}
+			else
+			{
+				fixup(FU_BYTE|FU_SEXT, sloc+1, aNexpr);
+				D_word(0);
+			}
+
+			break;
+		case SIZW:
+		case SIZN:
+			if (w)
+			{
+				if (tdb)
+					rmark(cursect, sloc, tdb, MWORD, NULL);
+
+				if (v + 0x10000 >= 0x20000)
+					return error(range_error);
+
+				D_word(v);
+			}
+			else
+			{
+				fixup(FU_WORD|FU_SEXT, sloc, aNexpr);
+				D_word(0);
+			}
+
+			break;
+		case SIZL:
+			if (w)
+			{
+				if (tdb)
+					rmark(cursect, sloc, tdb, MLONG, NULL);
+
+				D_long(v);
+			}
+			else
+			{
+				fixup(FU_LONG, sloc, aNexpr);
+				D_long(0);
+			}
+
+			break;
+		default:
+			interror(1);                                 // IMMED size problem
+		}
+
+		break;
+	case ABSW:
+		if (w)
+		{
+			if (tdb)
+				rmark(cursect, sloc, tdb, MWORD, NULL);
+
+			if (v + 0x8000 >= 0x10000)
+				return error(range_error);
+
+			D_word(v);
+		}
+		else
+		{
+			fixup(FU_WORD|FU_SEXT, sloc, aNexpr);
+			D_word(0);
+		}
+
+		break;
+	case ABSL:
+		if (w)
+		{
+			if (tdb)
+				rmark(cursect, sloc, tdb, MLONG, NULL);
+
+			D_long(v);
+		}
+		else
+		{
+			fixup(FU_LONG, sloc, aNexpr);
+			D_long(0);
+		}
+
+		break;
+	case ABASE:
+	case MEMPOST:
+	case MEMPRE:
+	case PCBASE:
+	case PCMPOST:
+	case PCMPRE:
+		return error("unsupported 68020 addressing mode");
+	default:
+		interror(3);                                       // Bad addressing mode in ea gen 
+	}
+
+	return OK;
 }
 
 // Undefine dirty macros