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.131 2004/08/31 20:25:40 grubba Exp $
+ || $Id: error.c,v 1.132 2004/09/18 14:27:04 grubba 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"
#include "array.h"
#include "object.h"
#include "main.h"
#include "builtin_functions.h"
#include "backend.h"
#include "operators.h"
#include "module_support.h"
#include "threads.h"
#include "gc.h"
- RCSID("$Id: error.c,v 1.131 2004/08/31 20:25:40 grubba Exp $");
+ RCSID("$Id: error.c,v 1.132 2004/09/18 14:27:04 grubba Exp $");
/* __attribute__ only applies to function declarations, not
definitions, so we disable them here. */
#undef ATTRIBUTE
#define ATTRIBUTE(X)
PMOD_EXPORT const char msg_fatal_error[] =
"%s:%d: Fatal error:\n";
#ifdef PIKE_DEBUG
PMOD_EXPORT const char msg_unsetjmp_nosync_1[] =
pike.git/src/error.c:503: Inside #if defined(PIKE_DEBUG)
dump_backlog();
}
#endif
if(Pike_in_gc)
fprintf(stderr,"Pike was in GC stage %d when this fatal occured:\n",Pike_in_gc);
Pike_in_gc = GC_PASS_DISABLED;
(void)VFPRINTF(stderr, fmt, args);
+ va_end(args);
+
d_flag=Pike_interpreter.trace_level=0;
-
+
if(Pike_sp && Pike_interpreter.evaluator_stack &&
master_object && master_object->prog)
{
JMP_BUF jmp;
struct callback_list saved_eval_cbs = evaluator_callbacks;
/* Don't want thread switches or any other evaluator stuff while
* we let the master describe the backtrace below. */
low_init_threads_disable();
MEMSET (&evaluator_callbacks, 0, sizeof (evaluator_callbacks));
if (SETJMP (jmp))