diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h index 51f13481..5a678842 100644 --- a/include/cyclone/runtime.h +++ b/include/cyclone/runtime.h @@ -790,7 +790,6 @@ object register_library(const char *name); /**@{*/ extern list global_table; void add_global(const char *identifier, object * glo); -void add_global2(object identifier, object * glo); void Cyc_set_globals_changed(gc_thread_data *thd); /**@}*/ diff --git a/runtime.c b/runtime.c index c0c40d66..a70a813b 100644 --- a/runtime.c +++ b/runtime.c @@ -570,11 +570,6 @@ void add_global(const char *identifier, object * glo) // pthread_mutex_unlock(&symbol_table_lock); } -void add_global2(object identifier, object * glo) -{ - global_table = malloc_make_pair(mcvar(glo), global_table); -} - void debug_dump_globals() { list l = global_table; diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 0737b157..f66d9ad2 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -2134,7 +2134,7 @@ (lambda (global) (let ((mglo (cgen:mangle-global (car global)))) (emits (string-append - "\n add_global2(\"" + "\n add_global(\"" mglo "\", (object *) &")) (emits mglo)