gc: flip twice and dump.
This commit is contained in:
parent
2dd537314c
commit
b1cdcd2930
7
src/gc.c
7
src/gc.c
|
@ -749,6 +749,8 @@ gc_ ()
|
|||
SCM
|
||||
gc ()
|
||||
{
|
||||
if (getenv ("MES_DUMP") != 0)
|
||||
gc_dump_arena (g_cells, gc_free ());
|
||||
if (g_debug > 5)
|
||||
{
|
||||
eputs ("symbols: ");
|
||||
|
@ -760,6 +762,9 @@ gc ()
|
|||
}
|
||||
gc_push_frame ();
|
||||
gc_ ();
|
||||
#if POINTER_CELLS && !GC_NOFLIP
|
||||
gc_ ();
|
||||
#endif
|
||||
gc_pop_frame ();
|
||||
if (g_debug > 5)
|
||||
{
|
||||
|
@ -770,6 +775,8 @@ gc ()
|
|||
write_error_ (R0);
|
||||
eputs ("\n");
|
||||
}
|
||||
if (getenv ("MES_DUMP") != 0)
|
||||
gc_dump_arena (g_cells, gc_free ());
|
||||
return cell_unspecified;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue