pike.git / src / program.c

version» Context lines:

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;