pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret.c,v 1.411 2008/11/19 21:47:09 mast Exp $ + || $Id: interpret.c,v 1.412 2009/04/01 20:41:32 mast Exp $   */      #include "global.h"   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"
pike.git/src/interpret.c:2233:    Pike_interpreter.catching_eval_jmpbuf = &jmpbuf;    if (LOW_SETJMP (jmpbuf))    {    Pike_interpreter.catching_eval_jmpbuf = NULL;   #ifdef PIKE_DEBUG    pike_trace(3, "- catching_eval_instruction(%p) caught error ==> -3\n",    pc);   #endif    return -3;    }else{ -  int x = eval_instruction(pc); +  int x; +  check_c_stack(8192); +  x = eval_instruction(pc);    Pike_interpreter.catching_eval_jmpbuf = NULL;   #ifdef PIKE_DEBUG    pike_trace(3, "- catching_eval_instruction(%p) ==> %d\n", pc, x);   #endif    return x;    }   }      /*! @decl mixed `()(function fun, mixed ... args)    *! @decl mixed call_function(function fun, mixed ... args)