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