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.114 1999/02/01 06:13:13 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.115 1999/02/28 17:07:42 grubba 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:847:    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); +  PIKE_ERROR(function->name->str, "Calling undefined function.\n", +  sp, args);       tailrecurse=-1;      #ifdef PROFILING   #ifdef HAVE_GETHRTIME    self_time_base=function->total_time;   #endif   #endif       switch(function->identifier_flags & (IDENTIFIER_FUNCTION | IDENTIFIER_CONSTANT))