godzil/tack
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-05-21 18:32:20 +00:00
parent 0d93c572bc
commit 8aaaa48840
13 changed files with 870 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -56,16 +56,16 @@ ProcedureHeading(struct def **pdf; int type;)
{
if (type == D_PROCEDURE) proclevel++;
df = DeclProc(type);
tp = construct_type(T_PROCEDURE, tp);
if (proclevel > 1) {
/* Room for static link
*/
df->prc_nbpar = pointer_size;
tp->prc_nbpar = pointer_size;
}
else df->prc_nbpar = 0;
else tp->prc_nbpar = 0;
}
FormalParameters(type == D_PROCEDURE, &params, &tp, &(df->prc_nbpar))?
FormalParameters(type == D_PROCEDURE, &params, &(tp->next), &(tp->prc_nbpar))?
{
tp = construct_type(T_PROCEDURE, tp);
tp->prc_params = params;
if (df->df_type) {
/* We already saw a definition of this type