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.556 2004/03/10 18:08:12 grubba Exp $ + || $Id: program.c,v 1.557 2004/03/13 14:45:06 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.556 2004/03/10 18:08:12 grubba Exp $"); + RCSID("$Id: program.c,v 1.557 2004/03/13 14:45:06 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:1939:    p);          p->flags |= PROGRAM_FIXED;       /* Yes, it is supposed to start at 1 /Hubbe */    for(i=1;i<NUM_LFUNS;i++) {    p->lfuns[i] = low_find_lfun(p, i);    }    -  if(Pike_compiler->check_final) +  if(Pike_compiler->flags & COMPILATION_CHECK_FINAL)    {    for(i=0;i<(int)p->num_identifier_references;i++)    {    if((p->identifier_references[i].id_flags & (ID_NOMASK|ID_HIDDEN)) ==    ID_NOMASK)    {    struct pike_string *name=ID_FROM_INT(p, i)->name;       e=find_shared_string_identifier(name,p);    if(e == -1)
pike.git/src/program.c:3805:    struct reference fun;    struct pike_string *name;       fun = p->identifier_references[e]; /* Make a copy */       name=ID_FROM_PTR(p,&fun)->name;    fun.inherit_offset += inherit_offset;       if (fun.id_flags & ID_NOMASK)    { -  Pike_compiler->check_final++; +  Pike_compiler->flags |= COMPILATION_CHECK_FINAL;    }       if(fun.id_flags & ID_PRIVATE) fun.id_flags|=ID_HIDDEN;       if (fun.id_flags & ID_PUBLIC)    fun.id_flags |= flags & ~ID_PRIVATE;    else    fun.id_flags |= flags;       fun.id_flags |= ID_INHERITED;
pike.git/src/program.c:5916:    yyparse(); /* Parse da program */ \    if(save_sp != Pike_sp) \    Pike_fatal("yyparse() left %"PRINTPTRDIFFT"d droppings on the stack!\n", \    Pike_sp - save_sp); \   }while(0)   #else   #define do_yyparse() yyparse()   #endif      struct Supporter *current_supporter=0; - int force_resolve = 0; +          #ifdef PIKE_DEBUG      struct supporter_marker   {    struct supporter_marker *next;    void *data;    int level, verified;   };
pike.git/src/program.c:6126:   int report_compiler_dependency(struct program *p)   {    int ret=0;    struct Supporter *c,*cc;       if (p == Pike_compiler->new_program) {    /* Depends on self... */    return 0;    }    verify_supporters(); -  if (force_resolve) +  if (Pike_compiler->flags & COMPILATION_FORCE_RESOLVE)    return 0;    for(cc=current_supporter;cc;cc=cc->previous)    {    if(cc->prog &&    !(cc->prog->flags & PROGRAM_PASS_1_DONE))    {    c=cc->depends_on;    if(!c) c=cc->previous;    for(;c;c=c->previous)    {