From 47899c51a2eb637a84585207c462d6512f628ba2 Mon Sep 17 00:00:00 2001
From: Kathy Gray
Date: Tue, 9 Jun 2015 16:46:15 +0100
Subject: Too hasty removal; still used by trans_sail.gen

---
 src/lem_interp/interp_inter_imp.lem | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/lem_interp/interp_inter_imp.lem b/src/lem_interp/interp_inter_imp.lem
index 15a1653f..26a44539 100644
--- a/src/lem_interp/interp_inter_imp.lem
+++ b/src/lem_interp/interp_inter_imp.lem
@@ -111,6 +111,10 @@ let intern_ifield_value direction v =
   let direction = intern_direction direction in
   Interp.V_vector (if Interp.is_inc direction then 0 else (List.length(bits) -1)) direction bits
 
+let num_to_bits size kind num =
+(* num_to_bits needed in src_power_get/trans_sail.gen - rather than reengineer the generation, we include a wrapper here *) 
+  Interp_interface.bit_list_of_integer size num
+
 let extern_slice (d:direction) (start:nat) ((i,j):(nat*nat)) =
   match d with
     | D_increasing -> (i,j) (*This is the case the thread/concurrecny model expects, so no change needed*)
-- 
cgit v1.2.3