pike.git/
src/
gc.c
Branch:
Tag:
Non-build tags
All tags
No tags
2000-03-07
2000-03-07 23:23:23 by Henrik Grubbström (Grubba) <grubba@grubba.org>
3845457d8df93516b5f7062f15d47961855631a1 (
20
lines) (+
16
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
describe_something() is now a bit more paranoid about odd pointers.
Rev: src/gc.c:1.51
29:
#include "block_alloc.h"
-
RCSID("$Id: gc.c,v 1.
50
2000/03/07
21
:
32
:
17
hubbe
Exp $");
+
RCSID("$Id: gc.c,v 1.
51
2000/03/07
23
:
23
:
23
grubba
Exp $");
/* Run garbage collect approximate every time we have * 20 percent of all arrays, objects and programs is
355:
return; }
+
#ifdef DEBUG_MALLOC
+
if (((int)a) == 0x55555555) {
+
fprintf(stderr,"**Location: %p Type: %s Zapped pointer\n",a,
+
get_name_of_type(t));
+
} else
+
#endif /* DEBUG_MALLOC */
+
if (((int)a) & 3) {
+
fprintf(stderr,"**Location: %p Type: %s Missaligned address\n",a,
+
get_name_of_type(t));
+
} else {
fprintf(stderr,"**Location: %p Type: %s Refs: %d\n",a, get_name_of_type(t), *(INT32 *)a);
-
+
}
low_describe_something(a,t,dm);