// Handle multiple-character tokens
if (c & MULTX)
{
- stringtype = 0;
switch (*ln++)
{
continue;
case '\'': // 'string'
if (m6502)
- stringtype = A8INT; // hardcoded for now, maybe this will change in the future
-
+ {
+ // Hardcoded for now, maybe this will change in the future
+ *tk++ = STRINGA8;
+ goto dostring;
+ }
// Fall through
case '\"': // "string"
- c1 = ln[-1];
*tk++ = STRING;
-//#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
+dostring:
+ c1 = ln[-1];
string[stringNum] = ln;
*tk++ = stringNum;
stringNum++;
-#endif
for(p=ln; *ln!=EOS && *ln!=c1;)
{