2001-07-05
2001-07-05 22:23:36 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
7e548ab723b4b404b6dff556319ed31ad1b7c3b4
(11 lines)
(+9/-2)
[
Show
| Annotate
]
Branch: 7.9
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();