From 1a9c6c77cf9d4de6cd261125917eec2bd658d76c Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Tue, 23 Nov 2021 09:24:54 +0100
Subject: Activate exception backtrace

---
 src/dune    | 16 +++++++++++++++-
 src/main.ml |  5 +++++
 2 files changed, 20 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3