From bbb1ea77402545d52af0bb0076923d99ecc4c9e2 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Tue, 8 Feb 2022 20:49:46 +0100
Subject: Add an option to allow the presence of bottom values below borrows

---
 src/InterpreterStatements.ml | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'src/InterpreterStatements.ml')

diff --git a/src/InterpreterStatements.ml b/src/InterpreterStatements.ml
index d36c653e..56d5a260 100644
--- a/src/InterpreterStatements.ml
+++ b/src/InterpreterStatements.ml
@@ -85,6 +85,12 @@ let push_vars (vars : (A.var * V.typed_value) list) : cm_fun =
 let assign_to_place (config : C.config) (rv : V.typed_value) (p : E.place) :
     cm_fun =
  fun cf ctx ->
+  log#ldebug
+    (lazy
+      ("assign_to_place:" ^ "\n- rv: "
+      ^ typed_value_to_string ctx rv
+      ^ "\n- p: " ^ place_to_string ctx p ^ "\n- Initial context:\n"
+      ^ eval_ctx_to_string ctx));
   (* Push the rvalue to a dummy variable, for bookkeeping *)
   let cc = push_dummy_var rv in
   (* Prepare the destination *)
@@ -104,6 +110,13 @@ let assign_to_place (config : C.config) (rv : V.typed_value) (p : E.place) :
     assert (not (bottom_in_value ctx.ended_regions rv));
     (* Update the destination *)
     let ctx = write_place_unwrap config Write p rv ctx in
+    (* Debug *)
+    log#ldebug
+      (lazy
+        ("assign_to_place:" ^ "\n- rv: "
+        ^ typed_value_to_string ctx rv
+        ^ "\n- p: " ^ place_to_string ctx p ^ "\n- Final context:\n"
+        ^ eval_ctx_to_string ctx));
     (* Continue *)
     cf ctx
   in
@@ -759,6 +772,10 @@ let rec eval_statement (config : C.config) (st : A.statement) : st_cm_fun =
         let cf_eval_rvalue = eval_rvalue config rvalue in
         (* Assign *)
         let cf_assign cf (res : (V.typed_value, eval_error) result) ctx =
+          log#ldebug
+            (lazy
+              ("about to assign to place: " ^ place_to_string ctx p
+             ^ "\n- Context:\n" ^ eval_ctx_to_string ctx));
           match res with
           | Error EPanic -> cf Panic ctx
           | Ok rv -> (
-- 
cgit v1.2.3