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

Fixes for host functions

Browse source
This commit is contained in:
Justin Ethier 2018-10-12 13:02:03 -04:00
parent 725645c2fe
commit da65f85d0a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -5092,7 +5092,7 @@ object apply(void *data, object cont, object func, object args)
// ((gc_thread_data *)data)->pc = ((closure)func)->pc; // ((gc_thread_data *)data)->pc = ((closure)func)->pc;
// need to alloc array for args, and load it up... // need to alloc array for args, and load it up...
// ((gc_thread_data *)data)->args = ((closure)func)->pc; // ((gc_thread_data *)data)->args = ((closure)func)->pc;
// ((closure)func)->fn(data, count); // ((closure)func)->fn(data, count, cont);
// } // }
dispatch(data, obj_obj2int(count), ((closure) func)->fn, func, cont, args); dispatch(data, obj_obj2int(count), ((closure) func)->fn, func, cont, args);
break; break;
@ -5208,7 +5208,7 @@ void Cyc_start_trampoline(gc_thread_data * thd)
} else if (((closure) (thd->gc_cont))->pc) { } else if (((closure) (thd->gc_cont))->pc) {
thd->pc = ((closure) (thd->gc_cont))->pc; thd->pc = ((closure) (thd->gc_cont))->pc;
thd->args = thd->gc_args; thd->args = thd->gc_args;
(((closure) (thd->gc_cont))->fn)(thd, thd->gc_num_args); (((closure) (thd->gc_cont))->fn)(thd, thd->gc_num_args, thd->gc_cont);
} else { } else {
do_dispatch(thd, thd->gc_num_args, ((closure) (thd->gc_cont))->fn, do_dispatch(thd, thd->gc_num_args, ((closure) (thd->gc_cont))->fn,
thd->gc_cont, thd->gc_args); thd->gc_cont, thd->gc_args);