pike.git / src / pike_types.cmod

version» Context lines:

pike.git/src/pike_types.cmod:151:    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) + static void low_discard_type (void)   {    ptrdiff_t len = pop_stack_mark();    TYPE_STACK_DEBUG("discard_type");    for (;len > 0; len--) {    /* Get rid of excess junk. */    compiler_discard_top_type();    }   }    -  + void compiler_discard_type (void) + { +  low_discard_type(); +  type_stack_mark(); + } +    static struct pike_type *low_pop_type(void)   {    TYPE_STACK_DEBUG("low_pop_type");       return *(Pike_compiler->type_stackp--);   }   #define low_pop_type() ((struct pike_type *)debug_malloc_pass(low_pop_type()))      struct pike_type *debug_pop_type(void)   {
pike.git/src/pike_types.cmod:185:   }      struct pike_type *debug_compiler_pop_type(void)   {    TYPE_STACK_DEBUG("compiler_pop_type");    if(Pike_compiler->num_parse_error)    {    struct pike_type *res;    compiler_discard_type();    add_ref(res = mixed_type_string); -  type_stack_mark(); +     return res;    }else{    return debug_pop_type();    }   }      PMOD_EXPORT char *get_name_of_type(TYPE_T t)   {    switch(t & PIKE_T_MASK)    {