changed the way registers/register fields work, fixes, nicer names for new letbound variables

1 files changed, 1 insertions, 3 deletions

diff --git a/src/gen_lib/vector.lem b/src/gen_lib/vector.lem
index 6acb4aa0..07238180 100644
--- a/src/gen_lib/vector.lem
+++ b/src/gen_lib/vector.lem
@@ -1,8 +1,5 @@
 open import Pervasives_extra
 
-(* this is here to avoid circular dependencies when Sail_values imports Arch.lem *)
-type bitU = O | I | Undef
-
 (* element list * start * has increasing direction *)
 type vector 'a = Vector of list 'a * integer * bool
 
@@ -13,6 +10,7 @@ let rec nth xs (n : integer) =
   end
 
 
+let get_dir (Vector _ _ ord) = ord
 let get_start (Vector _ s _) = s
 let length (Vector bs _ _) = integerFromNat (length bs)