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

Fixed problem with IMPORTS through PROCEDURE bounds

Browse source
This commit is contained in:
ceriel 1988-11-03 15:37:37 +00:00
parent 5e766a0f20
commit 93cee9d434
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lang/m2/comp/scope.C
View file

@ -147,7 +147,6 @@ node_error(nd, "\"%s\" is not a type", df1->df_idf->id_text);
*/ */
node_error(df->for_node, "identifier \"%s\" not declared", node_error(df->for_node, "identifier \"%s\" not declared",
df->df_idf->id_text); df->df_idf->id_text);
FreeNode(df->for_node);
} }
else { else {
/* This scope was an open scope. /* This scope was an open scope.
@ -156,17 +155,22 @@ df->df_idf->id_text);
*/ */
register t_scopelist *ls = register t_scopelist *ls =
nextvisible(CurrVis); nextvisible(CurrVis);
t_def *df1 = df->df_nextinscope; register t_def *df1 = lookup(df->df_idf, ls->sc_scope, 0, 0);
if (df->df_kind == D_FORWMODULE) { *pdf = df->df_nextinscope;
df->for_vis->sc_next = ls;
if (! df1) {
if (df->df_kind == D_FORWMODULE) {
df->for_vis->sc_next = ls;
}
df->df_nextinscope = ls->sc_scope->sc_def;
ls->sc_scope->sc_def = df;
df->df_scope = ls->sc_scope;
continue;
} }
df->df_nextinscope = ls->sc_scope->sc_def; /* leave it like this ??? */
ls->sc_scope->sc_def = df;
df->df_scope = ls->sc_scope;
*pdf = df1;
continue;
} }
FreeNode(df->for_node);
} }
pdf = &df->df_nextinscope; pdf = &df->df_nextinscope;
} }