summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSon Ho2022-01-18 18:03:32 +0100
committerSon Ho2022-01-18 18:03:32 +0100
commitbb158d611c9138fe0c49d669807dff84dc5fba21 (patch)
treea028c47397320e1404a180f7797041e4cdc8538b
parent32eadcca12c4061bd09e36a65447123da6a4826c (diff)
Make a minor modification
-rw-r--r--src/TypesUtils.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/TypesUtils.ml b/src/TypesUtils.ml
index 3accb9c5..b0cd57c5 100644
--- a/src/TypesUtils.ml
+++ b/src/TypesUtils.ml
@@ -94,6 +94,7 @@ let rec ety_no_regions_to_rty (ty : ety) : rty =
(** Check if a [ty] contains regions.
TODO: rename to "has_borrows"?
+ TODO: update, and check the usage.
*)
let ty_has_regions (ty : 'r ty) : bool =
let obj =
@@ -107,6 +108,7 @@ let ty_has_regions (ty : 'r ty) : bool =
method! visit_Ref _ _ _ _ = raise Found
end
in
+ raise Errors.Unimplemented;
try
obj#visit_ty () ty;
false