[bpt/coccinelle.git] / commons / backtrace_c.c

#include "caml/mlvalues.h"

CAMLextern void caml_print_exception_backtrace(void);

CAMLprim value print_exception_backtrace_stub(value /*__unused*/ unit)
{
  caml_print_exception_backtrace();
  return Val_unit;
}
Commit	Line	Data
34e49164 C	1	#include "caml/mlvalues.h"
	2
	3	CAMLextern void caml_print_exception_backtrace(void);
	4
	5	CAMLprim value print_exception_backtrace_stub(value /__unused/ unit)
	6	{
	7	caml_print_exception_backtrace();
	8	return Val_unit;
	9	}