X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=expr.c;h=f31e9e59ddf67c1be317af23a1428c22da4ee534;hp=63d63ae2552e72f6fdf6dc77ee62fcc02decaa96;hb=fbbe9b115f949735421485513154ce8abb8453eb;hpb=01dbdb3508711b3e9283fb21a65e9e7a7b8164d2

diff --git a/expr.c b/expr.c
index 63d63ae..f31e9e5 100644
--- a/expr.c
+++ b/expr.c
@@ -180,7 +180,7 @@ int expr1(void)
 
 			if ((fd = open(string[*tok], _OPEN_INC)) < 0)
 			{
-				for(i=0; nthpath("RMACPATH", i, buf1)!= 0; i++)
+				for(i=0; nthpath("RMACPATH", i, buf1)!=0; i++)
 				{
 					fd = strlen(buf1);
 
@@ -417,7 +417,7 @@ int expr(TOKEN * otk, uint64_t * a_value, WORD * a_attr, SYM ** a_esym)
 		{
 			*evalTokenBuffer.u32++ = CONST;
 			*evalTokenBuffer.u64++ = *a_value = (*tok - KW_R0);
-			*a_attr = ABS | DEFINED;
+			*a_attr = ABS | DEFINED | RISCREG;
 
 			if (a_esym != NULL)
 				*a_esym = NULL;
@@ -522,19 +522,19 @@ be converted from a linked list into an array).
 			symbolNum++;
 #endif
 
-			if (symbol->sattr & DEFINED)
-				*a_value = symbol->svalue;
-			else
-				*a_value = 0;
+			*a_value = (symbol->sattr & DEFINED ? symbol->svalue : 0);
+			*a_attr = (WORD)(symbol->sattr & ~GLOBAL);
 
 /*
 All that extra crap that was put into the svalue when doing the equr stuff is
 thrown away right here. What the hell is it for?
 */
 			if (symbol->sattre & EQUATEDREG)
+			{
 				*a_value &= 0x1F;
-
-			*a_attr = (WORD)(symbol->sattr & ~GLOBAL);
+				*a_attr |= RISCREG; // Mark it as a register, 'cause it is
+				*a_esym = symbol;
+			}
 
 			if ((symbol->sattr & (GLOBAL | DEFINED)) == GLOBAL
 				&& a_esym != NULL)