Commit 1b61fc9f authored by Camil Staps's avatar Camil Staps 🍃

Cleanup symbols exported from interpret.c

parent dacb09b4
......@@ -72,7 +72,6 @@ struct interpretation_environment *build_interpretation_environment(
#if DEBUG_CLEAN_LINKS > 0
EPRINTF("Building interpretation_environment %p\n",ie);
#endif
install_interpreter_segv_handler();
return ie;
}
......
......@@ -79,7 +79,7 @@ BC_WORD static_characters[512];
#endif
BC_WORD static_booleans[4];
void prepare_static_nodes(void) {
static void prepare_static_nodes(void) {
static_booleans[2]=static_booleans[0]=(BC_WORD)&BOOL+2;
static_booleans[1]=0;
static_booleans[3]=1;
......@@ -100,10 +100,10 @@ void prepare_static_nodes(void) {
# include "copy_host_to_interpreter.h"
void **HOST_NODES[32] = {NULL};
BC_WORD HOST_NODE_DESCRIPTORS[1216];
BC_WORD ADD_ARG[33];
static BC_WORD ADD_ARG[33];
BC_WORD HOST_NODE_INSTRUCTIONS[32*6];
void build_host_nodes(void) {
static void build_host_nodes(void) {
if (HOST_NODES[0] != NULL)
return;
int i = 0;
......@@ -229,10 +229,6 @@ BC_WORD Fjmp_ap[32] =
, Cjmp_ap32
};
BC_WORD *g_asp, *g_bsp, *g_hp;
BC_WORD_S g_heap_free;
int trap_needs_gc = 0;
void* __interpreter_cycle_in_spine[2] = {
(void*) 0,
(void*) Chalt
......@@ -337,6 +333,8 @@ int ensure_interpreter_init(void) {
if (interpreter_initialized)
return 1;
install_interpreter_segv_handler();
prepare_static_nodes();
#ifdef LINK_CLEAN_RUNTIME
build_host_nodes();
......@@ -645,8 +643,6 @@ int main(int argc, char **argv) {
BC_WORD *bsp = &stack[stack_size];
BC_WORD *csp = &stack[stack_size >> 1];
install_interpreter_segv_handler();
#ifdef DEBUG_CURSES
init_debugger(state.program, stack, asp, bsp, csp, heap, heap_size);
#endif
......
......@@ -71,20 +71,14 @@ extern void* REAL[];
extern BC_WORD small_integers[];
extern BC_WORD static_characters[];
extern BC_WORD static_booleans[];
void prepare_static_nodes(void);
#ifdef LINK_CLEAN_RUNTIME
#include "copy_interpreter_to_host.h"
void build_host_nodes(void);
extern void **HOST_NODES[32];
extern BC_WORD HOST_NODE_DESCRIPTORS[1216];
extern BC_WORD HOST_NODE_INSTRUCTIONS[32*6];
#endif
extern BC_WORD *g_asp, *g_bsp, *g_hp;
extern BC_WORD_S g_heap_free;
extern int trap_needs_gc;
extern BC_WORD Fjmp_ap[32];
extern void* __interpreter_cycle_in_spine[2];
......@@ -92,8 +86,6 @@ extern void* __interpreter_indirection[9];
#define A_STACK_CANARY 0x87654321 /* random value to check whether the A-stack overflew */
void install_interpreter_segv_handler(void);
#ifdef COMPUTED_GOTOS
# include "abc_instructions.h"
extern void *instruction_labels[CMAX];
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment