core: Pointer Cells: copy back. WIPPERDEWIP
* src/gc.c (gc_init)[POINTER_CELLS]: Do not use double sized arena. (gc_cellcpy): New function. * src/gc.c (gc_flip): Use it, do not flip.
This commit is contained in:
parent
41b6cc0368
commit
b08dab15ac
139
src/gc.c
139
src/gc.c
|
@ -107,15 +107,16 @@ gc_init ()
|
||||||
MAX_STRING = atoi (p);
|
MAX_STRING = atoi (p);
|
||||||
|
|
||||||
long arena_bytes = (ARENA_SIZE + JAM_SIZE) * sizeof (struct scm);
|
long arena_bytes = (ARENA_SIZE + JAM_SIZE) * sizeof (struct scm);
|
||||||
#if !POINTER_CELLS
|
#if !POINTER_CELLS || GC_NOFLIP
|
||||||
long alloc_bytes = arena_bytes + (STACK_SIZE * sizeof (SCM));
|
long alloc_bytes = arena_bytes + (STACK_SIZE * sizeof (struct scm));
|
||||||
#else
|
#else
|
||||||
long alloc_bytes = (arena_bytes * 2) + (STACK_SIZE * sizeof (struct scm*));
|
long alloc_bytes = (arena_bytes * 2) + (STACK_SIZE * sizeof (struct scm*));
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
g_arena = malloc (alloc_bytes);
|
g_arena = malloc (alloc_bytes);
|
||||||
g_cells = g_arena;
|
g_cells = g_arena;
|
||||||
|
|
||||||
#if !POINTER_CELLS
|
#if !POINTER_CELLS || GC_NOFLIP
|
||||||
g_stack_array = g_arena + arena_bytes;
|
g_stack_array = g_arena + arena_bytes;
|
||||||
#else
|
#else
|
||||||
g_stack_array = g_arena + (arena_bytes * 2);
|
g_stack_array = g_arena + (arena_bytes * 2);
|
||||||
|
@ -327,11 +328,16 @@ gc_init_news ()
|
||||||
g_news = g_cells + g_free;
|
g_news = g_cells + g_free;
|
||||||
SCM ncell_arena = cell_arena;
|
SCM ncell_arena = cell_arena;
|
||||||
#else
|
#else
|
||||||
|
|
||||||
|
#if GC_NOFLIP
|
||||||
|
g_news = g_free;
|
||||||
|
#else
|
||||||
char* p = g_cells - M2_CELL_SIZE;
|
char* p = g_cells - M2_CELL_SIZE;
|
||||||
if (p == g_arena)
|
if (p == g_arena)
|
||||||
g_news = g_free;
|
g_news = g_free;
|
||||||
else
|
else
|
||||||
g_news = g_arena;
|
g_news = g_arena;
|
||||||
|
#endif
|
||||||
|
|
||||||
SCM ncell_arena = g_news;
|
SCM ncell_arena = g_news;
|
||||||
#endif
|
#endif
|
||||||
|
@ -395,14 +401,126 @@ gc_up_arena ()
|
||||||
g_cells = g_cells + M2_CELL_SIZE;
|
g_cells = g_cells + M2_CELL_SIZE;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void
|
||||||
|
gc_cellcpy (struct scm *dest, struct scm *src, size_t n)
|
||||||
|
{
|
||||||
|
void *p = src;
|
||||||
|
void *q = dest;
|
||||||
|
long dist = p - q;
|
||||||
|
while (n != 0)
|
||||||
|
{
|
||||||
|
long t = src->type;
|
||||||
|
long a = src->car;
|
||||||
|
long d = src->cdr;
|
||||||
|
dest->type = t;
|
||||||
|
if (t == TBROKEN_HEART)
|
||||||
|
{
|
||||||
|
dest->type = 0;
|
||||||
|
a = 0;
|
||||||
|
d = 0;
|
||||||
|
#if 0
|
||||||
|
assert_msg (0, "gc_cellcpy: broken heart");
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
if (t == TMACRO
|
||||||
|
|| t == TPAIR
|
||||||
|
|| t == TREF
|
||||||
|
|| t == TVARIABLE)
|
||||||
|
dest->car = a - dist;
|
||||||
|
else
|
||||||
|
dest->car = a;
|
||||||
|
if (t == TBYTES
|
||||||
|
|| t == TCLOSURE
|
||||||
|
|| t == TCONTINUATION
|
||||||
|
|| t == TKEYWORD
|
||||||
|
|| t == TMACRO
|
||||||
|
|| t == TPAIR
|
||||||
|
|| t == TPORT
|
||||||
|
|| t == TSPECIAL
|
||||||
|
|| t == TSTRING
|
||||||
|
|| t == TSTRUCT
|
||||||
|
|| t == TSYMBOL
|
||||||
|
|| t == TVALUES
|
||||||
|
|| t == TVECTOR)
|
||||||
|
dest->cdr = d - dist;
|
||||||
|
else
|
||||||
|
dest->cdr = d;
|
||||||
|
if (t == TBYTES)
|
||||||
|
{
|
||||||
|
#if GC_TEST
|
||||||
|
eputs ("copying bytes[");
|
||||||
|
eputs (ntoab (&src->cdr, 16, 0));
|
||||||
|
eputs (", ");
|
||||||
|
eputs (ntoab (a, 10, 0));
|
||||||
|
eputs ("]: ");
|
||||||
|
eputs (&src->cdr);
|
||||||
|
eputs ("\n to [");
|
||||||
|
eputs (ntoab (&dest->cdr, 16, 0));
|
||||||
|
#endif
|
||||||
|
memcpy (&dest->cdr, &src->cdr, a);
|
||||||
|
#if GC_TEST
|
||||||
|
eputs ("]: ");
|
||||||
|
eputs (&dest->cdr);
|
||||||
|
eputs ("\n");
|
||||||
|
#endif
|
||||||
|
int i = bytes_cells (a);
|
||||||
|
n = n - i;
|
||||||
|
int c = i * M2_CELL_SIZE;
|
||||||
|
dest = dest + c;
|
||||||
|
src = src + c;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
n = n - 1;
|
||||||
|
dest = dest + M2_CELL_SIZE;
|
||||||
|
src = src + M2_CELL_SIZE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
void
|
void
|
||||||
gc_flip ()
|
gc_flip ()
|
||||||
{
|
{
|
||||||
#if POINTER_CELLS
|
#if POINTER_CELLS
|
||||||
|
if (g_free - g_news > JAM_SIZE)
|
||||||
|
JAM_SIZE = (g_free - g_news) + ((g_free - g_news) / 2);
|
||||||
|
|
||||||
|
#if GC_NOFLIP
|
||||||
|
cell_arena = g_cells - M2_CELL_SIZE; /* FIXME? */
|
||||||
|
gc_cellcpy (g_cells, g_news, (g_free - g_news) / M2_CELL_SIZE);
|
||||||
|
|
||||||
|
void *p = g_news;
|
||||||
|
void *q = g_cells;
|
||||||
|
long dist = p - q;
|
||||||
|
|
||||||
|
long i;
|
||||||
|
i = g_free;
|
||||||
|
g_free = i - dist;
|
||||||
|
#if !GC_TEST
|
||||||
|
i = g_symbols;
|
||||||
|
g_symbols = i - dist;
|
||||||
|
i = g_macros;
|
||||||
|
g_macros = i - dist;
|
||||||
|
i = g_ports;
|
||||||
|
g_ports = i - dist;
|
||||||
|
i = M0;
|
||||||
|
M0 = i - dist;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
for (i = g_stack; i < STACK_SIZE; i = i + 1)
|
||||||
|
{
|
||||||
|
long s = g_stack_array[i];
|
||||||
|
/* copy_stack (i, gc_copy (g_stack_array[i])); */
|
||||||
|
g_stack_array[i] = s - dist;
|
||||||
|
}
|
||||||
|
|
||||||
|
#else
|
||||||
|
|
||||||
g_cells = g_news;
|
g_cells = g_news;
|
||||||
cell_arena = g_news - M2_CELL_SIZE;
|
cell_arena = g_news - M2_CELL_SIZE;
|
||||||
cell_zero = cell_arena + M2_CELL_SIZE;
|
cell_zero = cell_arena + M2_CELL_SIZE;
|
||||||
cell_nil = cell_zero + M2_CELL_SIZE;
|
cell_nil = cell_zero + M2_CELL_SIZE;
|
||||||
|
#endif
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
if (g_debug > 2)
|
if (g_debug > 2)
|
||||||
|
@ -488,7 +606,14 @@ gc_loop (SCM scan)
|
||||||
{
|
{
|
||||||
long t = NTYPE (scan);
|
long t = NTYPE (scan);
|
||||||
if (t == TBROKEN_HEART)
|
if (t == TBROKEN_HEART)
|
||||||
assert_msg (0, "broken heart");
|
{
|
||||||
|
NTYPE (scan) = 0;
|
||||||
|
NCAR (scan) = 0;
|
||||||
|
NCDR (scan) = 0;
|
||||||
|
#if 0
|
||||||
|
assert_msg (0, "gc_loop: broken heart");
|
||||||
|
#endif
|
||||||
|
}
|
||||||
/* *INDENT-OFF* */
|
/* *INDENT-OFF* */
|
||||||
if (t == TMACRO
|
if (t == TMACRO
|
||||||
|| t == TPAIR
|
|| t == TPAIR
|
||||||
|
@ -582,8 +707,9 @@ gc_ ()
|
||||||
for (s = cell_nil; s < g_symbol_max; s = s + M2_CELL_SIZE)
|
for (s = cell_nil; s < g_symbol_max; s = s + M2_CELL_SIZE)
|
||||||
gc_copy (s);
|
gc_copy (s);
|
||||||
|
|
||||||
#if POINTER_CELLS
|
#if POINTER_CELLS && !GC_NOFLIP
|
||||||
cell_nil = new_cell_nil;
|
cell_nil = new_cell_nil;
|
||||||
|
cell_arena = g_news - M2_CELL_SIZE; /* for debugging */
|
||||||
|
|
||||||
#if GC_TEST
|
#if GC_TEST
|
||||||
cell_zero = cell_nil - M2_CELL_SIZE;
|
cell_zero = cell_nil - M2_CELL_SIZE;
|
||||||
|
@ -599,13 +725,16 @@ gc_ ()
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#if !GC_TEST
|
||||||
g_symbols = gc_copy (g_symbols);
|
g_symbols = gc_copy (g_symbols);
|
||||||
g_macros = gc_copy (g_macros);
|
g_macros = gc_copy (g_macros);
|
||||||
g_ports = gc_copy (g_ports);
|
g_ports = gc_copy (g_ports);
|
||||||
M0 = gc_copy (M0);
|
M0 = gc_copy (M0);
|
||||||
|
|
||||||
long i;
|
long i;
|
||||||
for (i = g_stack; i < STACK_SIZE; i = i + 1)
|
for (i = g_stack; i < STACK_SIZE; i = i + 1)
|
||||||
copy_stack (i, gc_copy (g_stack_array[i]));
|
copy_stack (i, gc_copy (g_stack_array[i]));
|
||||||
|
#endif
|
||||||
|
|
||||||
gc_loop (new_cell_nil);
|
gc_loop (new_cell_nil);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue