pike.git/
src/
gc.c
Branch:
Tag:
Non-build tags
All tags
No tags
1996-11-21
1996-11-21 23:49:41 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
890e5bea6499b5b8b25757ad340d95cd357cccfa (
17
lines) (+
12
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
recursive calls to do_gc() prevented
Rev: src/gc.c:1.4
201:
void do_gc() {
+
static int in_gc = 0;
double tmp; INT32 tmp2; struct marker_chunk *m;
-
+
if(in_gc) return;
+
in_gc=1;
+
+
remove_callback(gc_evaluator_callback);
+
gc_evaluator_callback=0;
+
tmp2=num_objects; #ifdef DEBUG
286:
#endif #ifndef ALWAYS_GC
-
if(d
_
flag < 3 && gc
_
evaluator_callback
)
-
{
-
remove_callback
(
gc
_
evaluator_callback);
-
gc
_
evaluator
_
callback=0
;
-
}
+
ADD
_
GC
_
CALLBACK(
)
;
+
#else
+
if
(
d
_
flag
>
3)
ADD
_
GC
_
CALLBCK()
;
#endif
-
+
in_gc=0;
} #endif