pike.git/
src/
gc.c
Branch:
Tag:
Non-build tags
All tags
No tags
2000-08-10
2000-08-10 13:34:36 by Henrik Grubbström (Grubba) <grubba@grubba.org>
f00c36d38b69bf4945c7e22fe54c9303a5376430 (
17
lines) (+
9
/-
8
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed a few warnings.
Rev: src/encode.c:1.65
Rev: src/gc.c:1.115
29:
#include "block_alloc.h"
-
RCSID("$Id: gc.c,v 1.
114
2000/08/10
09
:
25
:
44
grubba Exp $");
+
RCSID("$Id: gc.c,v 1.
115
2000/08/10
13
:
34
:
36
grubba Exp $");
/* Run garbage collect approximately every time * 20 percent of all arrays, objects and programs is
318:
indent,"", get_name_of_type(type), memblock,
-
(
(
long)location - (
long
)memblock));
+
(long)
((char *)
location - (
char *
)memblock));
else fprintf(stderr,"%*s-> at location %p in unknown memblock (mmaped?)\n", indent,"",
360:
if(p->inherits && ptr >= (char *)p->inherits &&
-
ptr<(char*)(p->inherits+p->num_inherits))
+
ptr
<
(char*)(p->inherits+p->num_inherits))
{
-
e=((
ptrdiff_t
)ptr - (
ptrdiff_t
)(p->inherits)) / sizeof(struct inherit);
+
e=((
char *
)ptr - (
char *
)(p->inherits)) / sizeof(struct inherit);
fprintf(stderr,"%*s **In p->inherits[%ld] (%s)\n",indent,"", e, p->inherits[e].name ? p->inherits[e].name->str : "no name");
371:
if(p->constants && ptr >= (char *)p->constants &&
-
ptr<(char*)(p->constants+p->num_constants))
+
ptr
<
(char*)(p->constants+p->num_constants))
{
-
e=((
ptrdiff_t
)ptr - (
ptrdiff_t
)(p->constants)) /
+
e
=
((
char *
)ptr - (
char *
)(p->constants)) /
sizeof(struct program_constant); fprintf(stderr,"%*s **In p->constants[%ld] (%s)\n",indent,"", e,
384:
if(p->identifiers && ptr >= (char *)p->identifiers &&
-
ptr<(char*)(p->identifiers+p->num_identifiers))
+
ptr
<
(char*)(p->identifiers+p->num_identifiers))
{
-
e=((
ptrdiff_t
)ptr - (
ptrdiff_t
)(p->identifiers)) /
+
e
=
((
char *
)ptr - (
char *
)(p->identifiers)) /
sizeof(struct identifier); fprintf(stderr,"%*s **In p->identifiers[%ld] (%s)\n",indent,"", e,