X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=token.c;h=01c0c4c5d49f6f6bed4839553ff9e9d5537a2f41;hp=81a040a958aefc6971baf53ef30f8186cbc3e070;hb=51cff2ac6cb3d097f62b68c51d74fafbce8923f6;hpb=9207a38ed4a09c60a1e9b9995a92bcd4580e3662 diff --git a/token.c b/token.c index 81a040a..01c0c4c 100644 --- a/token.c +++ b/token.c @@ -521,7 +521,7 @@ DEBUG printf("ExM: SYMBOL=\"%s\"", d); // to choke on legitimate code... Need to investigate this further // before changing anything else here! case CONST: - sprintf(numbuf, "$%lx", (LONG)*tk++); + sprintf(numbuf, "$%lx", (long unsigned int)*tk++); d = numbuf; break; case DEQUALS: @@ -648,7 +648,6 @@ char * GetNextMacroLine(void) // char * GetNextRepeatLine(void) { - IREPT * irept = cur_inobj->inobj.irept; LONG * strp = irept->ir_nextln; // initial null @@ -1304,15 +1303,18 @@ dostring: if (obj_format == ALCYON) { - if ((*(ln + 1) == 'w') || (*(ln + 1) == 'W')) - { - *tk++ = DOTW; - ln += 2; - } - else if ((*(ln + 1) == 'l') || (*(ln + 1) == 'L')) + if (*ln == '.') { - *tk++ = DOTL; - ln += 2; + if ((*(ln + 1) == 'w') || (*(ln + 1) == 'W')) + { + *tk++ = DOTW; + ln += 2; + } + else if ((*(ln + 1) == 'l') || (*(ln + 1) == 'L')) + { + *tk++ = DOTL; + ln += 2; + } } } }