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.289 2003/03/23 12:35:08 jonasw Exp $ + || $Id: interpret.c,v 1.290 2003/04/27 14:16:51 mast Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.289 2003/03/23 12:35:08 jonasw Exp $"); + RCSID("$Id: interpret.c,v 1.290 2003/04/27 14:16:51 mast Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:2076: Inside #if defined(PIKE_DEBUG)
   {    if(f->locals < Pike_interpreter.evaluator_stack ||    f->locals > &(Pike_interpreter.evaluator_stack[Pike_stack_size]))    Pike_fatal("Local variable pointer points to Finsp√•ng.\n");       if(f->args < 0 || f->args > Pike_stack_size)    Pike_fatal("FEL FEL FEL! HELP!! (corrupted pike_frame)\n");    }    }   } + #endif      static const char *safe_idname_from_int(struct program *prog, int func)   {    /* ID_FROM_INT with a thick layer of checks. */    struct reference *ref;    struct inherit *inher;    struct identifier *id;    if (!prog)    return "<null program *>";    if (func < 0 || func >= prog->num_identifier_references)
pike.git/src/interpret.c:2340: Inside #if defined(PIKE_THREADS)
   while ((i = gdb_next_thread_state (i, &ts)), ts) {    fprintf (stderr, "\nTHREAD_ID %ld (swapped %s):\n",    (long) ts->id, ts->swapped ? "out" : "in");    gdb_backtrace (ts->id);    }   #else    gdb_backtrace();   #endif   }    - #endif -  +    PMOD_EXPORT void custom_check_stack(ptrdiff_t amount, const char *fmt, ...)   {    if (low_stack_check(amount)) {    va_list args;    va_start(args, fmt);    va_error(fmt, args);    }   }      PMOD_EXPORT void cleanup_interpret(void)