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.59 1999/10/29 00:07:58 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.60 1999/10/31 15:33:41 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:1819:    }    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();    } +  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)    {