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.314 2002/07/23 13:00:56 mast Exp $"); + RCSID("$Id: program.c,v 1.315 2003/01/28 12:05:55 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:849:       Pike_compiler->num_used_modules=0;       if(p && (p->flags & PROGRAM_FINISHED))    {    yyerror("Pass2: Program already done");    p=0;    }       Pike_compiler->malloc_size_program = ALLOC_STRUCT(program); - #ifdef PIKE_DEBUG +     Pike_compiler->fake_object=alloc_object(); -  + #ifdef PIKE_DEBUG    Pike_compiler->fake_object->storage=(char *)xalloc(256 * sizeof(struct svalue));    /* Stipple to find illegal accesses */    MEMSET(Pike_compiler->fake_object->storage,0x55,256*sizeof(struct svalue));   #else -  Pike_compiler->fake_object=ALLOC_STRUCT(object); +     Pike_compiler->fake_object->storage=0;   #endif    /* Can't use GC_ALLOC on fake objects, but still it's good to know    * that they never take over a stale gc marker. */    if (Pike_in_gc) remove_marker(Pike_compiler->fake_object);       Pike_compiler->fake_object->next=Pike_compiler->fake_object;    Pike_compiler->fake_object->prev=Pike_compiler->fake_object;    Pike_compiler->fake_object->refs=1;    Pike_compiler->fake_object->parent=0;