Activate exception backtrace

2 files changed, 20 insertions, 1 deletions

diff --git a/src/dune b/src/dune
index f4f7152e..2d03b3f6 100644
--- a/src/dune
+++ b/src/dune
@@ -1,3 +1,17 @@
 (executable
  (name main)
- (libraries yojson zarith))
\ No newline at end of file
+ (libraries yojson zarith))
+
+(env
+  (dev (flags
+    :standard
+    -safe-string
+    -g
+    -w -8-9-11-33-20-21-26-27-39
+  ))
+  (release (flags
+    :standard
+    -safe-string
+    -g
+    -w -8-9-11-33-20-21-26-27-39
+  )))
diff --git a/src/main.ml b/src/main.ml
index a7388472..63bfd3a9 100644
--- a/src/main.ml
+++ b/src/main.ml
@@ -1,5 +1,10 @@
 open CfimOfJson
 open Interpreter
+open Errors
+
+(* This is necessary to have a backtrace when raising exceptions - for some
+ * reason, the -g option doesn't work *)
+let () = Printexc.record_backtrace true
 
 let () =
   let json = Yojson.Basic.from_file "../charon/charon/tests/test1.cfim" in