Branch: Tag:

2000-04-15

2000-04-15 01:04:01 by Martin Stjernholm <mast@lysator.liu.se>

Compatibility fix in debug code.

Rev: src/gc.c:1.64

29:      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.63 2000/04/14 17:56:20 mast Exp $"); + RCSID("$Id: gc.c,v 1.64 2000/04/15 01:04:01 mast Exp $");      /* Run garbage collect approximate every time we have    * 20 percent of all arrays, objects and programs is
800:    INT32 tmp2;    double multiplier;   #ifdef PIKE_DEBUG + #ifdef HAVE_GETHRTIME    hrtime_t gcstarttime;   #endif -  + #endif       if(Pike_in_gc) return;    Pike_in_gc=1;
817: Inside #if defined(PIKE_DEBUG)
  #ifdef PIKE_DEBUG    if(t_flag) {    fprintf(stderr,"Garbage collecting ... "); + #ifdef HAVE_GETHRTIME    gcstarttime = gethrtime(); -  + #endif    }    if(num_objects < 0)    fatal("Panic, less than zero objects!\n");
917: Inside #if defined(PIKE_DEBUG)
   if(t_flag)    fprintf(stderr,"done (freed %ld of %ld objects), %ld ms.\n",    (long)(tmp2-num_objects),(long)tmp2, -  (long)((gethrtime() - gcstarttime)/1000000)); + #ifdef HAVE_GETHRTIME +  (long)((gethrtime() - gcstarttime)/1000000) + #else +  0l   #endif -  +  ); + #endif      #ifdef ALWAYS_GC    ADD_GC_CALLBACK();