summaryrefslogtreecommitdiff
path: root/compiler/InterpreterLoopsFixedPoint.mli
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--compiler/InterpreterLoopsFixedPoint.mli10
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/InterpreterLoopsFixedPoint.mli b/compiler/InterpreterLoopsFixedPoint.mli
index d367c94c..59d42812 100644
--- a/compiler/InterpreterLoopsFixedPoint.mli
+++ b/compiler/InterpreterLoopsFixedPoint.mli
@@ -13,7 +13,7 @@ open InterpreterLoopsCore
- config
- fixed ids (the fixeds ids are the ids we consider as non-fresh)
*)
-val cleanup_fresh_values_and_abs : config -> Meta.meta -> ids_sets -> Cps.cm_fun
+val cleanup_fresh_values_and_abs : config -> Meta.span -> ids_sets -> Cps.cm_fun
(** Prepare the shared loans in the abstractions by moving them to fresh
abstractions.
@@ -60,7 +60,7 @@ val cleanup_fresh_values_and_abs : config -> Meta.meta -> ids_sets -> Cps.cm_fun
we only introduce a fresh abstraction for [l1].
*)
-val prepare_ashared_loans : Meta.meta -> loop_id option -> Cps.cm_fun
+val prepare_ashared_loans : Meta.span -> loop_id option -> Cps.cm_fun
(** Compute a fixed-point for the context at the entry of the loop.
We also return:
@@ -78,7 +78,7 @@ val prepare_ashared_loans : Meta.meta -> loop_id option -> Cps.cm_fun
*)
val compute_loop_entry_fixed_point :
config ->
- Meta.meta ->
+ Meta.span ->
loop_id ->
(* This function is the function to evaluate the loop body (eval_statement applied
to the proper arguments) *)
@@ -163,7 +163,7 @@ val compute_loop_entry_fixed_point :
through the loan [l1] is actually the value which has to be given back to [l0].
*)
val compute_fixed_point_id_correspondance :
- Meta.meta -> ids_sets -> eval_ctx -> eval_ctx -> borrow_loan_corresp
+ Meta.span -> ids_sets -> eval_ctx -> eval_ctx -> borrow_loan_corresp
(** Compute the set of "quantified" symbolic value ids in a fixed-point context.
@@ -172,7 +172,7 @@ val compute_fixed_point_id_correspondance :
- the list of input symbolic values
*)
val compute_fp_ctx_symbolic_values :
- Meta.meta ->
+ Meta.span ->
eval_ctx ->
eval_ctx ->
symbolic_value_id_set * symbolic_value list