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

too many changes: some cosmetic; some for 2/4; some for added options

Browse Source
This commit is contained in:
ceriel
1988-03-21 17:06:20 +00:00
parent 651205bb9a
commit f93981d377
2 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -150,10 +150,7 @@ FPSection(t_param **ppr; arith *parmaddr;)
{ EnterParamList(ppr, FPList, tp, VARp, parmaddr); }
;
FormalType(t_type **ptp;)
{
extern arith ArrayElSize();
} :
FormalType(t_type **ptp;) :
ARRAY OF qualtype(ptp)
{ /* index type of conformant array is "CARDINAL".
Recognize a conformant array by size 0.
@@ -162,11 +159,10 @@ FormalType(t_type **ptp;)
tp->arr_elem = *ptp;
*ptp = tp;
tp->arr_elsize = ArrayElSize(tp->arr_elem);
tp->tp_align = tp->arr_elem->tp_align;
ArrayElSize(tp);
}
|
qualtype(ptp)
qualtype(ptp)
;
TypeDeclaration
@@ -289,7 +285,7 @@ RecordType(t_type **ptp;)
warning(W_ORDINARY, "empty record declaration");
size = 1;
}
*ptp = standard_type(T_RECORD, xalign, size);
*ptp = standard_type(T_RECORD, xalign, align(size, xalign));
(*ptp)->rec_scope = scope;
}
END
@@ -408,8 +404,7 @@ CaseLabels(t_type **ptp; register t_node **pnd;)
}:
ConstExpression(pnd)
{
if (*ptp != 0) {
ChkCompat(pnd, *ptp, "case label");
if (*ptp != 0 && ChkCompat(pnd, *ptp, "case label")) {
}
nd = *pnd;
if (! (nd->nd_type->tp_fund & T_DISCRETE) ||