Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove add_global2

Browse source
This commit is contained in:
Justin Ethier 2020-01-27 15:58:25 -05:00
parent 60879432f9
commit 95fcc2e787
3 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
include/cyclone/runtime.h
View file

@ -790,7 +790,6 @@ object register_library(const char *name);
/**@{*/ /**@{*/
extern list global_table; extern list global_table;
void add_global(const char *identifier, object * glo); void add_global(const char *identifier, object * glo);
void add_global2(object identifier, object * glo);
void Cyc_set_globals_changed(gc_thread_data *thd); void Cyc_set_globals_changed(gc_thread_data *thd);
/**@}*/ /**@}*/

5
runtime.c
View file

@ -570,11 +570,6 @@ void add_global(const char *identifier, object * glo)
// pthread_mutex_unlock(&symbol_table_lock); // 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() void debug_dump_globals()
{ {
list l = global_table; list l = global_table;

2
scheme/cyclone/cgen.sld
View file

@ -2134,7 +2134,7 @@
(lambda (global) (lambda (global)
(let ((mglo (cgen:mangle-global (car global)))) (let ((mglo (cgen:mangle-global (car global))))
(emits (string-append (emits (string-append
"\n add_global2(\"" "\n add_global(\""
mglo mglo
"\", (object *) &")) "\", (object *) &"))
(emits mglo) (emits mglo)