summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSon Ho2021-11-22 19:53:50 +0100
committerSon Ho2021-11-22 19:53:50 +0100
commita5959cbbf1c4d1fe24a5019a9b01b4b54211261a (patch)
tree5d0381be72c9052eadc7f024c8f181b9ae9116cd
parent115960297c2f9cf839d51232dd2961e0d4817657 (diff)
Uncomment read_place
-rw-r--r--src/Interpreter.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Interpreter.ml b/src/Interpreter.ml
index ff19b3f6..638e8b45 100644
--- a/src/Interpreter.ml
+++ b/src/Interpreter.ml
@@ -591,7 +591,6 @@ let rec read_projection (config : config) (access : path_access) (env : env)
(* Entering loans failed *)
| res -> res)
-(*
(** Read the value at the end of a place *)
let read_place (config : config) (access : path_access) (p : place) (env0 : env)
: typed_value path_access_result =
@@ -605,6 +604,7 @@ let read_place (config : config) (access : path_access) (p : place) (env0 : env)
in
read_in_env env0
+(*
(** Update the value at the end of a projection *)
let rec write_projection (config : config) (nv : typed_value) (p : projection)
(v : typed_value) : typed_value path_access_result =