From dd6109d87b1447da3c679fb08e11b846027071ec Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Tue, 19 Jun 2001 10:02:48 +0000
Subject: [PATCH] Pas de backtrace en natif (PR#391)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3538 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 otherlibs/systhreads/posix.c | 2 ++
 otherlibs/systhreads/win32.c | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/otherlibs/systhreads/posix.c b/otherlibs/systhreads/posix.c
index 2b86cb308..484c443ee 100644
--- a/otherlibs/systhreads/posix.c
+++ b/otherlibs/systhreads/posix.c
@@ -444,7 +444,9 @@ value caml_thread_uncaught_exception(value exn)  /* ML */
   fprintf(stderr, "Thread %d killed on uncaught exception %s\n",
           Int_val(Ident(curr_thread->descr)), msg);
   free(msg);
+#ifndef NATIVE_CODE
   if (backtrace_active) print_exception_backtrace();
+#endif
   fflush(stderr);
   return Val_unit;
 }
diff --git a/otherlibs/systhreads/win32.c b/otherlibs/systhreads/win32.c
index ea04957e2..27355ef82 100644
--- a/otherlibs/systhreads/win32.c
+++ b/otherlibs/systhreads/win32.c
@@ -433,7 +433,9 @@ value caml_thread_uncaught_exception(value exn)  /* ML */
   fprintf(stderr, "Thread %d killed on uncaught exception %s\n",
           Int_val(Ident(curr_thread->descr)), msg);
   free(msg);
+#ifndef NATIVE_CODE
   if (backtrace_active) print_exception_backtrace();
+#endif
   fflush(stderr);
   return Val_unit;
 }