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

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2020-01-28 22:19:28 -05:00
parent d2d782e0da
commit bb44246588
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
include/cyclone/runtime.h
View file

@ -109,9 +109,9 @@ object cell_get(object cell);
#define global_set_id(id,glo,value) Cyc_global_set(data, id, (object *)&glo, value)
object Cyc_global_set(void *thd, object sym, object * glo, object value);
#define global_set2(thd,k,glo,value) Cyc_global_set2(thd, k, NULL, (object *)&glo, value)
#define global_set2_id(thd,k,id,glo,value) Cyc_global_set2(thd, k, id, (object *)&glo, value)
object Cyc_global_set2(void *thd, object cont, object sym, object * glo, object value);
#define global_set_cps(thd,k,glo,value) Cyc_global_set_cps(thd, k, NULL, (object *)&glo, value)
#define global_set_cps_id(thd,k,id,glo,value) Cyc_global_set_cps(thd, k, id, (object *)&glo, value)
object Cyc_global_set_cps(void *thd, object cont, object sym, object * glo, object value);
/* Variable argument count support

2
runtime.c
View file

@ -415,7 +415,7 @@ object Cyc_global_set(void *thd, object identifier, object * glo, object value)
return value;
}
object Cyc_global_set2(void *thd, object cont, object identifier, object * glo, object value)
object Cyc_global_set_cps(void *thd, object cont, object identifier, object * glo, object value)
{
int do_gc = 0;
value = share_object(thd, NULL, value, &do_gc); // glo cannot be thread-local!

2
scheme/cyclone/primitives.sld
View file

@ -691,7 +691,7 @@
((eq? p 'cell) "set_cell_as_expr")
((eq? p 'cell-get) "car") ;; Unsafe as cell gets added by compiler
((eq? p 'set-cell!) "Cyc_set_cell")
((eq? p 'set-global!) "global_set2_id")
((eq? p 'set-global!) "global_set_cps_id")
((eq? p 'set-global-unsafe!) "global_set_id")
(else
(error "unhandled primitive: " p))))