pike.git / src / docode.c

version» Context lines:

pike.git/src/docode.c:2030:    PUSH_CLEANUP_FRAME(do_pop_mark, 0);    do_docode(CDR(n),0);    tmp1=store_constant(& CAR(n)->u.sval,    !(CAR(n)->tree_info & OPT_EXTERNAL_DEPEND),    CAR(n)->name);    emit1(F_CALL_BUILTIN, (INT32)tmp1);    POP_AND_DONT_CLEANUP;    }    }    if (!n->type) fix_type_field(n); -  return !pike_types_le(n->type, void_type_string); +  return !pike_types_le(n->type, void_type_string, 0, 0);    }else{    if(CAR(n)->u.sval.u.object == Pike_compiler->fake_object)    return do_lfun_call(SUBTYPEOF(CAR(n)->u.sval), CDR(n));    }    }   #ifdef USE_APPLY_N    if( args <= 1 )   #endif    {    emit0(F_MARK);
pike.git/src/docode.c:2314:    int i;       for (i = 0; i < 2; i++) {    node *case_val = i == 0 ? CAR(n) : CDR(n);       if (case_val) {    if(!is_const(case_val))    yyerror("Case label isn't constant.");       if (case_val->type) { -  if (!pike_types_le(case_val->type, current_switch.type)) { +  if (!pike_types_le(case_val->type, current_switch.type, 0, 0)) {    if (!match_types(case_val->type, current_switch.type)) {    yytype_error("Type mismatch in case.",    current_switch.type, case_val->type, 0);    } else if (c->lex.pragmas & ID_STRICT_TYPES) {    yytype_error("Type mismatch in case.",    current_switch.type, case_val->type, YYTE_IS_WARNING);    }    }    }