pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*- -  * $Id: builtin.cmod,v 1.78 2002/02/21 05:45:19 per-bash Exp $ +  * $Id: builtin.cmod,v 1.79 2002/02/28 10:58:57 grubba 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:649:    *! @seealso    *! @[function_object()]    */   PIKEFUN string function_name(program|function func)    efun;    optflags OPT_TRY_OPTIMIZE;   {    switch(func->type)    {    default: -  if(!func->u.object->prog) +     bad_arg_error("function_name", Pike_sp-args, args, 1,    "function|program", Pike_sp-args,    "Bad argument.\n");    return; /* NOTREACHED */       case PIKE_T_PROGRAM:    {    struct program *p=func->u.program;       if(p->parent)