pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.133 1999/12/13 21:48:24 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.134 2000/01/07 04:33:55 mast Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:918:    init_buf();    sprintf(buf,"%lx->",(long)o);    my_strcat(buf);    my_strcat(function->name->str);    do_trace_call(args);    }       fp = new_frame;       if(function->func.offset == -1) -  PIKE_ERROR(function->name->str, "Calling undefined function.\n", -  sp, args); +  generic_error(NULL, sp, args, +  "Calling undefined function.\n");       tailrecurse=-1;      #ifdef PROFILING   #ifdef HAVE_GETHRTIME    self_time_base=function->total_time;   #endif   #endif       switch(function->identifier_flags & (IDENTIFIER_FUNCTION | IDENTIFIER_CONSTANT))