From 4a72cb8084237161d0bccc66f27d5fb6d24315e0 Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Thu, 6 Feb 2020 17:20:39 +0000
Subject: Make sure tdiv_int and tmod_int are recognised by sail -i

---
 src/value.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/value.ml')

diff --git a/src/value.ml b/src/value.ml
index 69023bc3..3a9a071f 100644
--- a/src/value.ml
+++ b/src/value.ml
@@ -369,6 +369,14 @@ let value_mult = function
   | [v1; v2] -> V_int (Sail_lib.mult (coerce_int v1, coerce_int v2))
   | _ -> failwith "value mult"
 
+let value_tdiv_int = function
+  | [v1; v2] -> V_int (Sail_lib.tdiv_int (coerce_int v1, coerce_int v2))
+  | _ -> failwith "value tdiv_int"
+
+let value_tmod_int = function
+  | [v1; v2] -> V_int (Sail_lib.tmod_int (coerce_int v1, coerce_int v2))
+  | _ -> failwith "value tmod_int"
+
 let value_quotient = function
   | [v1; v2] -> V_int (Sail_lib.quotient (coerce_int v1, coerce_int v2))
   | _ -> failwith "value quotient"
@@ -687,6 +695,8 @@ let primops = ref
        ("sub_int", value_sub_int);
        ("sub_nat", value_sub_nat);
        ("div_int", value_quotient);
+       ("tdiv_int", value_tdiv_int);
+       ("tmod_int", value_tmod_int);
        ("mult_int", value_mult);
        ("mult", value_mult);
        ("quotient", value_quotient);
-- 
cgit v1.2.3