pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
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) {