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.122 2000/02/15 22:06:19 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.123 2000/02/29 22:57:46 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:3156:    push_type(T_MANY);    type_stack_mark();    push_unfinished_type(a);    type_stack_reverse();    type_stack_reverse();    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 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)   {
pike.git/src/pike_types.c:3297:    return tmp;    }       id=FIND_LFUN(s->u.program,LFUN_CREATE);    if(id>=0)    {    a=ID_FROM_INT(s->u.program, id)->type->str;    if((tmp=zzap_function_return(a, s->u.program->id)))    return tmp;    tmp=describe_type(ID_FROM_INT(s->u.program, id)->type); +  /* yywarning("Failed to zzap function return for type: %s.", tmp->str);*/    free_string(tmp);    }       a=tFunc(tVoid,tObj);    if((tmp=zzap_function_return(a, s->u.program->id)))    return tmp;       fatal("Completely failed to zzap function return!\n");    }