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

Some bug fixes

Browse Source
This commit is contained in:
ceriel
1986-07-14 15:00:08 +00:00
parent ee32bf5126
commit ca77c2b86b
6 changed files with 45 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -183,6 +183,7 @@ df->df_idf->id_text);
assert(expp->nd_class == Def);
df = expp->nd_def;
if (df == ill_df) return 0;
if (df->df_kind & (D_ENUM | D_CONST)) {
if (df->df_kind == D_ENUM) {
@@ -431,6 +432,10 @@ getarg(argp, bases, designator)
return 0;
}
if (designator && left->nd_class == Def) {
left->nd_def->df_flags |= D_NOREG;
}
tp = BaseType(left->nd_type);
if (bases && !(tp->tp_fund & bases)) {
@@ -836,8 +841,9 @@ ChkStandard(expp, left)
if (!(left = getarg(&arg, T_ARRAY, 0))) return 0;
if (IsConformantArray(left->nd_type)) {
/* A conformant array has no explicit index type
??? So, what can we use as index-type ???
*/
expp->nd_type = card_type;
expp->nd_type = intorcard_type;
}
else {
expp->nd_type = IndexType(left->nd_type);