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.170 2000/09/08 16:17:56 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.171 2000/09/25 23:41:33 hubbe 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:895: Inside #if defined(PIKE_DEBUG) && defined(_REENTRANT)
   fatal("thread_for_id() (or Pike_interpreter.thread_id) failed in mega_apply! "    "%p != %p\n", thread_for_id(self), Pike_interpreter.thread_id);    }   #endif       switch(type)    {    case APPLY_STACK:    apply_stack:    if(!args) -  PIKE_ERROR("`()", "Too few arguments.\n", Pike_sp, 0); +  PIKE_ERROR("`()", "Too few arguments (apply stack).\n", Pike_sp, 0);    args--;    if(Pike_sp-save_sp-args > (args<<2) + 32)    {    /* The test above assures these two areas    * are not overlapping    */    assign_svalues(save_sp, Pike_sp-args-1, args+1, BIT_MIXED);    pop_n_elems(Pike_sp-save_sp-args-1);    }    arg1=(void *)(Pike_sp-args-1);