Ocaml generation now just needing big int/little int issues resolved (probably) at least for Power.

1 files changed, 7 insertions, 2 deletions

diff --git a/src/gen_lib/sail_values.ml b/src/gen_lib/sail_values.ml
index c789ff52..8a1a27c6 100644
--- a/src/gen_lib/sail_values.ml
+++ b/src/gen_lib/sail_values.ml
@@ -15,6 +15,11 @@ let to_bool = function
   | Vone  -> true
   | Vundef -> assert false
 
+let is_one i =
+  if eq_big_int i unit_big_int
+  then Vone
+  else Vzero
+
 let get_barray  = function
   | Vvector(a,_,_) -> a
   | Vregister(a,_,_,_) -> !a
@@ -117,8 +122,8 @@ let set_vector_subrange_vec v n m new_v =
       done;
     end
   in
-  match v with
-  | VvectorR(array,start,is_inc) ->
+  match v, new_v with
+  | VvectorR(array,start,is_inc),VvectorR(new_v,_,_) ->
     let (length,offset) = if is_inc then (m-n+1,n-start) else (n-m+1,start-n) in
     walker array length offset new_v
   | _ -> ()