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

Compilation fixes

Browse source
This commit is contained in:
Justin Ethier 2021-02-11 22:27:50 -05:00
parent 8b8af34390
commit b6c2a353a8
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime-main.h
View file

@ -12,7 +12,7 @@
long global_stack_size = 0;
long global_heap_size = 0;
static void c_entry_pt(void *, int, closure, closure);
static void c_entry_pt(void *data, object clo, int argc, object *args);
static void Cyc_heap_init(long heap_size);
static void Cyc_heap_init(long heap_size)

4
include/cyclone/runtime.h
View file

@ -155,7 +155,7 @@ object Cyc_global_set_cps(void *thd, object cont, object sym, object * glo, obje
object tmp; \
if ((count) > 0) { \
for (i = 0; i < (count); i++) { \
tmp = arg[start + i]; \
tmp = args_var[start + i]; \
var[i].hdr.mark = gc_color_red; \
var[i].hdr.grayed = 0; \
var[i].hdr.immutable = 0; \
@ -174,7 +174,7 @@ object Cyc_global_set_cps(void *thd, object cont, object sym, object * glo, obje
/**@{*/
object apply(void *data, object cont, object func, object args);
void Cyc_apply(void *data, int argc, closure cont, object prim, ...);
void Cyc_apply(void *data, object cont, int argc, object *args);
void dispatch_apply_va(void *data, int argc, object clo, object cont, object func, ...);
object apply_va(void *data, object cont, int argc, object func, ...);
void dispatch(void *data, int argc, function_type func, object clo, object cont,