andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Remove unused symbols. 

* include/mes/symbols.h (cell_symbol_dot, cell_symbol_read_input_file,
cell_symbol_write, cell_symbol_display): Remove
* src/symbol.c (init_symbols_): Remove initializations.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-18 10:33:56 +02:00
parent e1efd41abe
commit f8152da76a
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
include/mes/symbols.h
View File

@ -66,7 +66,7 @@ SCM cell_vm_macro_expand_define_macro;
SCM cell_vm_macro_expand_lambda;
SCM cell_vm_macro_expand_set_x;
SCM cell_vm_return;
SCM cell_symbol_dot;
SCM cell_symbol_lambda;
SCM cell_symbol_begin;
SCM cell_symbol_if;
@ -90,9 +90,6 @@ SCM cell_symbol_call_with_current_continuation;
SCM cell_symbol_boot_module;
SCM cell_symbol_current_module;
SCM cell_symbol_primitive_load;
SCM cell_symbol_read_input_file;
SCM cell_symbol_write;
SCM cell_symbol_display;
SCM cell_symbol_car;
SCM cell_symbol_cdr;
SCM cell_symbol_not_a_number;
@ -141,14 +138,14 @@ SCM cell_type_broken_heart;
SCM cell_symbol_program;
SCM cell_symbol_test;
// CONSTANT SYMBOL_MAX 120
#define SYMBOL_MAX 120
// CONSTANT SYMBOL_MAX 116
#define SYMBOL_MAX 116
// CONSTANT CELL_UNSPECIFIED 7
#define CELL_UNSPECIFIED 7
// CONSTANT CELL_SYMBOL_RECORD_TYPE 88
#define CELL_SYMBOL_RECORD_TYPE 88
// CONSTANT CELL_SYMBOL_RECORD_TYPE 84
#define CELL_SYMBOL_RECORD_TYPE 84
#endif /* __MES_SYMBOLS_H */

10
src/symbol.c
View File

@ -72,6 +72,8 @@ init_symbols_ () /*:((internal)) */
cell_circular = init_symbol (g_symbol, TSPECIAL, "*circular*");
cell_begin = init_symbol (g_symbol, TSPECIAL, "*begin*");
cell_call_with_current_continuation = init_symbol (g_symbol, TSPECIAL, "*call/cc*");
cell_vm_apply = init_symbol (g_symbol, TSPECIAL, "core:apply");
cell_vm_apply2 = init_symbol (g_symbol, TSPECIAL, "*vm-apply2*");
cell_vm_begin = init_symbol (g_symbol, TSPECIAL, "*vm-begin*");
@ -106,7 +108,7 @@ init_symbols_ () /*:((internal)) */
cell_vm_macro_expand_lambda = init_symbol (g_symbol, TSPECIAL, "*vm:core:macro-expand-lambda*");
cell_vm_macro_expand_set_x = init_symbol (g_symbol, TSPECIAL, "*vm:core:macro-expand-set!*");
cell_vm_return = init_symbol (g_symbol, TSPECIAL, "*vm-return*");
cell_symbol_dot = init_symbol (g_symbol, TSYMBOL, "*dot*");
cell_symbol_lambda = init_symbol (g_symbol, TSYMBOL, "lambda");
cell_symbol_begin = init_symbol (g_symbol, TSYMBOL, "begin");
cell_symbol_if = init_symbol (g_symbol, TSYMBOL, "if");
@ -130,9 +132,6 @@ init_symbols_ () /*:((internal)) */
cell_symbol_boot_module = init_symbol (g_symbol, TSYMBOL, "boot-module");
cell_symbol_current_module = init_symbol (g_symbol, TSYMBOL, "current-module");
cell_symbol_primitive_load = init_symbol (g_symbol, TSYMBOL, "primitive-load");
cell_symbol_read_input_file = init_symbol (g_symbol, TSYMBOL, "read-input-file");
cell_symbol_write = init_symbol (g_symbol, TSYMBOL, "write");
cell_symbol_display = init_symbol (g_symbol, TSYMBOL, "display");
cell_symbol_car = init_symbol (g_symbol, TSYMBOL, "car");
cell_symbol_cdr = init_symbol (g_symbol, TSYMBOL, "cdr");
cell_symbol_not_a_number = init_symbol (g_symbol, TSYMBOL, "not-a-number");
@ -142,6 +141,7 @@ init_symbols_ () /*:((internal)) */
cell_symbol_unbound_variable = init_symbol (g_symbol, TSYMBOL, "unbound-variable");
cell_symbol_wrong_number_of_args = init_symbol (g_symbol, TSYMBOL, "wrong-number-of-args");
cell_symbol_wrong_type_arg = init_symbol (g_symbol, TSYMBOL, "wrong-type-arg");
cell_symbol_buckets = init_symbol (g_symbol, TSYMBOL, "buckets");
cell_symbol_builtin = init_symbol (g_symbol, TSYMBOL, "<builtin>");
cell_symbol_frame = init_symbol (g_symbol, TSYMBOL, "<frame>");
@ -159,6 +159,7 @@ init_symbols_ () /*:((internal)) */
cell_symbol_arch = init_symbol (g_symbol, TSYMBOL, "%arch");
cell_symbol_pmatch_car = init_symbol (g_symbol, TSYMBOL, "pmatch-car");
cell_symbol_pmatch_cdr = init_symbol (g_symbol, TSYMBOL, "pmatch-cdr");
cell_type_bytes = init_symbol (g_symbol, TSYMBOL, "<cell:bytes>");
cell_type_char = init_symbol (g_symbol, TSYMBOL, "<cell:char>");
cell_type_closure = init_symbol (g_symbol, TSYMBOL, "<cell:closure>");
@ -178,6 +179,7 @@ init_symbols_ () /*:((internal)) */
cell_type_variable = init_symbol (g_symbol, TSYMBOL, "<cell:variable>");
cell_type_vector = init_symbol (g_symbol, TSYMBOL, "<cell:vector>");
cell_type_broken_heart = init_symbol (g_symbol, TSYMBOL, "<cell:broken-heart>");
cell_symbol_program = init_symbol (g_symbol, TSYMBOL, "%program");
cell_symbol_test = init_symbol (g_symbol, TSYMBOL, "%%test");
}