From 56e8b49972849f0d2fdbb6a01f9b17c691b605b6 Mon Sep 17 00:00:00 2001
From: Kathy Gray
Date: Sun, 23 Nov 2014 17:29:48 +0000
Subject: coerce better between a single bit and a bit vector of one bit

---
 src/lem_interp/interp_lib.lem | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem
index 6fc7c138..edc7ebfd 100644
--- a/src/lem_interp/interp_lib.lem
+++ b/src/lem_interp/interp_lib.lem
@@ -101,6 +101,8 @@ let rec bitwise_binop_bit op op_s (V_tuple [x; y]) = match (x,y) with
     taint ((bitwise_binop_bit op op_s) (V_tuple[x;y])) rx
   | (x,V_track y ry) ->
     taint ((bitwise_binop_bit op op_s) (V_tuple[x;y])) ry
+  | (V_vector _ _ [b],y) -> bitwise_binop_bit op op_s (V_tuple [b; y])
+  | (_,V_vector _ _ [b]) -> bitwise_binop_bit op op_s (V_tuple [x; b])
   | (V_unknown,_) -> V_unknown
   | (_,V_unknown) -> V_unknown
   | (V_lit (L_aux L_undef li), v) -> 
-- 
cgit v1.2.3