pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:6746: Inside #if defined(PIKE_DEBUG)
   if (l_flag>2) {    fprintf(stderr, "%*sChecking argument type ", indent*2+2, "");    simple_describe_type(arg_type);    fprintf(stderr, " against function type ");    simple_describe_type(fun_type);    fprintf(stderr, ".\n");    }   #endif /* PIKE_DEBUG */    /* No need to perform advanced checking in the trivial case... */    if (arg_type != (tmp2 = fun_type->car)) { -  if ((flags & CALL_7_6) && (arg_type == void_type_string)) { -  /* Compat with Pike 7.6 and earlier. */ -  arg_type = zero_type_string; -  } -  +     if (!((flags & CALL_INVERTED_TYPES)?    low_pike_types_le(tmp2, arg_type, 0,    LE_A_B_SWAPPED|LE_EXPLICIT_ZERO):    low_pike_types_le(arg_type, tmp2, 0, 0)) &&    ((flags & CALL_STRICT) ||    !low_match_types(arg_type, tmp2, NO_SHORTCUTS))) {    /* No match. */   #ifdef PIKE_DEBUG    if (l_flag>2) {    fprintf(stderr, "%*sNo match.\n", indent*2+2, "");
pike.git/src/pike_types.c:6954:    flags & ~CALL_WEAK_VOID, sval))) {    free_type(tmp);    return NULL;    }    res = and_pike_types(tmp, tmp2);    free_type(tmp);    free_type(tmp2);    return res;       case T_VOID: -  if (!(flags & CALL_7_6)) { +     if ((flags & (CALL_WEAK_VOID|CALL_STRICT)) == CALL_STRICT) {    return NULL;    }    /* Promote void arguments to zero. */    arg_type = zero_type_string; -  } +     break;    }       if (!(tmp = lower_new_check_call(fun_type, arg_type,    flags & ~CALL_WEAK_VOID, sval   #ifdef PIKE_TYPE_DEBUG    , 0   #endif    ))) {    return NULL;
pike.git/src/pike_types.c:7551: Inside #if defined(PIKE_DEBUG)
   simple_describe_type(args->type);    if (sval) {    fprintf(stderr, "\n Constant of type %s",    get_name_of_type(TYPEOF(*sval)));    }    fprintf(stderr, "\n fun_type: ");    simple_describe_type(fun_type);    }   #endif /* PIKE_DEBUG */    -  if (TEST_COMPAT(7, 6)) { -  /* Attempt to reduce strictness to Pike 7.6 levels. */ -  flags |= CALL_7_6; -  } -  +     if (args->token == F_PUSH_ARRAY) {   #ifdef PIKE_DEBUG    if (l_flag>2) {    fprintf(stderr, "\n The argument is a splice operator.\n");    }   #endif /* PIKE_DEBUG */       res = check_splice_call(fun_name, fun_type, *argno,    args->type, sval, flags);