diff options
| author | Pierre-Marie Pédrot | 2021-03-30 14:05:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-03-30 14:05:08 +0200 |
| commit | 666a3aa8dd7df6dd29ea7944482510048a8a7ba7 (patch) | |
| tree | bf1558b91b62f14b122aa4fa09d2d56f476b9205 /kernel/vmbytecodes.ml | |
| parent | f0c6a1de3eef85ab0787be7e87cb8509e8df43d5 (diff) | |
| parent | 7ff8b12c14867e43d54c3d4c8976a6179250893d (diff) | |
Merge PR #14005: Support OCaml primitives with an actual arity larger than 4.
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/vmbytecodes.ml')
| -rw-r--r-- | kernel/vmbytecodes.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/kernel/vmbytecodes.ml b/kernel/vmbytecodes.ml index c2b087f061..b5604d0593 100644 --- a/kernel/vmbytecodes.ml +++ b/kernel/vmbytecodes.ml @@ -35,6 +35,7 @@ type instruction = | Kpush | Kpop of int | Kpush_retaddr of Label.t + | Kshort_apply of int | Kapply of int | Kappterm of int * int | Kreturn of int @@ -93,6 +94,7 @@ let rec pp_instr i = | Kpush -> str "push" | Kpop n -> str "pop " ++ int n | Kpush_retaddr lbl -> str "push_retaddr " ++ pp_lbl lbl + | Kshort_apply n -> str "short_apply " ++ int n | Kapply n -> str "apply " ++ int n | Kappterm(n, m) -> str "appterm " ++ int n ++ str ", " ++ int m @@ -146,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 |