pike.git / src / docode.c

version» Context lines:

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);