d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Also update WorkingDir on line directives

Browse source
This commit is contained in:
ceriel 1990-11-22 12:02:00 +00:00
parent 2299e83685
commit 32598a47a2
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lang/m2/m2mm/LLlex.c
View file

@ -23,6 +23,8 @@ struct token dot,
int idfsize = IDFSIZE; int idfsize = IDFSIZE;
int ForeignFlag; int ForeignFlag;
extern char *getwdir();
STATIC STATIC
SkipComment() SkipComment()
{ {
@ -160,6 +162,7 @@ CheckForLineDirective()
*/ */
if (class(ch) == STNL && strcmp(FileName,buf)) { if (class(ch) == STNL && strcmp(FileName,buf)) {
FileName = Salloc(buf,(unsigned) strlen(buf) + 1); FileName = Salloc(buf,(unsigned) strlen(buf) + 1);
WorkingDir = getwdir(FileName);
} }
} }
if (class(ch) == STEOI) { if (class(ch) == STEOI) {