pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:6325:    * Returns continuation function type on success.    */   struct pike_type *check_call_svalue(struct pike_type *fun_type,    INT32 flags,    struct svalue *sval)   {    struct pike_type *res = NULL;    struct pike_type *tmp;    struct pike_type *tmp2;    INT32 array_cnt = 0; -  int indent = 2; +       #ifdef PIKE_DEBUG -  if (l_flag>2) { -  fprintf(stderr, "%*scheck_call_svalue(", indent*2, ""); +  if (Pike_interpreter.trace_level > 2) { +  fprintf(stderr, " check_call_svalue(");    simple_describe_type(fun_type); -  fprintf(stderr, ", 0x%08x, %p)...\n", flags, sval); +  fprintf(stderr, ", 0x%08x, ", flags); +  debug_describe_svalue(sval); +  fprintf(stderr, ")...\n");    }   #endif /* PIKE_DEBUG */       loop:    /* Count the number of array levels. */    while(fun_type->type == PIKE_T_ARRAY) {    array_cnt++;    fun_type = fun_type->car;    }   
pike.git/src/pike_types.c:6473:    }    res = NULL;    break;    default:    /* Not a callable. */    break;    }       if (!array_cnt || !res) {   #ifdef PIKE_DEBUG -  if (l_flag>2) { +  if (Pike_interpreter.trace_level > 2) {    if (res) { -  fprintf(stderr, "%*s==> ", indent*2, ""); +  fprintf(stderr, " ==> ");    simple_describe_type(res);    } else { -  fprintf(stderr, "%*s==> NULL", indent*2, ""); +  fprintf(stderr, " ==> NULL");    }    fprintf(stderr, "\n");    }   #endif /* PIKE_DEBUG */    return res;    }       type_stack_mark();    push_finished_type(res);    free_type(res);    while(array_cnt--) {    push_type(PIKE_T_ARRAY);    }    res = pop_type();      #ifdef PIKE_DEBUG -  if (l_flag>2) { -  fprintf(stderr, "%*s==> ", indent*2, ""); +  if (Pike_interpreter.trace_level > 2) { +  fprintf(stderr, " ==> ");    simple_describe_type(res);    fprintf(stderr, "\n");    }   #endif /* PIKE_DEBUG */       return res;   }      /* Check whether arg_type may be used as the type of the first argument    * in a call to fun_type.