X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=debug.c;h=87861b976c7ea5c3f456e2ca50876979269e743f;hp=0488aff4d6c2eee0658f0190bebfe408fe0ca6b2;hb=ff8188b7e279f99cf11ac8a283c4146af324d26f;hpb=f7f625cf6c2f4b96854ac0e911ca2b1c249f4e05

diff --git a/debug.c b/debug.c
index 0488aff..87861b9 100644
--- a/debug.c
+++ b/debug.c
@@ -47,7 +47,8 @@ TOKEN * printexpr(TOKEN * tp)
 				tp++;
 				break;
 			case CONST:
-				printf("$%X ", *tp++);
+				printf("$%lX ", ((uint64_t)tp[0] << 32) | (uint64_t)tp[1]);
+				tp += 2;
 				break;
 			case ACONST:
 				printf("ACONST=($%X,$%X) ", *tp, tp[1]);
@@ -280,7 +281,8 @@ int dumptok(TOKEN * tk)
 		switch ((int)*tk++)
 		{
 		case CONST:                                        // CONST <value>
-			printf("CONST=%u", *tk++);
+			printf("CONST=%lu", ((uint64_t)tk[0] << 32) | (uint64_t)tk[1]);
+			tk += 2;
 			break;
 		case STRING:                                       // STRING <address>
 			printf("STRING='%s'", string[*tk++]);
@@ -337,8 +339,8 @@ void DumpTokens(TOKEN * tokenBuffer)
 			printf("[COLON]");
 		else if (*t == CONST)
 		{
-			t++;
-			printf("[CONST: $%X]", (uint32_t)*t);
+			printf("[CONST: $%lX]", ((uint64_t)t[1] << 32) | (uint64_t)t[2]);
+			t += 2;
 		}
 		else if (*t == ACONST)
 		{