test/gc: Add three extra gc's.

* src/test/gc.c (test_gc): Add three extra gc's.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-17 20:46:47 +02:00
parent 0d6971b560
commit 543419134f
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -79,6 +79,24 @@ test_gc (char const *name)
print_arena (gc_free () - 1);
gc_stats_ ("1");
eputs ("\n");
gc_ ();
VALUE (cell_zero) = 'd';
print_arena (gc_free () - 1);
gc_stats_ ("2");
eputs ("\n");
gc_ ();
VALUE (cell_zero) = 'e';
print_arena (gc_free () - 1);
gc_stats_ ("3");
eputs ("\n");
gc_ ();
VALUE (cell_zero) = 'f';
print_arena (gc_free () - 1);
gc_stats_ ("3");
eputs ("\n");
}
void