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.136 2003/05/15 15:33:30 mast Exp $ + || $Id: builtin.cmod,v 1.137 2003/05/31 01:14:27 mast Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "opcodes.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"
pike.git/src/builtin.cmod:956:    if(!(p=func->u.program->parent)) break;    add_ref(p);    free_program(func->u.program);    func->u.program=p;    return;    }       case PIKE_T_FUNCTION:    {    struct program *p; -  if(func->subtype == FUNCTION_BUILTIN) break; +  if(func->subtype == FUNCTION_BUILTIN) +  p = func->u.efun->prog; +  else    p = func->u.object->prog;    if(p == pike_trampoline_program)    {    p = ((struct pike_trampoline *)func->u.object->storage)->    frame->current_object->prog;    }    if (p) {    ref_push_program(p);    stack_pop_n_elems_keep_top(args);    return;