2003-12-15 10:10:51 -08:00
|
|
|
/***********************************************************************/
|
|
|
|
/* */
|
|
|
|
/* Objective Caml */
|
|
|
|
/* */
|
|
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
|
|
/* */
|
|
|
|
/* Copyright 2001 Institut National de Recherche en Informatique et */
|
|
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
|
|
/* under the terms of the GNU Library General Public License, with */
|
|
|
|
/* the special exception on linking described in file ../LICENSE. */
|
|
|
|
/* */
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
|
|
#ifndef CAML_BACKTRACE_H
|
|
|
|
#define CAML_BACKTRACE_H
|
2001-02-19 04:29:00 -08:00
|
|
|
|
|
|
|
#include "mlvalues.h"
|
|
|
|
|
2003-12-31 06:20:40 -08:00
|
|
|
CAMLextern int caml_backtrace_active;
|
|
|
|
CAMLextern int caml_backtrace_pos;
|
|
|
|
CAMLextern code_t * caml_backtrace_buffer;
|
|
|
|
CAMLextern value caml_backtrace_last_exn;
|
2010-01-20 08:26:46 -08:00
|
|
|
CAMLextern char * caml_cds_file;
|
2001-02-19 04:29:00 -08:00
|
|
|
|
2008-03-14 06:47:24 -07:00
|
|
|
CAMLprim value caml_record_backtrace(value vflag);
|
2007-01-29 04:11:18 -08:00
|
|
|
#ifndef NATIVE_CODE
|
2003-12-31 06:20:40 -08:00
|
|
|
extern void caml_stash_backtrace(value exn, code_t pc, value * sp);
|
2007-01-29 04:11:18 -08:00
|
|
|
#endif
|
2003-12-31 06:20:40 -08:00
|
|
|
CAMLextern void caml_print_exception_backtrace(void);
|
2001-02-19 04:29:00 -08:00
|
|
|
|
2003-12-15 10:10:51 -08:00
|
|
|
#endif /* CAML_BACKTRACE_H */
|