pike.git/ src/ gc.c

2000-08-10

2000-08-10 09:23:35 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 9c815b7a57b89155773cb072167922e0b914e997 (13 lines) (+8/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed a few warnings.

Rev: src/block_alloc.h:1.23
Rev: src/gc.c:1.113
Rev: src/pike_macros.h:1.20
Rev: src/stuff.h:1.9

29:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.112 2000/08/10 08:33:00 grubba Exp $"); + RCSID("$Id: gc.c,v 1.113 2000/08/10 09:23:35 grubba Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is
348:       case T_PROGRAM:    { -  long e; +  ptrdiff_t e;    char *ptr=(char *)location;    p=(struct program *)memblock;   
362:    ptr >= (char *)p->inherits &&    ptr<(char*)(p->inherits+p->num_inherits))    { -  e=((long)ptr - (long)(p->inherits)) / sizeof(struct inherit); +  e=((ptrdiff_t)ptr - (ptrdiff_t)(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");
373:    ptr >= (char *)p->constants &&    ptr<(char*)(p->constants+p->num_constants))    { -  e=((long)ptr - (long)(p->constants)) / sizeof(struct program_constant); +  e=((ptrdiff_t)ptr - (ptrdiff_t)(p->constants)) / +  sizeof(struct program_constant);    fprintf(stderr,"%*s **In p->constants[%ld] (%s)\n",indent,"",    e,    p->constants[e].name ? p->constants[e].name->str : "no name");
385:    ptr >= (char *)p->identifiers &&    ptr<(char*)(p->identifiers+p->num_identifiers))    { -  e=((long)ptr - (long)(p->identifiers)) / sizeof(struct identifier); +  e=((ptrdiff_t)ptr - (ptrdiff_t)(p->identifiers)) / +  sizeof(struct identifier);    fprintf(stderr,"%*s **In p->identifiers[%ld] (%s)\n",indent,"",    e,    p->identifiers[e].name ? p->identifiers[e].name->str : "no name");