diff options
| author | Kathy Gray | 2015-05-16 21:53:47 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-05-16 21:53:47 +0100 |
| commit | 81b0bcac17be23b605d840c907421f9c09ae73c0 (patch) | |
| tree | 7b6ddefbffdda7a9fe8e13388383934a414bb2b7 | |
| parent | 8eff090dca4928fd575a4b0f8df6915fe503da7d (diff) | |
extend a missing case
| -rw-r--r-- | src/lem_interp/interp_lib.lem | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem index d83341c8..bcacaabc 100644 --- a/src/lem_interp/interp_lib.lem +++ b/src/lem_interp/interp_lib.lem @@ -145,7 +145,8 @@ let bitwise_not_bit v = | L_zero -> (V_lit (L_aux L_one loc)) | L_false -> (V_lit (L_aux L_one loc)) | L_one -> (V_lit (L_aux L_zero loc)) - | L_true -> (V_lit (L_aux L_zero loc)) end in + | L_true -> (V_lit (L_aux L_zero loc)) + | L_undef -> (V_lit (L_aux L_undef loc)) end in retaint v (match detaint v with | V_lit lit -> lit_not lit | V_unknown -> V_unknown end) |