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

fixes

Browse Source
This commit is contained in:
ceriel
1987-07-13 11:49:32 +00:00
parent a730a046da
commit 483fcab70f
3 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lang/m2/comp/chk_expr.c
View File

@@ -183,7 +183,8 @@ ChkLinkOrName(expp)
if (! ChkDesignator(left)) return 0;
if ((left->nd_type->tp_fund != T_RECORD ||
if ((left->nd_class==Def || left->nd_class==LinkDef) &&
(left->nd_type->tp_fund != T_RECORD ||
!(left->nd_def->df_kind & (D_MODULE|D_VARIABLE|D_FIELD))
)
) {
@@ -211,7 +212,8 @@ Xerror(expp, "not exported from qualifying module", df);
}
}
if (left->nd_def->df_kind == D_MODULE) {
if ((left->nd_class == Def || left->nd_class == LinkDef) &&
left->nd_def->df_kind == D_MODULE) {
expp->nd_class = Def;
FreeNode(left);
expp->nd_left = 0;
@@ -221,7 +223,7 @@ Xerror(expp, "not exported from qualifying module", df);
assert(expp->nd_class == Def);
return df->df_kind != D_ERROR;
return expp->nd_def->df_kind != D_ERROR;
}
STATIC int