diff options
author | Gregory Malecha <gmalecha@cs.harvard.edu> | 2015-09-02 18:50:09 -0700 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2015-09-03 20:05:01 +0200 |
commit | 6000ddffed48b804669a5eae9be7c536bf5e19c5 (patch) | |
tree | 995135c408df57fe4e934faf6f87632a8e0fb0c1 | |
parent | b5c646a37ac0375f9fbb2427549c925ee3f127ad (diff) |
print universes when dumping bytecode.
-rw-r--r-- | kernel/cbytecodes.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/cbytecodes.ml b/kernel/cbytecodes.ml index 940b5528d..891d95378 100644 --- a/kernel/cbytecodes.ml +++ b/kernel/cbytecodes.ml @@ -207,7 +207,8 @@ let rec pp_instr i = prlist_with_sep spc pp_lbl (Array.to_list lblt) ++ str " bodies = " ++ prlist_with_sep spc pp_lbl (Array.to_list lblb)) - | Kgetglobal (id,_u) -> str "getglobal " ++ pr_con id + | Kgetglobal (id,u) -> + str "getglobal " ++ pr_con id ++ str "@{" ++ Univ.Instance.pr Univ.Level.pr u ++ str "}" | Kconst sc -> str "const " ++ pp_struct_const sc | Kmakeblock(n, m) -> |