pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.156 2001/03/03 21:12:24 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.157 2001/03/03 21:18:19 grubba 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:26:   #include "bignum.h"   #include "main.h"   #include "opcodes.h"      #ifdef PIKE_DEBUG   #define PIKE_TYPE_DEBUG   #endif /* PIKE_DEBUG */      int max_correct_args;    + #ifdef PIKE_DEBUG + void TYPE_STACK_DEBUG(const char *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 internal_parse_type(char **s);   static ptrdiff_t type_length(char *t);   static int low_pike_types_le(char *a, char *b,    int array_cnt, unsigned int flags);   static int low_check_indexing(char *type, char *index_type, node *n);      #define TWOT(X,Y) (((X) << 8)+(Y))   #define EXTRACT_TWOT(X,Y) TWOT(EXTRACT_UCHAR(X), EXTRACT_UCHAR(Y))      /*