pike.git / src / pike_types.cmod

version» Context lines:

pike.git/src/pike_types.cmod:117:    free_type(b_markers[e]);    b_markers[e]=0;    }    }   }      void compiler_discard_top_type(void)   {    TYPE_STACK_DEBUG("discard_top_type");   #ifdef PIKE_DEBUG -  if (!peek_stack_mark()) +  if (pike_type_mark_stack == Pike_compiler->pike_type_mark_stackp) { +  /* Type mark stack empty. */ +  if (type_stack == Pike_compiler->type_stackp)    Pike_fatal("Type stack underflow.\n"); -  +  } else if (!peek_stack_mark()) +  Pike_fatal("Type stack underflow.\n");   #endif    free_type(*(Pike_compiler->type_stackp--));   }      void compiler_discard_type (void)   {    ptrdiff_t len = pop_stack_mark();    TYPE_STACK_DEBUG("discard_type");    for (;len > 0; len--) {    /* Get rid of excess junk. */