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

debugging

Browse source
This commit is contained in:
Justin Ethier 2015-04-14 18:11:31 -04:00
parent 98fc7fa642
commit 03df6405e6
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
runtime.h
View file

@ -1026,10 +1026,11 @@ static void _set_91cdr_67(object cont, object args) {
static void _Cyc_91has_91cycle_127(object cont, object args) { static void _Cyc_91has_91cycle_127(object cont, object args) {
return_funcall1(cont, Cyc_has_cycle(car(args))); } return_funcall1(cont, Cyc_has_cycle(car(args))); }
static void __87(object cont, object args) { static void __87(object cont, object args) {
common_type n = Cyc_sum(car(args), cadr(args)); // common_type n = Cyc_sum(car(args), cadr(args));
return_funcall1(cont, &n); } // return_funcall1(cont, &n); }
// integer_type argc = Cyc_length(args); // TODO: re-enable this to get varargs sum in eval:
// dispatch(argc.value, (function_type)dispatch_sum, cont, cont, args); } integer_type argc = Cyc_length(args);
dispatch(argc.value, (function_type)dispatch_sum, cont, cont, args); }
static void __91(object cont, object args) { static void __91(object cont, object args) {
__sub(i, car(args), cadr(args)); __sub(i, car(args), cadr(args));
return_funcall1(cont, &i); } return_funcall1(cont, &i); }
@ -1502,9 +1503,9 @@ static void GC_loop(int major, closure cont, object *ans, int num_ans)
dhalloc_end = dhallocp + global_heap_size - 8; dhalloc_end = dhallocp + global_heap_size - 8;
} }
#if DEBUG_GC //#if DEBUG_GC
printf("\n=== started GC type = %d === \n", major); printf("\n=== started GC type = %d === \n", major);
#endif //#endif
/* Transport GC's continuation and its argument. */ /* Transport GC's continuation and its argument. */
transp(cont); transp(cont);
gc_cont = cont; gc_cont = cont;
@ -1731,9 +1732,9 @@ static void main_main (stack_size,heap_size,stack_base)
/* Tank, load the jump program... */ /* Tank, load the jump program... */
setjmp(jmp_main); setjmp(jmp_main);
#if DEBUG_GC //#if DEBUG_GC
printf("Done with GC\n"); printf("Done with GC\n");
#endif //#endif
do_dispatch(gc_num_ans, ((closure)gc_cont)->fn, gc_cont, gc_ans); do_dispatch(gc_num_ans, ((closure)gc_cont)->fn, gc_cont, gc_ans);
/* */ /* */