diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2015-06-23 18:02:30 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2015-06-23 18:04:11 +0200 |
commit | 5f7adad4af7d526aed3a97f8b24b2d9811f9fea7 (patch) | |
tree | d64fd513d3233715ad4d9c14b6e65672e60e1030 /lib/flags.ml | |
parent | b28bafb1d2003558c916c75d36784f94e9aa1684 (diff) |
Add a Set Dump Bytecode command for debugging purposes.
Prints the VM bytecode produced by compilation of a constant or a call to
vm_compute.
Diffstat (limited to 'lib/flags.ml')
-rw-r--r-- | lib/flags.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 009caa9de..ab4ac03f8 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -215,3 +215,7 @@ let native_compiler = ref false let print_mod_uid = ref false let tactic_context_compat = ref false + +let dump_bytecode = ref false +let set_dump_bytecode = (:=) dump_bytecode +let get_dump_bytecode () = !dump_bytecode |