X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=token.c;h=0887d93b1b47bc29e0d24cf9064c6e5cf96c8c71;hp=629f8a6f98a18bb8afeb90bb86461b8f37600caa;hb=751aa148a93f2830cf0a56ab9f662a0416127ddc;hpb=a3feec3b2d24d0f4685549a5059a210e074c2b99 diff --git a/token.c b/token.c index 629f8a6..0887d93 100644 --- a/token.c +++ b/token.c @@ -1177,25 +1177,19 @@ if (debug) printf("TokenizeLine: Calling fpop() from SRC_IREPT...\n"); continue; case '\'': // 'string' if (m6502) - { - *tk++ = STRINGA8; // hardcoded for now, maybe this will change in the future - goto dostring; - } + { + // Hardcoded for now, maybe this will change in the future + *tk++ = STRINGA8; + goto dostring; + } // Fall through case '\"': // "string" *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. -#if 0 - *tk++ = (TOKEN)ln; -#else string[stringNum] = ln; *tk++ = stringNum; stringNum++; -#endif for(p=ln; *ln!=EOS && *ln!=c1;) {