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-05-30 18:48:00 +00:00
parent 6382054ae5
commit db795bc07a
23 changed files with 594 additions and 318 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lang/m2/comp/def.c
View File

@@ -20,7 +20,10 @@ static char *RcsId = "$Header$";
#include "node.h"
#include "Lpars.h"
struct def *h_def; /* Pointer to free list of def structures */
struct def *h_def; /* pointer to free list of def structures */
#ifdef DEBUG
int cnt_def; /* count number of allocated ones */
#endif
struct def *ill_df;
@@ -455,6 +458,7 @@ DeclProc(type)
df->for_name = Malloc((unsigned) (strlen(buf)+1));
strcpy(df->for_name, buf);
C_exp(df->for_name);
open_scope(OPENSCOPE);
}
else {
df = lookup(dot.TOK_IDF, CurrentScope);