pike.git/
src/
gc.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-09-06
2001-09-06 16:53:44 by Martin Stjernholm <mast@lysator.liu.se>
a7078c1298c3fad3ec1b414ff48208ad05ca088e (
18
lines) (+
17
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Added debug_gc_xmark_svalues2.
Rev: src/gc.c:1.173
Rev: src/gc.h:1.86
30:
#include "block_alloc.h"
-
RCSID("$Id: gc.c,v 1.
172
2001/
08
/
30
23
:
21
:
54
mast Exp $");
+
RCSID("$Id: gc.c,v 1.
173
2001/
09
/
06
16
:
53
:
43
mast Exp $");
/* Run garbage collect approximately every time * 20 percent of all arrays, objects and programs is
633:
describe_something(found_in, found_in_type, 2, 0, DESCRIBE_MEM, 0); } }
+
else
+
fputc('\n', stderr);
fprintf(stderr,"----------end------------\n"); }
648:
found_in=0; }
+
void debug_gc_xmark_svalues2(struct svalue *s, ptrdiff_t num,
+
int data_type, void *data, char *fromwhere)
+
{
+
char *old_found_where = found_where;
+
if (fromwhere) found_where = fromwhere;
+
found_in=data;
+
found_in_type=data_type;
+
gc_xmark_svalues(s,num);
+
found_where=old_found_where;
+
found_in_type=PIKE_T_UNKNOWN;
+
found_in=0;
+
}
+
void debug_gc_check_svalues2(struct svalue *s, ptrdiff_t num, int data_type, void *data, char *fromwhere) {