diff options
| author | Son HO | 2022-09-22 18:52:15 +0200 |
|---|---|---|
| committer | GitHub | 2022-09-22 18:52:15 +0200 |
| commit | dd75894c85bbaa5dc6aa54d39980e160e5b7777f (patch) | |
| tree | ece56b01bcadea24a3c373236f0254f47e32a98f /src/ValuesUtils.ml | |
| parent | d8f92140abd7e65b6f1c5dd7e511c0c0aa69e73f (diff) | |
| parent | 0d5fb87166cc4eb4ddc783d871ad459479fc9fdc (diff) | |
Merge pull request #1 from AeneasVerif/constants-v2
Implement support for globals
Diffstat (limited to '')
| -rw-r--r-- | src/ValuesUtils.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/ValuesUtils.ml b/src/ValuesUtils.ml index 2814615c..bc205622 100644 --- a/src/ValuesUtils.ml +++ b/src/ValuesUtils.ml @@ -11,7 +11,6 @@ let mk_unit_value : typed_value = { value = Adt { variant_id = None; field_values = [] }; ty = mk_unit_ty } let mk_typed_value (ty : ety) (value : value) : typed_value = { value; ty } - let mk_bottom (ty : ety) : typed_value = { value = Bottom; ty } (** Box a value *) @@ -38,7 +37,6 @@ let borrows_in_value (v : typed_value) : bool = let obj = object inherit [_] iter_typed_value - method! visit_borrow_content _env _ = raise Found end in @@ -53,7 +51,6 @@ let inactivated_in_value (v : typed_value) : bool = let obj = object inherit [_] iter_typed_value - method! visit_InactivatedMutBorrow _env _ = raise Found end in @@ -68,7 +65,6 @@ let loans_in_value (v : typed_value) : bool = let obj = object inherit [_] iter_typed_value - method! visit_loan_content _env _ = raise Found end in @@ -84,9 +80,7 @@ let outer_loans_in_value (v : typed_value) : bool = let obj = object inherit [_] iter_typed_value - method! visit_loan_content _env _ = raise Found - method! visit_borrow_content _ _ = () end in |