diff options
Diffstat (limited to 'src/lem_interp/interp_lib.lem')
| -rw-r--r-- | src/lem_interp/interp_lib.lem | 2 |
1 files changed, 2 insertions, 0 deletions
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) -> |