godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Only generate FIL when needed

Browse Source
This commit is contained in:
ceriel
1988-10-25 17:43:19 +00:00
parent cfd6bca270
commit a7a80689bf
4 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lang/m2/comp/defmodule.c
View File

@@ -93,7 +93,7 @@ GetDefinitionModule(id, incr)
t_scopelist *vis;
char *fn = FileName;
int ln = LineNumber;
t_scope *newsc = CurrentScope;
t_scope *newsc;
level += incr;
df = lookup(id, GlobalScope, D_IMPORTED, 0);
@@ -105,13 +105,14 @@ GetDefinitionModule(id, incr)
ForeignFlag = 0;
DefId = id;
open_scope(CLOSEDSCOPE);
newsc = CurrentScope;
vis = CurrVis;
newsc->sc_defmodule = incr;
if (!strcmp(id->id_text, "SYSTEM")) {
do_SYSTEM();
df = lookup(id, GlobalScope, D_IMPORTED, 0);
}
else {
newsc = CurrentScope;
if (!is_anon_idf(id) && GetFile(id->id_text)) {
DefModule();