pike.git/ src/ program.c

2000-12-16

2000-12-16 18:59:48 by Martin Stjernholm <mast@lysator.liu.se>

• 07fc46b7d27257c699f86eca8161e1356b126338 (12 lines) (+11/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed debug code which could cause a "gc_internal_program was bogus"
fatal when running with -d.

Rev: src/program.c:1.288

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.287 2000/12/14 07:29:20 mast Exp $"); + RCSID("$Id: program.c,v 1.288 2000/12/16 18:59:48 mast Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
3888:   void gc_free_all_unreferenced_programs(void)   {    struct program *p,*next; + #ifdef PIKE_DEBUG +  int first = 1; + #endif       for(p=gc_internal_program;p;p=next)    {
3916:    /* FIXME: Is there anything else that needs to be freed here? */    gc_free_extra_ref(p);    SET_NEXT_AND_FREE(p, free_program); + #ifdef PIKE_DEBUG +  if (first) gc_internal_program = next; + #endif    }else{    next=p->next;    } -  + #ifdef PIKE_DEBUG +  first = 0; + #endif    }      #ifdef PIKE_DEBUG