diff options
| author | Guillaume Melquiond | 2021-03-25 14:58:39 +0100 |
|---|---|---|
| committer | Guillaume Melquiond | 2021-03-26 15:18:28 +0100 |
| commit | 682a3f473d318e549ed8cf61f3690573e32c00be (patch) | |
| tree | 36cc4d14cae203b582eb7b3b72836cc4966453fc /kernel/vmbytecodes.ml | |
| parent | 6a6e58ea763d3bacda86056b6e7f404bf95ad45d (diff) | |
Improve dump of primitive OCaml operations.
Diffstat (limited to 'kernel/vmbytecodes.ml')
| -rw-r--r-- | kernel/vmbytecodes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/vmbytecodes.ml b/kernel/vmbytecodes.ml index 1783560694..b5604d0593 100644 --- a/kernel/vmbytecodes.ml +++ b/kernel/vmbytecodes.ml @@ -148,8 +148,8 @@ let rec pp_instr i = (Constant.print (fst id)) | Kcamlprim (op, lbl) -> - str "camlcall " ++ str (CPrimitives.to_string op) ++ spc () ++ - pp_lbl lbl + str "camlcall " ++ str (CPrimitives.to_string op) ++ str ", branch " ++ + pp_lbl lbl ++ str " on accu" and pp_bytecodes c = match c with |