X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=procln.c;h=2a8c0fdc093eddbdc6bc359f9855413f9bc573bb;hp=f5a806b0bf9bbb7c0592a313a17d17dad99b39df;hb=4ca28ba07da9f3848c2e3db0e2e9cbcaa787dd29;hpb=ff8188b7e279f99cf11ac8a283c4146af324d26f

diff --git a/procln.c b/procln.c
index f5a806b..2a8c0fd 100644
--- a/procln.c
+++ b/procln.c
@@ -281,7 +281,6 @@ as68label:
 	case DOTX: siz = SIZX, tok++; break;
 	}
 
-
 	// Do special directives (500..999) (These must be handled in "real time")
 	if (state >= 500 && state < 1000)
 	{
@@ -465,12 +464,11 @@ When checking to see if it's already been equated, issue a warning.
 				{
 					// Advance token pointer to the constant
 					tok += 3;
-					tok++;		// Skip the hi LONG, so pointing at lo LONG
 
 					// Anything other than a 0 or a 1 will result in "No Bank"
-					if (*tok == 0)
+					if (*(uint64_t *)tok == 0)
 						registerbank = BANK_0;
-					else if (*tok == 1)
+					else if (*(uint64_t *)tok == 1)
 						registerbank = BANK_1;
 				}
 
@@ -577,10 +575,10 @@ When checking to see if it's already been equated, issue a warning.
 		}
 
 		sy->sattr |= eattr | EQUATED;	// Symbol inherits value and attributes
-		sy->svalue = eval;
+		sy->svalue = (uint32_t)eval;
 
 		if (list_flag)					// Put value in listing
-			listvalue(eval);
+			listvalue((uint32_t)eval);
 
 		at_eol();						// Must be at EOL now
 		goto loop;