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.144 2000/12/01 20:24:00 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.145 2000/12/05 21:08:20 per 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:143:    tFuncV(tNone,tZero,tOr(tMix,tVoid))));   }      static ptrdiff_t type_length(char *t)   {    char *q=t;   one_more_type:    switch(EXTRACT_UCHAR(t++))    {    default: -  fatal("Pike_error in type string %d.\n",EXTRACT_UCHAR(t-1)); +  fatal("Error in type string %d.\n",EXTRACT_UCHAR(t-1));    /*NOTREACHED*/       break;       case T_SCOPE:    case T_ASSIGN:    t++;    goto one_more_type;       case T_FUNCTION:
pike.git/src/pike_types.c:1945:    case T_FLOAT:    case T_STRING:    case T_TYPE:    case T_PROGRAM:    case T_ZERO:    case T_VOID:    case T_MIXED:    break;       default: -  fatal("Pike_error in type string.\n"); +  fatal("Error in type string.\n");    }    return ret;   }      /*    * Flags used by pike_types_le()    */   #define LE_WEAK_OBJECTS 1 /* Perform weaker checking of objects. */      
pike.git/src/pike_types.c:2462:    case T_FLOAT:    case T_STRING:    case T_TYPE:    case T_PROGRAM:    case T_ZERO:    case T_VOID:    case T_MIXED:    break;       default: -  fatal("Pike_error in type string.\n"); +  fatal("Error in type string.\n");    }    return 1;   }      /*    * Check the function parameters.    * Note: The difference between this function, and pike_types_le()    * is the more lenient check for T_OR, and the handling of T_ARRAY.    */   int strict_check_call(char *fun_type, char *arg_type)
pike.git/src/pike_types.c:3168:    push_type(T_FUNCTION);    return pop_unfinished_type();       case T_ARRAY:    return zzap_function_return(a+1,id);       case T_MIXED:    /* I wonder when this occurrs, but apparently it does... */    return zzap_function_return(tFuncV(tVoid,tOr(tMix,tVoid),tObj), id);    } - /* This Pike_error is bogus /Hubbe + /* This error is bogus /Hubbe    fatal("zzap_function_return() called with unexpected value: %d\n",    EXTRACT_UCHAR(a));   */    return NULL;   }      struct pike_string *get_type_of_svalue(struct svalue *s)   {    struct pike_string *ret;    switch(s->type)