diff options
Diffstat (limited to 'kernel')
| -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 |