pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:125:   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 *fun) + void TYPE_STACK_DEBUG(const char *UNUSED(fun))   {   #if 0    fprintf(stderr, "%25s(): stack_depth:%ld 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 */   }   #endif /* PIKE_DEBUG */      static void clear_markers(void)
pike.git/src/pike_types.c:731: Inside #if SIZEOF_INT_TYPE > 4
  #if SIZEOF_INT_TYPE > 4   /* a bit kludgy: should maybe really allow 64 bit INT_TYPE */   /* see also extract_type_int */    if (min<MIN_INT32) min=MIN_INT32;    else if (min>MAX_INT32) min=MAX_INT32;    if (max<MIN_INT32) max=MIN_INT32;    else if (max>MAX_INT32) max=MAX_INT32;   #endif      #ifdef PIKE_DEBUG /* FIXME: Kludge to support 2^32-1 */ -  if ((min>0 && max>0 || min<0 && max<0) && min > max) +  if (((min>0 && max>0) || (min<0 && max<0)) && min > max)    Pike_fatal("push_int_type(): Bad integer range:"    " min:%"PRINTPIKEINT"d, max:%"PRINTPIKEINT"d.\n",    min, max);   #endif /* PIKE_DEBUG */       if (!min && !max) {    /* Special case... */    push_type(T_ZERO);    } else {    *(++Pike_compiler->type_stackp) = mk_type(T_INT,
pike.git/src/pike_types.c:9057: Inside #if defined (PIKE_DEBUG) || defined (DO_PIKE_CLEANUP)
   case PIKE_T_TYPE:    case PIKE_T_PROGRAM:    if (t->car) gc_mark_type_as_referenced(t->car);    break;    }    } GC_LEAVE;    }   }      #ifdef PIKE_DEBUG - static void gc_mark_external_types(struct callback *cb, void *a, void *b) + static void gc_mark_external_types(struct callback *UNUSED(cb), +  void *UNUSED(a), void *UNUSED(b))   {    unsigned int e;    for (e = 0; e < NELEM (a_markers); e++) {    if (a_markers[e])    gc_mark_external (a_markers[e], " in a_markers");    if (b_markers[e])    gc_mark_external (b_markers[e], " in b_markers");    }       if (string0_type_string)