From fdd16113a042170022dce276e53e7a3308c0451c Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond
Date: Sun, 30 Aug 2020 09:05:39 +0200
Subject: Remove unchecked arithmetic operations from VM, as they are not used.

---
 kernel/vmlambda.mli | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'kernel/vmlambda.mli')

diff --git a/kernel/vmlambda.mli b/kernel/vmlambda.mli
index bd11c2667f..8ae7e05f72 100644
--- a/kernel/vmlambda.mli
+++ b/kernel/vmlambda.mli
@@ -12,8 +12,7 @@ type lambda =
   | Llet          of Name.t Context.binder_annot * lambda * lambda
   | Lapp          of lambda * lambda array
   | Lconst        of pconstant
-  | Lprim         of pconstant option * CPrimitives.t * lambda array
-        (* No check if None *)
+  | Lprim         of pconstant * CPrimitives.t * lambda array
   | Lcase         of case_info * reloc_table * lambda * lambda * lam_branches
   | Lif           of lambda * lambda * lambda
   | Lfix          of (int array * int) * fix_decl
-- 
cgit v1.2.3


From 2d3e012cce7ca41893d670196d3c90e7e315403e Mon Sep 17 00:00:00 2001
From: Guillaume Melquiond
Date: Sun, 30 Aug 2020 10:35:45 +0200
Subject: Remove unused if-then-else construct from VM.

---
 kernel/vmlambda.mli | 1 -
 1 file changed, 1 deletion(-)

(limited to 'kernel/vmlambda.mli')

diff --git a/kernel/vmlambda.mli b/kernel/vmlambda.mli
index 8ae7e05f72..ad5f81638f 100644
--- a/kernel/vmlambda.mli
+++ b/kernel/vmlambda.mli
@@ -14,7 +14,6 @@ type lambda =
   | Lconst        of pconstant
   | Lprim         of pconstant * CPrimitives.t * lambda array
   | Lcase         of case_info * reloc_table * lambda * lambda * lam_branches
-  | Lif           of lambda * lambda * lambda
   | Lfix          of (int array * int) * fix_decl
   | Lcofix        of int * fix_decl
   | Lint          of int
-- 
cgit v1.2.3