diff options
| author | Alasdair Armstrong | 2019-02-12 18:18:05 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-02-12 18:18:05 +0000 |
| commit | 24fc989891ad266eae642815646294279e2485ca (patch) | |
| tree | d533fc26b5980d1144ee4d7849d3dd0f2a1b0e95 /src/nl_flow.ml | |
| parent | b847a472a1f853d783d1af5f8eb033b97f33be5b (diff) | |
| parent | 974494b1dda38c1ee5c1502cc6e448e67a7374ac (diff) | |
Merge remote-tracking branch 'origin/asl_flow2' into sail2
Diffstat (limited to 'src/nl_flow.ml')
| -rw-r--r-- | src/nl_flow.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/nl_flow.ml b/src/nl_flow.ml index e38e5fa5..6196f23b 100644 --- a/src/nl_flow.ml +++ b/src/nl_flow.ml @@ -91,7 +91,7 @@ let add_assert cond (E_aux (aux, (l, ())) as exp) = let modify_unsigned id value (E_aux (aux, annot) as exp) = match aux with | E_let (LB_aux (LB_val (pat, E_aux (E_app (f, [E_aux (E_id id', _)]), _)), _) as lb, exp') - when string_of_id f = "unsigned" && Id.compare id id' = 0 -> + when (string_of_id f = "unsigned" || string_of_id f = "UInt") && Id.compare id id' = 0 -> begin match pat_id pat with | None -> exp | Some uid -> |