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.450 2002/10/12 11:57:09 grubba Exp $ + || $Id: program.c,v 1.451 2002/10/30 16:02:00 nilsson Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.450 2002/10/12 11:57:09 grubba Exp $"); + RCSID("$Id: program.c,v 1.451 2002/10/30 16:02:00 nilsson 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:1023:    s.subtype = NUMBER_UNDEFINED;    s.u.integer = 0;    return mkconstantsvaluenode(&s);    }       return resolve_identifier(ident);   }      struct node_s *resolve_identifier(struct pike_string *ident)   { -  struct node_s *ret; -  +     if(resolve_cache)    {    struct svalue *tmp=low_mapping_string_lookup(resolve_cache,ident);    if(tmp)    {    if(!(SAFE_IS_ZERO(tmp) && tmp->subtype==1))    return mkconstantsvaluenode(tmp);       return 0;    }
pike.git/src/program.c:1046:       if(!Pike_compiler->num_parse_error && get_master())    {    DECLARE_CYCLIC();    node *ret=0;    if(BEGIN_CYCLIC(ident, lex.current_file))    {    my_yyerror("Recursive module dependency in %s.",    ident->str);    }else{ -  int i; +     SET_CYCLIC_RET(1);       ref_push_string(ident);    ref_push_string(lex.current_file);    if (error_handler) {    ref_push_object(error_handler);    } else {    push_int(0);    }   
pike.git/src/program.c:1439:    for(i=1;i<NUM_LFUNS;i++) {    p->lfuns[i] = low_find_lfun(p, i);    }       p->flags |= PROGRAM_FIXED;       if(Pike_compiler->check_final)    {    for(i=0;i<(int)p->num_identifier_references;i++)    { -  struct identifier *id; +     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)    e=really_low_find_shared_string_identifier(name, p,    SEE_STATIC|SEE_PRIVATE);