pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.318 2003/06/30 17:29:40 mast Exp $"); + RCSID("$Id: program.c,v 1.319 2003/09/08 15:27:58 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:3964: Inside #if defined(GC2)
   if (p == gc_mark_program_pos)    gc_mark_program_pos = p->next;    if (p == gc_internal_program)    gc_internal_program = p->next;    else {    DOUBLEUNLINK(first_program, p);    DOUBLELINK(first_program, p); /* Linked in first. */    }       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:4114:   }      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)