pike.git/src/program.c:3022: Inside #if defined(PROGRAM_BUILD_DEBUG)
print_svalue (stderr, --Pike_sp);
putc ('\n', stderr);
}
else
fprintf (stderr, "%.*sstarting program %d (pass=%d)\n",
c->compilation_depth, "",
Pike_compiler->new_program->id, Pike_compiler->compiler_pass);
#endif
if (c->compilation_depth >= 1) {
- if(TEST_COMPAT(7,2) || (c->lex.pragmas & ID_SAVE_PARENT))
+ if(c->lex.pragmas & ID_SAVE_PARENT)
{
p->flags |= PROGRAM_USES_PARENT;
- }else if (!(c->lex.pragmas & ID_DONT_SAVE_PARENT)) {
+ } else if (!(c->lex.pragmas & ID_DONT_SAVE_PARENT)) {
struct pike_string *tmp=findstring("__pragma_save_parent__");
if(tmp)
{
struct node_s *n=find_module_identifier(tmp, 0);
if(n)
{
int do_save_parent = !node_is_false(n); /* Default to true. */
free_node(n);
if (do_save_parent) p->flags |= PROGRAM_USES_PARENT;
}
pike.git/src/program.c:5835:
debug_add_to_identifiers(dummy);
if(n != -1)
{
int overridden;
if(IDENTIFIERP(n)->id_flags & ID_FINAL)
my_yyerror("Illegal to redefine 'final' identifier %S", name);
- if(!TEST_COMPAT(7,2) &&
- IDENTIFIER_IS_VARIABLE(ID_FROM_INT(Pike_compiler->new_program,
+ if(IDENTIFIER_IS_VARIABLE(ID_FROM_INT(Pike_compiler->new_program,
n)->identifier_flags))
{
my_yyerror("Illegal to redefine variable %S as constant.", name);
}
/* not inherited */
if(Pike_compiler->new_program->identifier_references[n].inherit_offset == 0)
{
my_yyerror("Identifier %S defined twice.", name);
return n;