Fixed subtle bug in expr().

[rmac] / error.c

diff --git a/error.c b/error.c
index 300a07e9daabcb3851381ea568e0fe5fa91701ba..4f65cc42c50abc9601a051d688b508d51a99553e 100644 (file)
--- a/error.c
+++ b/error.c
@@ -22,8 +22,14 @@ static long unused;                          // For supressing 'write' warnings
 //
 int at_eol(void)
 {
 //
 int at_eol(void)
 {

+       char msg[256];
+

        if (*tok != EOL)
        if (*tok != EOL)

-               error("syntax error");
+       {
+//             error("syntax error");
+               sprintf(msg, "syntax error. expected EOL, found $%X ('%c')", *tok, *tok);
+               error(msg);
+       }

 
        return 0;
 }
 
        return 0;
 }