diff options
author | Son Ho | 2022-01-12 20:28:08 +0100 |
---|---|---|
committer | Son Ho | 2022-01-12 20:28:08 +0100 |
commit | cca136848b4310a02b78f2567d7c476df8c88025 (patch) | |
tree | 0816dd7790bd425e4150100e3722698eed80f2ae /src/ValuesUtils.ml | |
parent | 14f7c587a6100fe0b2985e3afd123f79fde8d468 (diff) |
Update end_borrow to check if there are loans in borrowed values
Diffstat (limited to 'src/ValuesUtils.ml')
-rw-r--r-- | src/ValuesUtils.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/ValuesUtils.ml b/src/ValuesUtils.ml index f4a10287..16c94800 100644 --- a/src/ValuesUtils.ml +++ b/src/ValuesUtils.ml @@ -8,6 +8,8 @@ let mk_unit_value : typed_value = 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 *) let mk_box_value (v : typed_value) : typed_value = let box_ty = mk_box_ty v.ty in |