Branch: Tag:

2001-07-05

2001-07-05 22:23:36 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

call gc() until no more objects are freed..

Rev: src/main.c:1.133

5:   \*/   /**/   #include "global.h" - RCSID("$Id: main.c,v 1.132 2001/07/02 00:46:28 mast Exp $"); + RCSID("$Id: main.c,v 1.133 2001/07/05 22:23:36 hubbe Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"
821: Inside #if defined(DO_PIKE_CLEANUP)
   exit_pike_security();    free_svalue(& throw_value);    throw_value.type=T_INT; +  { +  while(1) +  int tmp=num_objects;    do_gc(); -  +  if(num_objects >= tmp) break; +  } +  }       cleanup_gc();