pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:2044:   struct node_s *program_magic_identifier (struct program_state *state,    int state_depth, int inherit_num,    struct pike_string *ident,    int colon_colon_ref)   {   #if 0    fprintf (stderr, "magic_identifier (state, %d, %d, %s, %d)\n",    state_depth, inherit_num, ident->str, colon_colon_ref);   #endif    -  if (!inherit_num && TEST_COMPAT(7,6)) { -  /* Pike 7.6 and earlier couldn't refer to the current inherit. */ -  inherit_num = -1; -  } -  -  if ((inherit_num == -1) || (!TEST_COMPAT(7,6) && (inherit_num >= 0))) { +  /* FIXME: Is this expression always true? */ +  if ((inherit_num == -1) || (inherit_num >= 0)) {    if (ident == this_string) {    /* Handle this. */    return mkthisnode(state->new_program, inherit_num);    }       /* Handle this_program */    if (ident == this_program_string) {    node *n;    if (!state_depth && (inherit_num == -1) && colon_colon_ref &&    !TEST_COMPAT(7,8) &&
pike.git/src/program.c:5124:    }   }      int call_handle_inherit(struct pike_string *s)   {    struct compilation *c = THIS_COMPILATION;       CHECK_COMPILER();       ref_push_string(s); -  if (!TEST_COMPAT(7,6)) { -  /* In Pike 7.7 and later filenames belonging to Pike are assumed -  * to be encoded according to UTF-8. -  */ +     f_string_to_utf8(1); -  } +        if (safe_apply_current2(PC_HANDLE_INHERIT_FUN_NUM, 1, NULL))    if (TYPEOF(Pike_sp[-1]) != T_INT)    return 1;    else {    my_yyerror("Couldn't find program %S", s);    }    else {    handle_compile_exception ("Error finding program");    }
pike.git/src/program.c:7062:    if (TYPEOF(*foo) == T_OBJECT) {    /* Special case objects -- We don't want strange LFUN effects... */    if ((foo->u.object == c->sval.u.object) &&    (SUBTYPEOF(*foo) == SUBTYPEOF(c->sval))) {    UNSETJMP(jmp);    return e;    }    } else if (TYPEOF(*foo) == T_INT) {    if (foo->u.integer == c->sval.u.integer) {    /* Make sure UNDEFINED is kept (but not in compat mode). */ -  if (foo->u.integer || (SUBTYPEOF(*foo) == SUBTYPEOF(c->sval)) || -  TEST_COMPAT(7, 6)) { +  if (foo->u.integer || (SUBTYPEOF(*foo) == SUBTYPEOF(c->sval))){    UNSETJMP(jmp);    return e;    }    }    } else if(equal ? is_equal(& c->sval,foo) : is_eq(& c->sval,foo)) {    UNSETJMP(jmp);    return e;    }    }    }