diff options
| author | Kathy Gray | 2014-11-23 17:29:48 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-11-23 17:29:48 +0000 |
| commit | 56e8b49972849f0d2fdbb6a01f9b17c691b605b6 (patch) | |
| tree | 485d46535e1b4b36f2f2e2c253013b267f1f27ee /src | |
| parent | 156d32caf2d60ad9e828c61e31aa917804a0c463 (diff) | |
coerce better between a single bit and a bit vector of one bit
Diffstat (limited to 'src')
| -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) -> |