From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 27 Jul 2000 06:38:22 +0000 (+0000)
Subject: Fixed a bug in the .ERROR directive
X-Git-Tag: V2.12.0~3316
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=2311661a0eec87c591174bce1016b2aa99a72720;p=cc65

Fixed a bug in the .ERROR directive


git-svn-id: svn://svn.cc65.org/cc65/trunk@202 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/src/ca65/pseudo.c b/src/ca65/pseudo.c
index ada1f4951..3dbf41fe5 100644
--- a/src/ca65/pseudo.c
+++ b/src/ca65/pseudo.c
@@ -408,7 +408,7 @@ static void DoEndProc (void)
 static void DoError (void)
 /* Use error */
 {
-    if (Tok == TOK_STRCON) {
+    if (Tok != TOK_STRCON) {
  	ErrorSkip (ERR_STRCON_EXPECTED);
     } else {
        	Error (ERR_USER, SVal);