pike.git / src / gc.c

version» Context lines:

pike.git/src/gc.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: gc.c,v 1.198 2003/09/09 14:30:17 mast Exp $ + || $Id: gc.c,v 1.199 2003/09/09 15:00:58 mast Exp $   */      #include "global.h"      struct callback *gc_evaluator_callback=0;      #include "array.h"   #include "multiset.h"   #include "mapping.h"   #include "object.h"
pike.git/src/gc.c:24:   #include "constants.h"   #include "interpret.h"   #include "bignum.h"      #include "gc.h"   #include "main.h"   #include <math.h>      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.198 2003/09/09 14:30:17 mast Exp $"); + RCSID("$Id: gc.c,v 1.199 2003/09/09 15:00:58 mast Exp $");      /* Run garbage collect approximately every time    * 20 percent of all arrays, objects and programs is    * garbage.    */      #define GC_CONST 20   #define MIN_ALLOC_THRESHOLD 1000   #define MAX_ALLOC_THRESHOLD 2000000000   #define MULTIPLIER 0.9
pike.git/src/gc.c:892: Inside #if defined(PIKE_DEBUG)
   fprintf (stderr, " off: %4"PRINTPTRDIFFT"d value: ",    inh->storage_offset + id->func.offset);       ptr = PIKE_OBJ_STORAGE ((struct object *) a) +    inh->storage_offset + id->func.offset;    if (id->run_time_type == T_MIXED)    push_svalue ((struct svalue *) ptr);    else    assign_from_short_svalue_no_free (    Pike_sp++, (union anything *) ptr, id->run_time_type); -  print_svalue (stderr, Pike_sp - 1); +  print_svalue_compact (stderr, Pike_sp - 1);    pop_stack();       fputc ('\n', stderr);    var_count++;    }    }       if (!var_count)    fprintf (stderr, "%*s** (none)\n", indent, "");   
pike.git/src/gc.c:1047: Inside #if defined(PIKE_DEBUG)
      if (id->identifier_flags & IDENTIFIER_C_FUNCTION)    fprintf (stderr, " addr: %p", id->func.c_fun);    else if (IDENTIFIER_IS_VARIABLE (id->identifier_flags))    fprintf (stderr, " rtt: %s off: %"PRINTPTRDIFFT"d",    get_name_of_type (id->run_time_type), id->func.offset);    else if (IDENTIFIER_IS_PIKE_FUNCTION (id->identifier_flags))    fprintf (stderr, " pc: %"PRINTPTRDIFFT"d", id->func.offset);    else if (IDENTIFIER_IS_CONSTANT (id->identifier_flags)) {    fputs (" value: ", stderr); -  print_svalue (stderr, &id_inh->prog->constants[id->func.offset].sval); +  print_svalue_compact (stderr, &id_inh->prog->constants[id->func.offset].sval);    }       fputc ('\n', stderr);    id_count++;    }       if (!id_count)    fprintf (stderr, "%*s** (none)\n", indent, "");       if(flags & DESCRIBE_MEM)