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

Redirect GC to stderr

Browse source
This commit is contained in:
Justin Ethier 2015-12-03 23:20:16 -05:00
parent 4f0ff11f33
commit 22275832b5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
runtime.c
View file

@ -2415,8 +2415,8 @@ void Cyc_start_thread(gc_thread_data *thd)
void gc_mark_globals() void gc_mark_globals()
{ {
#if GC_DEBUG_TRACE #if GC_DEBUG_TRACE
//printf("(gc_mark_globals heap: %p size: %d)\n", h, (unsigned int)gc_heap_total_size(h)); //fprintf(stderr, "(gc_mark_globals heap: %p size: %d)\n", h, (unsigned int)gc_heap_total_size(h));
printf("Cyc_global_variables %p\n", Cyc_global_variables); fprintf(stderr, "Cyc_global_variables %p\n", Cyc_global_variables);
#endif #endif
// Mark global variables // Mark global variables
gc_mark_black(Cyc_global_variables); // Internal global used by the runtime gc_mark_black(Cyc_global_variables); // Internal global used by the runtime
@ -2428,7 +2428,7 @@ void gc_mark_globals()
object glo = *(c->pvar); object glo = *(c->pvar);
if (!nullp(glo)) { if (!nullp(glo)) {
#if GC_DEBUG_TRACE #if GC_DEBUG_TRACE
printf("global pvar %p\n", glo); fprintf(stderr, "global pvar %p\n", glo);
#endif #endif
gc_mark_black(glo); // Mark actual object the global points to gc_mark_black(glo); // Mark actual object the global points to
} }
@ -2700,7 +2700,7 @@ void GC(void *data, closure cont, object *args, int num_args)
gc_mut_cooperate((gc_thread_data *)data); gc_mut_cooperate((gc_thread_data *)data);
#if GC_DEBUG_TRACE #if GC_DEBUG_TRACE
printf("done with minor GC\n"); fprintf(stderr, "done with minor GC\n");
#endif #endif
// Let it all go, Neo... // Let it all go, Neo...
longjmp(*(((gc_thread_data *)data)->jmp_start), 1); longjmp(*(((gc_thread_data *)data)->jmp_start), 1);