X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=riscasm.c;h=4d62e97d7a0a11bfed64b1847a87cee659931623;hb=cbc8347d4ffea164ca05b03e4e3be39945be8777;hp=82caf808d463e07d6b4cbbce9ce7076c2b6d7ae7;hpb=4205233c8397c581b4d27ab36ab81ec896ef3dd0;p=rmac

diff --git a/riscasm.c b/riscasm.c
index 82caf80..4d62e97 100644
--- a/riscasm.c
+++ b/riscasm.c
@@ -1,7 +1,7 @@
 //
-// RMAC - Reboot's Macro Assembler for all Atari computers
+// RMAC - Renamed Macro Assembler for all Atari computers
 // RISCA.C - GPU/DSP Assembler
-// Copyright (C) 199x Landon Dyer, 2011-2020 Reboot and Friends
+// Copyright (C) 199x Landon Dyer, 2011-2021 Reboot and Friends
 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
 // Source utilised with the kind permission of Landon Dyer
 //
@@ -229,8 +229,8 @@ int GenerateRISCCode(int state)
 	int indexed;				// Indexed register flag
 
 	uint64_t eval;				// Expression value
-	uint16_t eattr;					// Expression attributes
-	SYM * esym;					// External symbol involved in expr.
+	uint16_t eattr;				// Expression attributes
+	SYM * esym = NULL;			// External symbol involved in expr.
 	TOKEN r_expr[EXPRSIZE];		// Expression token list
 
 	// Get opcode parameter and type
@@ -325,8 +325,14 @@ int GenerateRISCCode(int state)
 		}
 		else
 		{
+			if (esym && (esym->sattre & EQUATEDREG))
+				return error("equated register seen for immediate value");
+
+			if (eattr & RISCREG)
+				return error("register seen for immediate value");
+
 			if (((int)eval < reg1) || ((int)eval > reg2))
-				return error("constant out of range (%d to %d", reg1, reg2);
+				return error("constant out of range (%d to %d)", reg1, reg2);
 
 			if (parm & SUB32)
 				reg1 = 32 - (int)eval;