From d47313c00011be39ed1c2e411d401bb759ed65bf Mon Sep 17 00:00:00 2001
From: Jon French
Date: Thu, 1 Nov 2018 10:39:56 +0000
Subject: Interpreter: last couple of builtins to get RISC-V working

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

(limited to 'src')

diff --git a/src/value.ml b/src/value.ml
index 90f6d947..8e920377 100644
--- a/src/value.ml
+++ b/src/value.ml
@@ -317,6 +317,14 @@ let value_negate = function
   | [v1] -> V_int (Sail_lib.negate (coerce_int v1))
   | _ -> failwith "value negate"
 
+let value_pow2 = function
+  | [v1] -> V_int (Sail_lib.pow2 (coerce_int v1))
+  | _ -> failwith "value pow2"
+
+let value_int_power = function
+  | [v1; v2] -> V_int (Sail_lib.int_power (coerce_int v1, coerce_int v2))
+  | _ -> failwith "value int_power"
+
 let value_mult = function
   | [v1; v2] -> V_int (Sail_lib.mult (coerce_int v1, coerce_int v2))
   | _ -> failwith "value mult"
@@ -615,6 +623,8 @@ let primops =
       ("quotient", value_quotient);
       ("modulus", value_modulus);
       ("negate", value_negate);
+      ("pow2", value_pow2);
+      ("int_power", value_int_power);
       ("shr_int", value_shr_int);
       ("shl_int", value_shl_int);
       ("max_int", value_max_int);
-- 
cgit v1.2.3