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/main.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/main.ml')

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