add gc stress test
This commit is contained in:
parent
35bbd66812
commit
a0a8a94abc
|
@ -19,6 +19,7 @@
|
||||||
/* enable all debug flags */
|
/* enable all debug flags */
|
||||||
#define DEBUG 1
|
#define DEBUG 1
|
||||||
|
|
||||||
|
#define GC_STRESS 1
|
||||||
|
|
||||||
#if DEBUG
|
#if DEBUG
|
||||||
# define GC_DEBUG 1
|
# define GC_DEBUG 1
|
||||||
|
|
4
src/gc.c
4
src/gc.c
|
@ -398,6 +398,10 @@ pic_obj_alloc(pic_state *pic, size_t size, enum pic_tt tt)
|
||||||
{
|
{
|
||||||
struct pic_object *obj;
|
struct pic_object *obj;
|
||||||
|
|
||||||
|
#if GC_STRESS
|
||||||
|
pic_gc_run(pic);
|
||||||
|
#endif
|
||||||
|
|
||||||
obj = (struct pic_object *)gc_alloc(pic, size);
|
obj = (struct pic_object *)gc_alloc(pic, size);
|
||||||
if (obj == NULL) {
|
if (obj == NULL) {
|
||||||
pic_gc_run(pic);
|
pic_gc_run(pic);
|
||||||
|
|
Loading…
Reference in New Issue