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

newer version

Browse Source
This commit is contained in:
ceriel
1986-04-23 22:12:22 +00:00
parent ce160b4f1a
commit a254a8acb1
11 changed files with 437 additions and 299 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lang/m2/comp/declar.g
View File

@@ -117,7 +117,8 @@ FormalParameters(int doparams;
{ *tp = 0; }
[ ':' qualident(D_TYPE|D_HTYPE|D_HIDDEN, &df, "type",
(struct node **) 0)
{ *tp = df->df_type; }
{ *tp = df->df_type;
}
]?
;
@@ -364,14 +365,14 @@ FieldList(struct scope *scope; arith *cnt; int *palign;)
*/
{ warning("Old fashioned Modula-2 syntax!");
id = gen_anon_idf();
findname(nd);
assert(nd->nd_class == Def);
df = nd->nd_def;
if (!(df->df_kind &
(D_ERROR|D_TYPE|D_HTYPE|D_HIDDEN))) {
error("identifier \"%s\" is not a type",
df->df_idf->id_text);
df = ill_df;
if (chk_designator(nd, QUALONLY) &&
(nd->nd_class != Def ||
!(nd->nd_def->df_kind &
(D_ERROR|D_TYPE|D_HTYPE|D_HIDDEN)))) {
node_error(nd, "type expected");
}
else df = nd->nd_def;
FreeNode(nd);
}
]