pike.git / src / gc.c

version» Context lines:

pike.git/src/gc.c:23:   #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.174 2001/09/06 21:23:00 hubbe Exp $"); + RCSID("$Id: gc.c,v 1.175 2001/09/10 20:47:34 hubbe 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 10000000   #define MULTIPLIER 0.9
pike.git/src/gc.c:809:    (flags | DESCRIBE_SHORT | DESCRIBE_NO_REFS )    & ~ (DESCRIBE_MEM),    0);    }else{    fprintf(stderr,"%*s**There is no parent (any longer?)\n",indent,"");    }    break;       case T_PROGRAM:    { -  struct pike_string *tmp; +  char *tmp;    INT32 line;    int foo=0;       fprintf(stderr,"%*s**Program id: %ld, flags: %x\n",indent,"",    (long)(p->id),    p->flags);       if(p->flags & PROGRAM_HAS_C_METHODS)    {    fprintf(stderr,"%*s**The program was written in C.\n",indent,"");    }    -  tmp = get_program_line(p, &line); -  if(strcmp(tmp->str, "-")) +  tmp = debug_get_program_line(p, &line); +  if(strcmp(tmp, "-"))    {    fprintf(stderr,"%*s**Location: %s:%ld\n", -  indent, "", tmp->str, (long)line); -  free_string(tmp); +  indent, "", tmp, (long)line);    foo=1;    break;    } -  free_string(tmp); +    #if 0    if(!foo && p->num_linenumbers>1 && EXTRACT_UCHAR(p->linenumbers)=='\177')    {    fprintf(stderr,"%*s**From file: %s\n",indent,"",p->linenumbers+1);    foo=1;    }   #endif       if(!foo)    {