pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*-   || 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.cmod,v 1.173 2004/11/12 12:57:38 grubba Exp $ + || $Id: builtin.cmod,v 1.174 2004/12/19 16:38:40 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"
pike.git/src/builtin.cmod:973:    if(func->u.object->prog == pike_trampoline_program)    {    struct object *o;    o=((struct pike_trampoline *)func->u.object->storage)->frame->current_object;    add_ref(o);    pop_n_elems(args);    push_object(o);    return;    }    func->type=T_OBJECT; +  func->subtype = 0;    return;          default:    SIMPLE_BAD_ARG_ERROR("function_object",1,"function");    }    pop_n_elems(args);    push_int(0);   }