From 119174dceeeba1afc234a0dcaf65fb48a56f27ee Mon Sep 17 00:00:00 2001
From: Kathy Gray
Date: Wed, 25 Jan 2017 18:49:14 +0000
Subject: Make interpreter a little more flexible on the format of a register
 type to match ASL; add missing functions/cases to library

---
 src/lem_interp/interp.lem     |  2 ++
 src/lem_interp/interp_lib.lem | 13 +++++++++++++
 2 files changed, 15 insertions(+)

(limited to 'src/lem_interp')

diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem
index 51e8fd8e..9072a3bd 100644
--- a/src/lem_interp/interp.lem
+++ b/src/lem_interp/interp.lem
@@ -210,6 +210,8 @@ let reg_start_pos reg =
     | Reg _ (Just(typ,_,_,_,_)) _ -> 
       let start_from_vec targs = match targs with
         | T_args [T_arg_nexp (Ne_const s);_;_;_] -> natFromInteger s
+        | T_args [T_arg_nexp _; T_arg_nexp (Ne_const s); T_arg_order Odec; _] -> (natFromInteger s) - 1
+        | T_args [_; _; T_arg_order Oinc; _] -> 0
         | _ -> Assert_extra.failwith "vector type not well formed"
       end in
       let start_from_reg targs = match targs with
diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem
index 3d354774..625dfb6c 100644
--- a/src/lem_interp/interp_lib.lem
+++ b/src/lem_interp/interp_lib.lem
@@ -350,6 +350,9 @@ let eq_vec v =
       else V_lit (L_aux L_zero Unknown)
     | (V_unknown, _) -> V_unknown
     | (_, V_unknown) -> V_unknown
+    | (V_vector _ _ [c1], _) -> eq (V_tuple [c1; v2])
+    | (_, V_vector _ _ [c2]) -> eq (V_tuple [v1; c2])
+    | (V_lit _, V_lit _) -> eq (V_tuple [v1;v2]) (*Vectors of one bit return one bit; we need coercion to match*)
     | _ -> Assert_extra.failwith ("eq_vec not given two vectors, given instead " ^ (string_of_value v)) end in
   match v with
   | (V_tuple [v1; v2]) -> binary_taint eq_vec_help v1 v2
@@ -384,6 +387,15 @@ let neq = compose neg eq ;;
 
 let neq_vec = compose neg eq_vec
 
+let rec v_abs v = retaint v (match detaint v with
+    | V_lit (L_aux arg la) ->
+      V_lit (L_aux (match arg with
+          | L_num n -> if n < 0 then L_num (n * (0 - 1)) else L_num n
+          | _ -> Assert_extra.failwith ("abs given unexpected " ^ (string_of_value v)) end) la)
+   | V_unknown -> V_unknown
+   | V_tuple [v] -> v_abs v
+   | _ -> Assert_extra.failwith ("abs given unexpected " ^ (string_of_value v)) end)
+
 let arith_op op v =
   let fail () = Assert_extra.failwith ("arith_op given unexpected " ^ (string_of_value v)) in
   let arith_op_help vl vr = 
@@ -1023,6 +1035,7 @@ let library_functions direction = [
   ("most_significant", most_significant);
   ("min", min);
   ("max", max);
+  ("abs", v_abs);
 ] ;;
 
 let eval_external name v = match List.lookup name (library_functions IInc) with
-- 
cgit v1.2.3