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.230 2003/09/09 14:30:17 mast Exp $ + || $Id: gc.c,v 1.231 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:26:   #include "interpret.h"   #include "bignum.h"   #include "pike_threadlib.h"      #include "gc.h"   #include "main.h"   #include <math.h>      #include "block_alloc.h"    - RCSID("$Id: gc.c,v 1.230 2003/09/09 14:30:17 mast Exp $"); + RCSID("$Id: gc.c,v 1.231 2003/09/09 15:00:58 mast Exp $");      int gc_enabled = 1;      /* These defaults are only guesses and hardly tested at all. Please improve. */   double gc_garbage_ratio_low = 0.2;   double gc_time_ratio = 0.05;   double gc_garbage_ratio_high = 0.5;      /* This slowness factor approximately corresponds to the average over    * the last ten gc rounds. (0.9 == 1 - 1/10) */
pike.git/src/gc.c:810: 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:965: 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)