X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=token.c;h=629f8a6f98a18bb8afeb90bb86461b8f37600caa;hp=00ead96bdf7c0d9f866744433e4779ca620ed4ae;hb=a3feec3b2d24d0f4685549a5059a210e074c2b99;hpb=005275defacb4b5d2f511bf7357ac7720f807761

diff --git a/token.c b/token.c
index 00ead96..629f8a6 100644
--- 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.