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

19
lang/m2/comp/main.c
View File

@@ -101,6 +101,9 @@ Compile(src, dst)
}
WalkModule(Defined);
C_close();
#ifdef DEBUG
if (options['m']) MemUse();
#endif
if (err_occurred) return 0;
return 1;
}
@@ -217,3 +220,19 @@ AtEoIT()
*/
return 1;
}
#ifdef DEBUG
MemUse()
{
extern int cnt_def, cnt_node, cnt_paramlist, cnt_type,
cnt_switch_hdr, cnt_case_entry,
cnt_scope, cnt_scopelist, cnt_forwards, cnt_tmpvar;
print("\
%6d def\n%6d node\n%6d paramlist\n%6d type\n%6d switch_hdr\n\
%6d case_entry\n%6d scope\n%6d scopelist\n%6d forwards\n%6d tmpvar\n",
cnt_def, cnt_node, cnt_paramlist, cnt_type,
cnt_switch_hdr, cnt_case_entry,
cnt_scope, cnt_scopelist, cnt_forwards, cnt_tmpvar);
}
#endif