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.48 1998/11/06 03:08:01 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.49 1998/11/22 11:03:10 hubbe 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:79:    a_markers[e]=0;    }    if(b_markers[e])    {    free_string(b_markers[e]);    b_markers[e]=0;    }    }   }    - #ifdef DEBUG + #ifdef PIKE_DEBUG   static void CHECK_TYPE(struct pike_string *s)   {    if(debug_findstring(s) != s)    fatal("Type string not shared.\n");       if(type_length(s->str) != s->len)    {    stupid_describe_type(s->str,s->len);    fatal("Length of type is wrong. (should be %d, is %d)\n",type_length(s->str),s->len);    }
pike.git/src/pike_types.c:194:   void pop_type_stack(void)   {    type_stackp--;    if(type_stackp<type_stack)    fatal("Type stack underflow\n");   }      void type_stack_pop_to_mark(void)   {    type_stackp-=pop_stack_mark(); - #ifdef DEBUG + #ifdef PIKE_DEBUG    if(type_stackp<type_stack)    fatal("Type stack underflow\n");   #endif   }      void type_stack_reverse(void)   {    INT32 a;    a=pop_stack_mark();    reverse((char *)(type_stackp-a),a,1);
pike.git/src/pike_types.c:604:   }      /* This function is used when adding simul efuns so that    * the types for the functions can be easily stored in strings.    * It takes a string on the exact same format as Pike and returns a type    * struct.    */   struct pike_string *parse_type(char *s)   {    struct pike_string *ret; - #ifdef DEBUG + #ifdef PIKE_DEBUG    unsigned char *ts=type_stackp;    unsigned char **ptms=pike_type_mark_stackp;   #endif    type_stack_mark();    internal_parse_type(&s);       if( *s )    fatal("Extra junk at end of type definition.\n");       ret=pop_unfinished_type();    - #ifdef DEBUG + #ifdef PIKE_DEBUG    if(ts!=type_stackp || ptms!=pike_type_mark_stackp)    fatal("Type stack whacked in parse_type.\n");   #endif       return ret;   }    - #ifdef DEBUG + #ifdef PIKE_DEBUG   void stupid_describe_type(char *a,INT32 len)   {    INT32 e;    for(e=0;e<len;e++)    {    if(e) printf(" ");    switch(EXTRACT_UCHAR(a+e))    {    case '0': case '1': case '2': case '3': case '4':    case '5': case '6': case '7': case '8': case '9':