pike.git / src / gc.c

version» Context lines:

pike.git/src/gc.c:18:   #include "error.h"   #include "pike_memory.h"   #include "pike_macros.h"   #include "pike_types.h"   #include "time_stuff.h"      #include "gc.h"   #include "main.h"   #include <math.h>    - RCSID("$Id: gc.c,v 1.39 1998/11/22 11:02:48 hubbe Exp $"); + RCSID("$Id: gc.c,v 1.40 1998/12/16 07:49:35 hubbe Exp $");      /* Run garbage collect approximate every time we have    * 20 percent of all arrays, objects and programs is    * garbage.    */      #define GC_CONST 20   #define MIN_ALLOC_THRESHOLD 1000   #define MAX_ALLOC_THRESHOLD 10000000   #define MULTIPLIER 0.9
pike.git/src/gc.c:383: Inside #if defined(PIKE_DEBUG)
   }    }    fprintf(stderr,"*******************\n");   }      void describe(void *x)   {    describe_something(x, attempt_to_identify(x),1);   }    + void debug_describe_svalue(struct svalue *s) + { +  fprintf(stderr,"Svalue at %p is:\n",s); +  switch(s->type) +  { +  case T_INT: +  fprintf(stderr," %ld\n",(long)s->u.integer); +  break; +  +  case T_FLOAT: +  fprintf(stderr," %f\n",s->u.float_number); +  break; +  } +  describe_something(s->u.refs,s->type,1); + } +    #endif      INT32 gc_check(void *a)   {   #ifdef PIKE_DEBUG    if(check_for)    {    if(check_for == a)    {    gdb_gc_stop_here(a);