pike.git / src / builtin_functions.c

version» Context lines:

pike.git/src/builtin_functions.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: builtin_functions.c,v 1.457 2003/01/11 03:22:16 mast Exp $ + || $Id: builtin_functions.c,v 1.458 2003/01/11 17:06:26 grubba Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.457 2003/01/11 03:22:16 mast Exp $"); + RCSID("$Id: builtin_functions.c,v 1.458 2003/01/11 17:06:26 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"   #include "constants.h"   #include "mapping.h"   #include "stralloc.h"
pike.git/src/builtin_functions.c:2308:    if(!t || match_types(t, object_type_string))    {    /* Skip any name-nodes. */    while(t && t->type == PIKE_T_NAME) {    t = t->cdr;    }       /* FIXME: Ought to handle or-nodes here. */    if(t && (t->type == T_OBJECT))    { -  struct program *p = id_to_program((ptrdiff_t)t->cdr); +  struct program *p = id_to_program(((char *)t->cdr)-(char *)0);    if(p)    {    int fun=FIND_LFUN(p, lfun);       /* FIXME: function type string should really be compiled from    * the arguments so that or:ed types are handled correctly    */    if(fun!=-1 &&    (t2 = check_call(function_type_string, ID_FROM_INT(p, fun)->type,    0)))