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.120 1999/04/15 04:08:14 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.121 1999/04/17 13:48:47 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:1291: Inside #if defined(PIKE_DEBUG)
      if(mark_sp < mark_stack)    fatal("Mark stack underflow.\n");       for(s=evaluator_stack;s<sp;s++) check_svalue(s);       s=evaluator_stack;    for(m=mark_stack;m<mark_sp;m++)    {    if(*m < s) -  fatal("Mark stack failiure.\n"); +  fatal("Mark stack failure.\n");       s=*m;    }       if(s > &(evaluator_stack[stack_size]))    fatal("Mark stack exceeds svalue stack\n");       for(f=fp;f;f=f->next)    {    if(f->locals)