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

types of case-labels are base-types

Browse Source
This commit is contained in:
ceriel 1988-04-29 09:16:51 +00:00
parent 561a780366
commit 9b2966ca1a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -407,6 +407,7 @@ CaseLabels(t_type **ptp; register t_node **pnd;)
if (*ptp != 0 && ChkCompat(pnd, *ptp, "case label")) {
}
nd = *pnd;
nd->nd_type = BaseType(nd->nd_type); /* ??? */
if (! (nd->nd_type->tp_fund & T_DISCRETE) ||
nd->nd_type->tp_size > word_size) {
node_error(nd, "illegal type in case label");
@ -423,7 +424,7 @@ CaseLabels(t_type **ptp; register t_node **pnd;)
}
else if (! chk_bounds(nd->nd_left->nd_INT,
nd->nd_right->nd_INT,
BaseType(nd->nd_type)->tp_fund)) {
nd->nd_type->tp_fund)) {
node_error(nd,
"lower bound exceeds upper bound in case label range");
}