artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Add gc-debug for stack array.

Browse source 
* src/gc.c (gc_debug): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-19 21:23:17 +02:00
parent 5826f75c7b
commit e032f6c70f
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 74 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

74
src/gc.c
View file

@ -232,3 +232,77 @@ gc ()
eputs ("\n");
}
}
SCM
gc_debug ()
{
r0 = MAKE_NUMBER (5);
r1 = MAKE_NUMBER (4);
r2 = MAKE_NUMBER (3);
r3 = MAKE_NUMBER (2);
gc_push_frame ();
for (long i=g_stack; i<STACK_SIZE; i++)
{
long c = g_stack_array[i];
eputs ("stack["); eputs (itoa (i-STACK_SIZE)); eputs ("]: "); eputs (itoa (c));
int t = TYPE (c);
eputs (" ");
eputs (itoa (t));
if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
{
eputs (" ");
write_error_ (c);
}
eputs ("\n");
}
gc_ ();
eputs ("\n");
for (long i=g_stack; i<STACK_SIZE; i++)
{
long c = g_stack_array[i];
eputs ("stack["); eputs (itoa (i-STACK_SIZE)); eputs ("]: "); eputs (itoa (c));
int t = TYPE (c);
eputs (" ");
eputs (itoa (t));
if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
{
eputs (" ");
write_error_ (c);
}
if (t == TBROKEN_HEART)
{
eputs (" ");
c = g_cells[c].car;
eputs ("=> "); eputs (itoa (c));
int t = TYPE (c);
eputs (" ");
eputs (itoa (t));
if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
{
eputs (" ");
write_error_ (c);
}
// if (t == TBROKEN_HEART)
// {
// eputs (" ");
// c = g_cells[c].car;
// eputs ("=> "); eputs (itoa (c));
// int t = TYPE (c);
// eputs (" ");
// eputs (itoa (t));
// if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
// {
// eputs (" ");
// write_error_ (c);
// }
// }
}
eputs ("\n");
}
gc_pop_frame ();
}