pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.240 2007/01/08 09:24:12 grubba Exp $ + || $Id: pike_types.c,v 1.241 2007/09/03 11:54:03 grubba Exp $   */      #include "global.h" - RCSID("$Id: pike_types.c,v 1.240 2007/01/08 09:24:12 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.241 2007/09/03 11:54:03 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:4255:    if(s->subtype == FUNCTION_BUILTIN)    {    copy_pike_type(ret, s->u.efun->type);    }else{    struct program *p;       p=s->u.object->prog;    if(!p)    {    copy_pike_type(ret, zero_type_string); -  }else{ +  } else if (p == pike_trampoline_program) { +  struct pike_trampoline *t = +  (struct pike_trampoline *) s->u.object->storage; +  if ((p = t->frame->current_object->prog)) { +  copy_pike_type(ret, ID_FROM_INT(p, t->func)->type); +  } else { +  copy_pike_type(ret, zero_type_string); +  } +  } else {    copy_pike_type(ret, ID_FROM_INT(p,s->subtype)->type);    }    }    return ret;       case T_ARRAY:    {    struct pike_type *arg_type;    struct array *a = s->u.array;   #if 0