d0p1/ack
1
0
Fork 0
Code Issues Pull requests 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 578b8fd103
commit 69b293d86b
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");
}