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.304 2003/04/28 00:32:43 mast Exp $ + || $Id: interpret.c,v 1.305 2003/06/06 13:04:56 nilsson Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.304 2003/04/28 00:32:43 mast Exp $"); + RCSID("$Id: interpret.c,v 1.305 2003/06/06 13:04:56 nilsson 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:2355:    *: This function is intended only for convenient use inside a    *: debugger session; it can't be used from inside the program.    */   void gdb_backtraces()   {   #ifdef PIKE_THREADS    extern INT32 gdb_next_thread_state(INT32, struct thread_state **);    INT32 i = 0;    struct thread_state *ts = 0;    while ((i = gdb_next_thread_state (i, &ts)), ts) { -  fprintf (stderr, "\nTHREAD_ID %ld (swapped %s):\n", -  (long) ts->id, ts->swapped ? "out" : "in"); +  fprintf (stderr, "\nTHREAD_ID %p (swapped %s):\n", +  (void *)ts->id, ts->swapped ? "out" : "in");    gdb_backtrace (ts->id);    }   #else    gdb_backtrace();   #endif   }      PMOD_EXPORT void custom_check_stack(ptrdiff_t amount, const char *fmt, ...)   {    if (low_stack_check(amount)) {