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.757 2008/12/15 21:46:09 mast Exp $ + || $Id: program.c,v 1.758 2009/03/04 14:17:10 grubba Exp $   */      #include "global.h"   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"
pike.git/src/program.c:1263:    if(Pike_compiler->new_program->flags & PROGRAM_OPTIMIZED) \    Pike_fatal("Tried to reallocate fixed program.\n")      #else   #define CHECK_FOO(NUMTYPE,TYPE,NAME)   #endif      #ifndef RELOCATE_program   #define RELOCATE_program(ORIG, NEW)   #endif /* !RELOCATE_program */ + #define RELOCATE_identifier_cache(ORIG,NEW)   #define RELOCATE_linenumbers(ORIG,NEW)   #define RELOCATE_identifier_index(ORIG,NEW)   #define RELOCATE_variable_index(ORIG,NEW)   #define RELOCATE_identifier_references(ORIG,NEW)   #define RELOCATE_strings(ORIG,NEW)   #define RELOCATE_inherits(ORIG,NEW)   #define RELOCATE_identifiers(ORIG,NEW)   #define RELOCATE_constants(ORIG,NEW)   #define RELOCATE_relocations(ORIG,NEW)   
pike.git/src/program.c:10762:    if (b->identifier_references[e].id_flags & (ID_PROTECTED|ID_HIDDEN))    continue; /* Skip protected & hidden */    bid = ID_FROM_INT(b,e);    if(s == bid->name) continue; /* Skip __INIT */    i = find_shared_string_identifier(bid->name,a);    if (i == -1) {    INT32 bid_line = b_line;    struct pike_string *bid_file;    if (b->identifier_references[e].id_flags & (ID_OPTIONAL))    continue; /* It's ok... */ -  bid_file = get_identifier_line(b, i, &bid_line); +  bid_file = get_identifier_line(b, e, &bid_line);    if (!bid_file) bid_file = b_file;    yytype_report(severity_level,    bid_file, bid_line, bid->type,    a_file, a_line, NULL,    0, "Missing identifier %S.", bid->name);    continue;    }       if (!pike_types_le(bid->type, ID_FROM_INT(a, i)->type)) {    INT32 aid_line = a_line;