Bug fix with WorkingDir

This commit is contained in:
ceriel 1987-01-16 16:14:22 +00:00
parent e346f6fc74
commit 8f27f92269

View file

@ -5,6 +5,7 @@
extern struct tokenname tkidf[], tkkey[];
extern char *symbol2str();
extern char *getwdir();
extern char *inctable[];
extern int err_occurred;
int idfsize = IDFSIZE;
@ -56,10 +57,10 @@ compile(argc, argv)
fatal("use: %s [options] [source]", prog_name);
break;
}
WorkingDir = inctable[0];
if (!InsertFile(source, (char **) 0, &dummy)) /* read the source file */
fatal("%s: no source file %s\n", prog_name,
source ? source : "stdin");
WorkingDir = getwdir(dummy);
preprocess(source);
}