Fixes for last commit; version is now 1.10.0.

[rmac] / error.c

diff --git a/error.c b/error.c
index 6da93e2079a279a2c03f5b3a0e6a945c139cbea6..c27911796f9dc9778102ccccb1c19b47db8ef0a3 100644 (file)
--- a/error.c
+++ b/error.c
@@ -19,11 +19,19 @@ static long unused;                         // For supressing 'write' warnings
 
 //
 // Report error if not at EOL
 
 //
 // Report error if not at EOL

+// N.B.: Since this should *never* happen, we can feel free to add whatever
+//       diagnostics that will help in tracking down a problem to this function.

 //
 int at_eol(void)
 {
 //
 int at_eol(void)
 {

-       if (*tok != EOL)
-               error("syntax error. expected EOL, found $%X ('%c')", *tok, *tok);
+       if (*tok.u32 != EOL)
+       {
+               error("syntax error. expected EOL, found $%X ('%c')", *tok.u32, *tok.u32);
+               printf("Token = ");
+               DumpToken(*tok.u32);
+               printf("\n");
+               DumpTokenBuffer();
+       }

 
        return 0;
 }
 
        return 0;
 }