Much better implementation for A8 strings - introduced a new token called STRINGA8...

[rmac] / token.c

diff --git a/token.c b/token.c
index 00ead96bdf7c0d9f866744433e4779ca620ed4ae..629f8a6f98a18bb8afeb90bb86461b8f37600caa 100644 (file)
--- a/token.c
+++ b/token.c
@@ -1162,7 +1162,6 @@ if (debug) printf("TokenizeLine: Calling fpop() from SRC_IREPT...\n");
                // Handle multiple-character tokens
                if (c & MULTX)
                {
-                       stringtype = 0;
 
                        switch (*ln++)
                        {
@@ -1178,12 +1177,15 @@ if (debug) printf("TokenizeLine: Calling fpop() from SRC_IREPT...\n");
                                continue;
                        case '\'':              // 'string'
                                if (m6502)
-                                       stringtype = A8INT; // hardcoded for now, maybe this will change in the future
-
+                {
+                                       *tk++ = STRINGA8; // hardcoded for now, maybe this will change in the future
+                    goto dostring;
+                }
                                // Fall through
                        case '\"':              // "string"
-                               c1 = ln[-1];
                                *tk++ = STRING;
+dostring:
+                               c1 = ln[-1];
 //#warning
 // More char * stuffing (8 bytes) into the space of 4 (TOKEN).
 // Need to figure out how to fix this crap.