pike.git/src/docode.c:900:
} else if (!level) {
f += inh->identifier_level;
emit0(F_MARK);
code_expression(val, 0, "RHS");
emit_multi_assign(vals, vars, no+1);
emit1(F_CALL_LFUN, f);
emit0(F_POP_VALUE);
}
}
}
- /* FALL_THROUGH */
+ /* FALLTHRU */
case F_EXTERNAL:
/* Check that it is in this context */
if(Pike_compiler ->new_program->id == var->u.integer.a)
{
/* Check that it is a variable */
if(var->u.integer.b != IDREF_MAGIC_THIS &&
IDENTIFIER_IS_VARIABLE( ID_FROM_INT(Pike_compiler->new_program, var->u.integer.b)->identifier_flags))
{
code_expression(val, 0, "RHS");
emit_multi_assign(vals, vars, no+1);
pike.git/src/docode.c:1360:
case F_SOFT_CAST:
/* a = [type]`oper(a,*) */
if( CADR(n)->token == F_APPLY &&
is_apply_constant_function_arg0( CADR(n), CAR(n) ))
return 1;
goto do_not_suboptimize_assign;
case F_APPLY:
/* a = `oper(a,*) */
if (is_apply_constant_function_arg0( CDR(n), CAR(n) ))
return 1;
- /* FALL_THROUGH */
+ /* FALLTHRU */
default:
do_not_suboptimize_assign:
switch(CAR(n)->token)
{
case F_GLOBAL:
if(CAR(n)->u.integer.b) goto normal_assign;
code_expression(CDR(n), 0, "RHS");
emit_assign_global( CAR(n)->u.integer.a, flags & DO_POP );
break;
case F_LOCAL:
pike.git/src/docode.c:1445: Inside #if defined(USE_APPLY_N)
#ifdef USE_APPLY_N
emit2(F_CALL_LFUN_N, f, 1);
#else
emit1(F_CALL_LFUN, f);
#endif
emit0(F_POP_VALUE);
return !(flags & DO_POP);
}
}
}
- /* FALL_THROUGH */
+ /* FALLTHRU */
case F_EXTERNAL:
/* Check that it is in this context */
if(Pike_compiler ->new_program->id == CAR(n)->u.integer.a)
{
/* Check that it is a variable */
if(CAR(n)->u.integer.b != IDREF_MAGIC_THIS &&
IDENTIFIER_IS_VARIABLE( ID_FROM_INT(Pike_compiler->new_program, CAR(n)->u.integer.b)->identifier_flags))
{
code_expression(CDR(n), 0, "RHS");
emit_assign_global(CAR(n)->u.integer.b, flags & DO_POP );
pike.git/src/docode.c:2650:
PROGRAM_USES_PARENT | PROGRAM_NEEDS_PARENT;
x++;
}
#endif
emit2(F_EXTERNAL, SUBTYPEOF(n->u.sval), x);
Pike_compiler->new_program->flags |=
PROGRAM_USES_PARENT | PROGRAM_NEEDS_PARENT;
return 1;
}
}
- /* FALL_THROUGH */
+ /* FALLTHRU */
default:
#ifdef PIKE_DEBUG
if((TYPEOF(n->u.sval) == T_OBJECT) &&
(n->u.sval.u.object->next == n->u.sval.u.object))
Pike_fatal("Internal error: Pointer to parent cannot be a compile time constant!\n");
#endif
tmp1=store_constant(&(n->u.sval),
!(n->tree_info & OPT_EXTERNAL_DEPEND),
n->name);
emit1(F_CONSTANT, (INT32)tmp1);