From bd1a4956257638793d3a6a3ffcee1773541d601b Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Sun, 7 Jul 2013 10:02:56 +0000
Subject: Compile in debug mode and activate stack backtraces.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2292 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 _tags            | 2 ++
 driver/Driver.ml | 1 +
 2 files changed, 3 insertions(+)

diff --git a/_tags b/_tags
index e87167e..27f3e87 100644
--- a/_tags
+++ b/_tags
@@ -1,3 +1,5 @@
+<**/*.cmx>: debug
+<**/*.native>: debug
 <driver/Driver.*{byte,native}>: use_unix,use_str,use_Cparser
 <exportclight/Clightgen.*{byte,native}>: use_unix,use_str,use_Cparser
 <checklink/*.ml>: pkg_bitstring,warn_error_A
diff --git a/driver/Driver.ml b/driver/Driver.ml
index 0e54ad9..4f5100e 100644
--- a/driver/Driver.ml
+++ b/driver/Driver.ml
@@ -512,6 +512,7 @@ let cmdline_actions =
 
 let _ =
   Gc.set { (Gc.get()) with Gc.minor_heap_size = 524288 };
+  Printexc.record_backtrace true;
   Machine.config :=
     begin match Configuration.arch with
     | "powerpc" -> Machine.ppc_32_bigendian
-- 
cgit v1.2.3