pike.git / src / error.c

version» Context lines:

pike.git/src/error.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: error.c,v 1.163 2008/05/30 15:19:03 mast Exp $ + || $Id: error.c,v 1.164 2008/07/16 00:33:59 mast Exp $   */      #define NO_PIKE_SHORTHAND   #include "global.h"   #include "svalue.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "interpret.h"   #include "stralloc.h"   #include "builtin_functions.h"
pike.git/src/error.c:66: Inside #if defined(PIKE_DEBUG)
  #ifdef PIKE_DEBUG   /* struct mapping *recovery_lookup = NULL; */      PMOD_EXPORT void check_recovery_context(void)   {    char foo;   #define TESTILITEST ((((char *)Pike_interpreter.recoveries)-((char *)&foo))*STACK_DIRECTION)    if(Pike_interpreter.recoveries &&    Pike_interpreter.recoveries->on_stack &&    TESTILITEST > 0) { -  struct svalue *s; +     fprintf(stderr, "Recoveries is out biking (Pike_interpreter.recoveries=%p, Pike_sp=%p, %ld)!\n",    Pike_interpreter.recoveries, &foo,    DO_NOT_WARN((long)TESTILITEST));    fprintf(stderr, "Last recovery was added at %s:%d\n",    Pike_interpreter.recoveries->file,    Pike_interpreter.recoveries->line);    push_int((ptrdiff_t)Pike_interpreter.recoveries);   /* if ((s = low_mapping_lookup(recovery_lookup, Pike_sp-1))) { */   /* fprintf(stderr, "Try also looking at %s.\n", (char*)s->u.integer); */   /* } */