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.42 1998/04/28 07:47:17 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.43 1998/05/20 02:14:29 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:294:   }      struct pike_string *debug_pop_type(void)   {    struct pike_string *s;    s=pop_unfinished_type();    type_stack_mark();    return s;   }    + struct pike_string *debug_compiler_pop_type(void) + { +  extern int num_parse_error; +  if(num_parse_error) +  { +  /* This could be fixed to check if the type +  * is correct and then return it, I just didn't feel +  * like writing the checking code today. / Hubbe +  */ +  pop_stack_mark(); +  type_stack_mark(); +  reference_shared_string(mixed_type_string); +  return mixed_type_string; +  }else{ +  struct pike_string *s; +  s=pop_unfinished_type(); +  type_stack_mark(); +  return s; +  } + } +    static void internal_parse_typeA(char **_s)   {    char buf[80];    unsigned int len;    unsigned char **s = (unsigned char **)_s;       while(ISSPACE(**s)) ++*s;       len=0;    for(len=0;isidchar(EXTRACT_UCHAR(s[0]+len));len++)