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.21 1997/04/16 03:09:15 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.21.2.1 1997/06/25 22:46:42 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:1157:    ret=int_type_string;    }else{    ret=mixed_type_string;    }    reference_shared_string(ret);    return ret;       case T_PROGRAM:    {    char *a; -  int id=s->u.program->lfuns[LFUN_CREATE]; +  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(EXTRACT_UCHAR(a)==T_FUNCTION)    {    type_stack_mark();    push_type_int(s->u.program->id);