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

Improved previous fix

Browse source
This commit is contained in:
ceriel 1993-01-19 15:33:35 +00:00
parent f2cfe32e03
commit 9eec0812a1
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/comp/defmodule.c
View file

@ -115,6 +115,7 @@ GetDefinitionModule(id, incr)
else { else {
if (!is_anon_idf(id) && GetFile(id->id_text)) { if (!is_anon_idf(id) && GetFile(id->id_text)) {
char *f = FileName;
DefModule(); DefModule();
df = lookup(id, GlobalScope, D_IMPORTED, 0); df = lookup(id, GlobalScope, D_IMPORTED, 0);
if (level == 1 && if (level == 1 &&
@ -135,6 +136,7 @@ GetDefinitionModule(id, incr)
else Modules = n; else Modules = n;
nd_end = n; nd_end = n;
} }
free(f);
} }
else { else {
df = lookup(id, GlobalScope, D_IMPORTED, 0); df = lookup(id, GlobalScope, D_IMPORTED, 0);

1
lang/m2/comp/program.g
View file

@ -193,7 +193,6 @@ node_warning(exportlist, W_OLDFASHIONED, "export list in definition module ignor
DefinitionModule--; DefinitionModule--;
match_id(dot.TOK_IDF, df->df_idf); match_id(dot.TOK_IDF, df->df_idf);
df->df_flags &= ~D_BUSY; df->df_flags &= ~D_BUSY;
free(FileName);
} }
'.' '.'
; ;