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.485 2004/03/13 13:22:39 grubba Exp $ + || $Id: program.c,v 1.486 2004/03/18 19:31:38 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.485 2004/03/13 13:22:39 grubba Exp $"); + RCSID("$Id: program.c,v 1.486 2004/03/18 19:31:38 grubba 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:1400:   {    INT32 i,e,t;    struct program *p=Pike_compiler->new_program;       if(p->flags & PROGRAM_FIXED) return;   #ifdef PIKE_DEBUG    if(p->flags & PROGRAM_OPTIMIZED)    Pike_fatal("Cannot fixate optimized program\n");   #endif    +  /* FIXME: This segment of code should probably be enabled, but it +  * breaks the testsuite without further backports from Pike 7.5. +  * /grubba 2004-03-18 +  */ + #if 0    /* Fixup identifier overrides. */    for (i = 0; i < p->num_identifier_references; i++) {    struct reference *ref = p->identifier_references + i;    if (ref->id_flags & ID_HIDDEN) continue;    if (ref->inherit_offset != 0) continue;    override_identifier (ref, ID_FROM_PTR (p, ref)->name);    } -  + #endif /* 0 */       /* Ok, sort for binsearch */    for(e=i=0;i<(int)p->num_identifier_references;i++)    {    struct reference *funp;    struct identifier *fun;    funp=p->identifier_references+i;    if(funp->id_flags & (ID_HIDDEN|ID_STATIC)) continue;    fun=ID_FROM_PTR(p, funp);    if(funp->id_flags & ID_INHERITED)