pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.213 2003/03/29 13:47:52 marcus Exp $ + || $Id: pike_types.c,v 1.214 2003/04/02 19:22:43 mast Exp $   */      #include "global.h" - RCSID("$Id: pike_types.c,v 1.213 2003/03/29 13:47:52 marcus Exp $"); + RCSID("$Id: pike_types.c,v 1.214 2003/04/02 19:22:43 mast Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:600:    TYPE_STACK_DEBUG("push_type_name");   }      void debug_push_finished_type(struct pike_type *t)   {    copy_pike_type(*(++Pike_compiler->type_stackp), t);       TYPE_STACK_DEBUG("push_finished_type");   }    - void debug_push_type(unsigned INT16 type) + void debug_push_type(unsigned int type)   {    /* fprintf(stderr, "push_type(%d)\n", type); */       switch(type) {    case T_FUNCTION:    case T_MANY:    case T_TUPLE:    case T_MAPPING:    case T_OR:    case T_AND:
pike.git/src/pike_types.c:670:    case '9':    /* Marker. */    *(++Pike_compiler->type_stackp) = mk_type(type, NULL, NULL, PT_SET_MARKER);    break;    }       TYPE_STACK_DEBUG("push_type");   }      /* Pop one level of types. This is the inverse of push_type() */ - void debug_pop_type_stack(unsigned INT16 expected) + void debug_pop_type_stack(unsigned int expected)   {    struct pike_type *top;    if(Pike_compiler->type_stackp<type_stack)    Pike_fatal("Type stack underflow\n");       top = *(Pike_compiler->type_stackp);    /* Special case... */    if (top->type == T_MIXED) return; /* Probably due to an earlier error */       Pike_compiler->type_stackp--;
pike.git/src/pike_types.c:747:    pop_type_stack(expected);    break;    default:    Pike_error("pop_type_stack(): Unhandled node type: %d\n", top->type);    }    free_type(top);       TYPE_STACK_DEBUG("pop_type_stack");   }    - void debug_push_reverse_type(unsigned INT16 type) + void debug_push_reverse_type(unsigned int type)   {    /* fprintf(stderr, "push_reverse_type(%d)\n", type); */       switch(type) {    case T_FUNCTION:    case T_MANY:    case T_TUPLE:    case T_MAPPING:    case T_OR:    case T_AND: