pike.git / src / pike_types.cmod

version» Context lines:

pike.git/src/pike_types.cmod:85:   struct pike_type_location *all_pike_type_locations = NULL;   #endif /* DO_PIKE_CLEANUP */      static struct pike_type *a_markers[10], *b_markers[10];      static struct program *implements_a;   static struct program *implements_b;   static int implements_mode;      #ifdef PIKE_DEBUG - void TYPE_STACK_DEBUG(const char *UNUSED(fun)) + void TYPE_STACK_DEBUG(const char *fun)   { - #if 0 -  fprintf(stderr, "%25s(): stack_depth:%ld mark_stack_depth:%ld\n", +  if (l_flag > 2) { +  fprintf(stderr, "%25s(): stack_depth:%-3ld mark_stack_depth:%ld\n",    fun, (long)(Pike_compiler->type_stackp - type_stack), -  (long)(Pike_compiler->pike_type_mark_stackp - pike_type_mark_stack)); - #endif /* 0 */ +  (long)(Pike_compiler->pike_type_mark_stackp - +  pike_type_mark_stack)); +  if (Pike_compiler->type_stackp != type_stack) { +  fprintf(stderr, "%25s : top: ", ""); +  simple_describe_type(peek_type_stack()); +  fprintf(stderr, "\n");    } -  +  } + }   #endif /* PIKE_DEBUG */      static void clear_markers(void)   {    unsigned int e;    for(e=0;e<NELEM(a_markers);e++)    {    if(a_markers[e])    {    free_type(a_markers[e]);