diff options
| author | Guillaume Melquiond | 2020-08-30 09:05:39 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2020-11-13 15:13:23 +0100 |
| commit | fdd16113a042170022dce276e53e7a3308c0451c (patch) | |
| tree | 5a9972375ade00812092b648826e33e7b7b90d8a /kernel/vmbytecodes.ml | |
| parent | 930e51c23f5a8778af02f7a971a404860d713346 (diff) | |
Remove unchecked arithmetic operations from VM, as they are not used.
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 c156a21c86..a1dea977cd 100644 --- a/kernel/vmbytecodes.ml +++ b/kernel/vmbytecodes.ml @@ -60,7 +60,7 @@ type instruction = | Kproj of Projection.Repr.t | Kensurestackcapacity of int | Kbranch of Label.t (* jump to label *) - | Kprim of CPrimitives.t * pconstant option + | Kprim of CPrimitives.t * pconstant | Kcamlprim of CPrimitives.t * Label.t | Kareint of int @@ -146,7 +146,7 @@ let rec pp_instr i = | Kensurestackcapacity size -> str "growstack " ++ int size | Kprim (op, id) -> str (CPrimitives.to_string op) ++ str " " ++ - (match id with Some (id,_u) -> Constant.print id | None -> str "") + (Constant.print (fst id)) | Kcamlprim (op, lbl) -> str "camlcall " ++ str (CPrimitives.to_string op) ++ spc () ++ |