summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorAymeric Fromherz2024-05-24 15:15:32 +0200
committerGitHub2024-05-24 15:15:32 +0200
commita580459241ac9d259134addc597ca4b1b4f005ae (patch)
tree838da53ae7e5be27e1dde684d0354a5ce2a1fd99 /compiler
parent3c8ea6df20f92be9c341bbfb748f65d6c598fead (diff)
parent4d33ea68ca1ebfca35b7d7332f63b74dd3c06838 (diff)
Merge pull request #202 from AeneasVerif/afromher_debug
Expand debug output in loops fixed points
Diffstat (limited to 'compiler')
-rw-r--r--compiler/InterpreterLoopsFixedPoint.ml17
1 files changed, 16 insertions, 1 deletions
diff --git a/compiler/InterpreterLoopsFixedPoint.ml b/compiler/InterpreterLoopsFixedPoint.ml
index 6c87f1c8..1a0bb090 100644
--- a/compiler/InterpreterLoopsFixedPoint.ml
+++ b/compiler/InterpreterLoopsFixedPoint.ml
@@ -594,6 +594,21 @@ let compute_loop_entry_fixed_point (config : config) (span : Meta.span)
"Nested loops are not supported for now"
in
let continue_ctxs = List.filter_map keep_continue_ctx ctx_resl in
+
+ log#ldebug
+ (lazy
+ ("compute_fixed_point: about to join with continue_ctx"
+ ^ "\n\n- ctx0:\n"
+ ^ eval_ctx_to_string_no_filter ~span:(Some span) ctx
+ ^ "\n\n"
+ ^ String.concat "\n\n"
+ (List.map
+ (fun ctx ->
+ "- continue_ctx:\n"
+ ^ eval_ctx_to_string_no_filter ~span:(Some span) ctx)
+ continue_ctxs)
+ ^ "\n\n"));
+
(* Compute the join between the original contexts and the contexts computed
upon reentry *)
let ctx1 = join_ctxs ctx continue_ctxs in
@@ -601,7 +616,7 @@ let compute_loop_entry_fixed_point (config : config) (span : Meta.span)
(* Debug *)
log#ldebug
(lazy
- ("compute_fixed_point:" ^ "\n\n- ctx0:\n"
+ ("compute_fixed_point: after joining continue ctxs" ^ "\n\n- ctx0:\n"
^ eval_ctx_to_string_no_filter ~span:(Some span) ctx
^ "\n\n- ctx1:\n"
^ eval_ctx_to_string_no_filter ~span:(Some span) ctx1