summaryrefslogtreecommitdiff
path: root/compiler/Interpreter.ml
diff options
context:
space:
mode:
authorSon Ho2024-03-08 23:54:06 +0100
committerSon Ho2024-03-08 23:54:06 +0100
commit39f7598a1dc26075899a4b9a53c30577ee699b02 (patch)
treef307c3241889ad5b8d88df669e6a7dc6dbd768ca /compiler/Interpreter.ml
parent8f1972dddbd25ff2153bdf3dabd743256fec03a4 (diff)
Fix some issues
Diffstat (limited to '')
-rw-r--r--compiler/Interpreter.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/Interpreter.ml b/compiler/Interpreter.ml
index 0634eed7..fd3e334b 100644
--- a/compiler/Interpreter.ml
+++ b/compiler/Interpreter.ml
@@ -358,6 +358,7 @@ let evaluate_function_symbolic_synthesize_backward_from_return (config : config)
in
if not inside_loop then (Some fun_abs_id, true)
else
+ (* We are inside a loop *)
let pred (abs : abs) =
match abs.kind with
| Loop (_, rg_id', kind) ->