X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=riscasm.c;h=4925adce0c8cc2b46ac0750af4ed422ac5df9702;hp=89dfd3a881b831b3a6c9ac7e28d94b2c68c756fe;hb=61ba7cfa9ae30c0c8211e12b00924ce4efc2c847;hpb=75969398d9b8a9f82ea76fc4e4cbfb97b11160a4

diff --git a/riscasm.c b/riscasm.c
index 89dfd3a..4925adc 100644
--- a/riscasm.c
+++ b/riscasm.c
@@ -26,6 +26,7 @@ unsigned altbankok = 0;		// Ok to use alternate register bank
 unsigned orgactive = 0;		// RISC org directive active
 unsigned orgaddr = 0;		// Org'd address
 unsigned orgwarning = 0;	// Has an ORG warning been issued
+int lastOpcode = -1;		// Last RISC opcode assembled
 
 char reg_err[] = "missing register R0...R31";
 
@@ -113,16 +114,8 @@ struct opcoderecord roptbl[] = {
 //
 void strtoupper(char * s)
 {
-#if 0
-	while (*s)
-	{
-		*s = (char)(toupper(*s));
-		s++;
-	}
-#else
 	while (*s)
 		*s++ &= 0xDF;
-#endif
 }
 
 
@@ -229,8 +222,8 @@ int GenerateRISCCode(int state)
 	switch (type)
 	{
 	// No operand instructions
-	// NOP
-	case RI_NONE: 
+	// NOP (57)
+	case RI_NONE:
 		BuildRISCIntructionWord(parm, 0, 0);
 		break;
 
@@ -336,6 +329,18 @@ int GenerateRISCCode(int state)
 		if (expr(r_expr, &eval, &eattr, &esym) != OK)
 			return MalformedOpcode(0x04);
 
+		if (lastOpcode == RI_JUMP || lastOpcode == RI_JR)
+		{
+			if (legacy_flag)
+			{
+				// User doesn't care, emit a NOP to fix
+				BuildRISCIntructionWord(57, 0, 0);
+				warn("MOVEI following JUMP, inserting NOP to fix your BROKEN CODE");
+			}
+			else
+				warn("MOVEI following JUMP");
+		}
+
 		if ((challoc - ch_size) < 4)
 			chcheck(4L);
 
@@ -463,7 +468,7 @@ int GenerateRISCCode(int state)
 
 					if (!(eattr & DEFINED))
 					{
-						error("constant expected");
+						error("constant expected after '+'");
 						return ERROR;
 					}
 
@@ -473,13 +478,13 @@ int GenerateRISCCode(int state)
 					{
 						reg1 = 14 + (parm - 58);
 						parm = 41;
-						warn("NULL offset removed");
+						warn("NULL offset in LOAD ignored");
 					}
 					else
 					{
 						if (reg1 < 1 || reg1 > 32)
 						{
-							error("constant out of range");
+							error("constant in LOAD out of range");
 							return ERROR;
 						}
 
@@ -601,13 +606,13 @@ int GenerateRISCCode(int state)
 						{
 							reg2 = 14 + (parm - 60);
 							parm = 47;
-							warn("NULL offset removed");
+							warn("NULL offset in STORE ignored");
 						}
 						else
 						{
 							if (reg2 < 1 || reg2 > 32)
 							{
-								error("constant out of range");
+								error("constant in STORE out of range");
 								return ERROR;
 							}
 
@@ -805,6 +810,7 @@ int GenerateRISCCode(int state)
 		return ERROR;
 	}
 
+	lastOpcode = type;
 	return 0;
 }