pike.git/
src/
gc.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-06-28
2001-06-28 19:25:38 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
56252fd708685da1dcc47524bc7c8c25d94d0293 (
14
lines) (+
13
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
more debug
Rev: src/gc.c:1.157
30:
#include "block_alloc.h"
-
RCSID("$Id: gc.c,v 1.
156
2001/06/28
10
:
24
:
21
hubbe Exp $");
+
RCSID("$Id: gc.c,v 1.
157
2001/06/28
19
:
25
:
38
hubbe Exp $");
/* Run garbage collect approximately every time * 20 percent of all arrays, objects and programs is
534:
void debug_gc_fatal(void *a, int flags, const char *fmt, ...) {
+
struct marker *m;
int orig_gc_pass = Pike_in_gc; va_list args;
546:
* checks in describe(). */ Pike_in_gc = 0; describe(a);
+
if (flags & 1) locate_references(a);
-
+
+
m=find_marker(a);
+
if(m)
+
{
+
fprintf(stderr,"** Describing marker for this thing.\n");
+
describe(m);
+
}else{
+
fprintf(stderr,"** No marker found for this thing.\n");
+
}
Pike_in_gc = orig_gc_pass; if (flags & 2) fatal_after_gc = "Fatal in garbage collector.\n";