diff options
| author | Pierre-Marie Pédrot | 2021-01-15 11:20:38 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-15 11:20:38 +0100 |
| commit | 58a4f645ee6d306cb824c2ac2dfa21e460b9692a (patch) | |
| tree | d4c5331630e06cfc0951ab32d5d7571f7594cb13 /kernel/vmbytecodes.ml | |
| parent | eb25e63d58555a67b74a046b8bdf2ab6252164c0 (diff) | |
| parent | 5820a964a5b380d82923be7905cdacd6fa6bd6c3 (diff) | |
Merge PR #13678: Cleaning up the bytecode interpreter
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/vmbytecodes.ml')
| -rw-r--r-- | kernel/vmbytecodes.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/vmbytecodes.ml b/kernel/vmbytecodes.ml index 4977aec00a..c2b087f061 100644 --- a/kernel/vmbytecodes.ml +++ b/kernel/vmbytecodes.ml @@ -49,7 +49,6 @@ type instruction = | Kgetglobal of Constant.t | Kconst of structured_constant | Kmakeblock of int * tag - | Kmakeprod | Kmakeswitchblock of Label.t * Label.t * annot_switch * int | Kswitch of Label.t array * Label.t array | Kpushfields of int @@ -123,7 +122,6 @@ let rec pp_instr i = str "const " ++ pp_struct_const sc | Kmakeblock(n, m) -> str "makeblock " ++ int n ++ str ", " ++ int m - | Kmakeprod -> str "makeprod" | Kmakeswitchblock(lblt,lbls,_,sz) -> str "makeswitchblock " ++ pp_lbl lblt ++ str ", " ++ pp_lbl lbls ++ str ", " ++ int sz |