diff options
Diffstat (limited to '')
| -rw-r--r-- | src/dune | 16 | ||||
| -rw-r--r-- | src/main.ml | 5 |
2 files changed, 20 insertions, 1 deletions
@@ -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 |