summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKathy Gray2015-06-09 16:44:23 +0100
committerKathy Gray2015-06-09 16:44:23 +0100
commitc2d25d8c763714023412b06caf3e986a46647694 (patch)
tree2c54067188fa7a89b40d2c0bf72b1d7821e7e7e2
parent645839c91e257e4ed30cca34dc49391b5bbfb591 (diff)
remove superfluous num_to_bits; replaced by bit_list_of_integer
-rw-r--r--src/lem_interp/interp_inter_imp.lem4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/lem_interp/interp_inter_imp.lem b/src/lem_interp/interp_inter_imp.lem
index 26a44539..15a1653f 100644
--- a/src/lem_interp/interp_inter_imp.lem
+++ b/src/lem_interp/interp_inter_imp.lem
@@ -111,10 +111,6 @@ 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*)