X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=token.c;h=3031895c1e5e63d5e451ab85166527ddb6b68da3;hp=84faa8f157bc5a9157f60e25e88dbda49e4df0f3;hb=bb77eaee83ffa56a181fa1b92f4ea7de248a3af4;hpb=389f084bc1cd30b98d196fe57d083c8f6637e6d6 diff --git a/token.c b/token.c index 84faa8f..3031895 100644 --- a/token.c +++ b/token.c @@ -912,8 +912,13 @@ retry: if ((ln = GetNextLine()) == NULL) { if (verb_flag) printf("TokenizeLine: Calling fpop() from SRC_IFILE...\n"); - fpop(); // Pop input level - goto retry; // Try for more lines + if (fpop() == 0) // Pop input level + goto retry; // Try for more lines + else + { + ifent->if_prev = (IFENT *) - 1; //Signal Assemble() that we have reached EOF with unbalanced if/endifs + return TKEOF; + } } curlineno++; // Bump line number