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

added alloction dump

Browse Source 
shrunk some data structures
changed some ALLOCDEF's
changed setjmp to __setjmp
This commit is contained in:
eck
1990-01-10 17:33:35 +00:00
parent 776f85238f
commit 00876cd9df
34 changed files with 137 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
lang/cem/cemcom.ansi/main.c
View File

@@ -7,9 +7,9 @@
#include "lint.h"
#include <system.h>
#include "debug.h"
#include "nopp.h"
#include "target_sizes.h"
#include "debug.h"
#include "use_tmp.h"
#include "inputtype.h"
#include "input.h"
@@ -42,7 +42,7 @@ extern char *getwdir();
#endif NOPP
struct sp_id special_ids[] = {
{"setjmp", SP_SETJMP}, /* non-local goto's are registered */
{"__setjmp", SP_SETJMP}, /* non-local goto's are registered */
{0, 0}
};
@@ -116,6 +116,7 @@ main(argc, argv)
#ifdef DEBUG
hash_stat();
if (options['m']) Info();
#endif DEBUG
sys_stop(err_occurred ? S_EXIT : S_END);
@@ -382,6 +383,37 @@ preprocess()
}
}
#endif NOPP
Info()
{
extern int cnt_string_cst, cnt_formal,
cnt_decl_unary, cnt_def, cnt_expr, cnt_field,
cnt_e_stack, cnt_localvar, cnt_proto, cnt_repl,
cnt_args, cnt_idf, cnt_macro, cnt_stack_level,
cnt_stack_entry, cnt_stmt_block, cnt_sdef, cnt_tag,
cnt_switch_hdr, cnt_case_entry, cnt_type, cnt_brace,
cnt_lint_stack_entry, cnt_state, cnt_auto_def,
cnt_expr_state, cnt_argument;
print("\
%6d string_cst\n%6d formal\n\
%6d decl_unary\n%6d def\n%6d expr\n%6d field\n\
%6d e_stack\n%6d localvar\n%6d proto\n%6d repl\n\
%6d args\n%6d idf\n%6d macro\n%6d stack_level\n\
%6d stack_entry\n%6d stmt_block\n%6d sdef\n%6d tag\n\
%6d switch_hdr\n%6d case_entry\n%6d type\n%6d brace\n\
%6d lint_stack_entry\n%6d state\n%6d auto_def\n\
%6d expr_state\n%6d argument\n",
cnt_string_cst, cnt_formal,
cnt_decl_unary, cnt_def, cnt_expr, cnt_field,
cnt_e_stack, cnt_localvar, cnt_proto, cnt_repl,
cnt_args, cnt_idf, cnt_macro, cnt_stack_level,
cnt_stack_entry, cnt_stmt_block, cnt_sdef, cnt_tag,
cnt_switch_hdr, cnt_case_entry, cnt_type, cnt_brace,
cnt_lint_stack_entry, cnt_state, cnt_auto_def,
cnt_expr_state, cnt_argument);
}
#endif DEBUG
No_Mem() /* called by alloc package */