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.82 1999/11/27 07:42:56 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.83 1999/11/27 22:23:05 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:2644:    }    a++;    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();    } + /* This error is bogus /Hubbe    fatal("zzap_function_return() called with unexpected value: %d\n",    EXTRACT_UCHAR(a)); -  /* NOT_REACHED */ + */    return NULL;   }      struct pike_string *get_type_of_svalue(struct svalue *s)   {    struct pike_string *ret;    switch(s->type)    {    case T_FUNCTION:    if(s->subtype == FUNCTION_BUILTIN)
pike.git/src/pike_types.c:2746:    struct pike_string *tmp;    int id=FIND_LFUN(s->u.program,LFUN_CREATE);    if(id>=0)    {    a=ID_FROM_INT(s->u.program, id)->type->str;    }else{    a=function_type_string->str;    }    if((tmp=zzap_function_return(a, s->u.program->id)))    return tmp; +  +  a=function_type_string->str; +  if((tmp=zzap_function_return(a, s->u.program->id))) +  return tmp; +  +  fatal("Completely failed to zzap function return!\n");    }       default:    type_stack_mark();    push_type(s->type);    return pop_unfinished_type();    }   }      char *get_name_of_type(int t)