pike.git / src / program.c

version» Context lines:

pike.git/src/program.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: program.c,v 1.477 2003/08/20 19:39:25 mast Exp $ + || $Id: program.c,v 1.478 2003/09/08 15:28:14 mast Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.477 2003/08/20 19:39:25 mast Exp $"); + RCSID("$Id: program.c,v 1.478 2003/09/08 15:28:14 mast Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:6321: Inside #if defined(GC2)
   gc_internal_program = p->next;    else {    DOUBLEUNLINK(first_program, p);    DOUBLELINK(first_program, p); /* Linked in first. */    }       if(p->parent)    gc_mark_program_as_referenced(p->parent);       for(e=0;e<p->num_constants;e++) -  gc_mark_svalues(& p->constants[e].sval, 1); +  debug_gc_mark_svalues(& p->constants[e].sval, 1, T_PROGRAM, p);       for(e=0;e<p->num_inherits;e++)    {    if(p->inherits[e].parent)    gc_mark_object_as_referenced(p->inherits[e].parent);       if(e && p->inherits[e].prog)    gc_mark_program_as_referenced(p->inherits[e].prog);    }   
pike.git/src/program.c:6470: Inside #if defined(GC2)
  }      void gc_zap_ext_weak_refs_in_programs(void)   {    gc_mark_program_pos = first_program;    while (gc_mark_program_pos != gc_internal_program && gc_ext_weak_refs) {    struct program *p = gc_mark_program_pos;    gc_mark_program_pos = p->next;    gc_mark_program_as_referenced(p);    } -  discard_queue(&gc_mark_queue); +  gc_mark_discard_queue();   }      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)