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.407 2008/08/05 13:20:10 mast Exp $ + || $Id: interpret.c,v 1.408 2008/08/18 15:16:47 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:153: Inside #if defined(PIKE_DEBUG)
   }    }    }    } GC_LEAVE;    if (stack != stack_p)    gc_mark_external_svalues (stack, stack_p - stack, " on svalue stack");   }      static void gc_check_stack_callback(struct callback *foo, void *bar, void *gazonk)   { -  if (Pike_interpreter.evaluator_stack) +  if (Pike_interpreter.evaluator_stack + #ifdef PIKE_DEBUG +  /* Avoid this if the thread is swapped out. Useful when calling +  * locate_references from gdb. */ +  && Pike_sp != (void *) -1 + #endif +  )    gc_mark_stack_external (Pike_fp, Pike_sp, Pike_interpreter.evaluator_stack);   }   #endif      /* Execute Pike code starting at pc.    *    * Called once with NULL to initialize tables.    *    * Returns 0 if pc is NULL.    *