Also update WorkingDir on line directives

diff --git a/lang/m2/m2mm/LLlex.c b/lang/m2/m2mm/LLlex.c
index 032c26e..dde9a8d 100644 (file)
--- a/lang/m2/m2mm/LLlex.c
+++ b/lang/m2/m2mm/LLlex.c
@@ -23,6 +23,8 @@ struct token  dot,
 int            idfsize = IDFSIZE;
 int            ForeignFlag;
 
+extern char    *getwdir();
+
 STATIC
 SkipComment()
 {
@@ -160,6 +162,7 @@ CheckForLineDirective()
                 */
                if (class(ch) == STNL && strcmp(FileName,buf)) {
                        FileName = Salloc(buf,(unsigned) strlen(buf) + 1);
+                       WorkingDir = getwdir(FileName);
                }
        }
        if (class(ch) == STEOI) {