diff options
| author | Alasdair Armstrong | 2018-01-25 15:37:52 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-01-25 15:37:52 +0000 |
| commit | f0f981b5158cb3c1ac0ad09a4ba75947acd4c4d0 (patch) | |
| tree | 992463e322d2a94d176e3a44b84651f393467f78 /src | |
| parent | c3f6cb4a3d69fb6c9becdd152f40ca236e3b82b7 (diff) | |
Fix -ocaml_trace option
Diffstat (limited to 'src')
| -rw-r--r-- | src/ocaml_backend.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/ocaml_backend.ml b/src/ocaml_backend.ml index a2c40b03..96dfd9d3 100644 --- a/src/ocaml_backend.ml +++ b/src/ocaml_backend.ml @@ -637,6 +637,7 @@ let ocaml_main spec sail_dir = end; (("open " ^ String.capitalize spec ^ ";;\n\n") :: !lines @ [ " zinitializze_registers ();"; + if !opt_trace_ocaml then " Sail_lib.opt_trace := true;" else " ();"; " Printexc.record_backtrace true;"; " zmain ()\n";]) |> String.concat "\n" |