X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=token.c;h=00ead96bdf7c0d9f866744433e4779ca620ed4ae;hp=1ef99cf572fb0cfa9ca7b28b938333ab228e41f5;hb=968958cccf9201debee2cb0d4856cb5b55c6867d;hpb=2161b198b7b333147c89ef0346d8e9bb6ab9ffd9 diff --git a/token.c b/token.c index 1ef99cf..00ead96 100644 --- a/token.c +++ b/token.c @@ -7,6 +7,7 @@ // #include "token.h" +#include "direct.h" #include "error.h" #include "macro.h" #include "procln.h" @@ -1161,7 +1162,8 @@ if (debug) printf("TokenizeLine: Calling fpop() from SRC_IREPT...\n"); // Handle multiple-character tokens if (c & MULTX) { - stringtype = 0; + stringtype = 0; + switch (*ln++) { case '!': // ! or != @@ -1175,11 +1177,10 @@ 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 - } - // Fall through + if (m6502) + stringtype = A8INT; // hardcoded for now, maybe this will change in the future + + // Fall through case '\"': // "string" c1 = ln[-1]; *tk++ = STRING;