Branch: Tag:

2001-09-10

2001-09-10 20:47:35 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

try to avoid core dump in dmalloc

Rev: src/gc.c:1.175
Rev: src/program.c:1.370
Rev: src/program.h:1.144

30:      #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
816:       case T_PROGRAM:    { -  struct pike_string *tmp; +  char *tmp;    INT32 line;    int foo=0;   
829:    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')    {