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/vmemitcodes.ml | |
| parent | 930e51c23f5a8778af02f7a971a404860d713346 (diff) | |
Remove unchecked arithmetic operations from VM, as they are not used.
Diffstat (limited to 'kernel/vmemitcodes.ml')
| -rw-r--r-- | kernel/vmemitcodes.ml | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/kernel/vmemitcodes.ml b/kernel/vmemitcodes.ml index babc57794b..d0422dd324 100644 --- a/kernel/vmemitcodes.ml +++ b/kernel/vmemitcodes.ml @@ -208,14 +208,6 @@ let slot_for_caml_prim env op = (* Emission of one instruction *) -let nocheck_prim_op = function - | Int63add -> opADDINT63 - | Int63sub -> opSUBINT63 - | Int63lt -> opLTINT63 - | Int63le -> opLEINT63 - | _ -> assert false - - let check_prim_op = function | Int63head0 -> opCHECKHEAD0INT63 | Int63tail0 -> opCHECKTAIL0INT63 @@ -354,10 +346,7 @@ let emit_instr env = function | Kproj p -> out env opPROJ; out_int env (Projection.Repr.arg p); slot_for_proj_name env p | Kensurestackcapacity size -> out env opENSURESTACKCAPACITY; out_int env size | Kbranch lbl -> out env opBRANCH; out_label env lbl - | Kprim (op,None) -> - out env (nocheck_prim_op op) - - | Kprim(op,Some (q,_u)) -> + | Kprim (op, (q,_u)) -> out env (check_prim_op op); slot_for_getglobal env q |