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/vmbytegen.ml | |
| parent | 930e51c23f5a8778af02f7a971a404860d713346 (diff) | |
Remove unchecked arithmetic operations from VM, as they are not used.
Diffstat (limited to 'kernel/vmbytegen.ml')
| -rw-r--r-- | kernel/vmbytegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/vmbytegen.ml b/kernel/vmbytegen.ml index 16a0f42664..6899ebe1a6 100644 --- a/kernel/vmbytegen.ml +++ b/kernel/vmbytegen.ml @@ -770,7 +770,7 @@ let rec compile_lam env cenv lam sz cont = let cont = code_makeblock ~stack_size:(sz+arity-1) ~arity ~tag cont in comp_args (compile_lam env) cenv args sz cont - | Lprim (Some (kn,u), op, args) when is_caml_prim op -> + | Lprim ((kn,u), op, args) when is_caml_prim op -> let arity = CPrimitives.arity op in let nparams = CPrimitives.nparams op in let nargs = arity - nparams in |