diff options
author | Escherichia | 2024-03-21 12:34:40 +0100 |
---|---|---|
committer | Escherichia | 2024-03-28 15:24:42 +0100 |
commit | 5209cea7012cfa3b39a5a289e65e2ea5e166d730 (patch) | |
tree | b9f159ccc9dad0d24bd2dd619e77909b78578c20 /compiler/InterpreterExpansion.mli | |
parent | 8f89bd8df9f382284eabb5a2020a2fa634f92fac (diff) |
WIP: translate.ml and extract.ml do not compile. Some assert left to do and we need to see how translate_crate can give meta to the functions it calls
Diffstat (limited to 'compiler/InterpreterExpansion.mli')
-rw-r--r-- | compiler/InterpreterExpansion.mli | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/compiler/InterpreterExpansion.mli b/compiler/InterpreterExpansion.mli index b545f979..3540d04c 100644 --- a/compiler/InterpreterExpansion.mli +++ b/compiler/InterpreterExpansion.mli @@ -12,11 +12,11 @@ type proj_kind = LoanProj | BorrowProj This function does *not* update the synthesis. *) val apply_symbolic_expansion_non_borrow : - config -> symbolic_value -> symbolic_expansion -> eval_ctx -> eval_ctx + Meta.meta -> config -> symbolic_value -> symbolic_expansion -> eval_ctx -> eval_ctx (** Expand a symhbolic value, without branching *) val expand_symbolic_value_no_branching : - config -> symbolic_value -> SA.mplace option -> cm_fun + Meta.meta -> config -> symbolic_value -> SA.mplace option -> cm_fun (** Expand a symbolic enumeration (leads to branching if the enumeration has more than one variant). @@ -32,7 +32,7 @@ val expand_symbolic_value_no_branching : then call it). *) val expand_symbolic_adt : - config -> symbolic_value -> SA.mplace option -> st_cm_fun -> st_m_fun -> m_fun + Meta.meta -> config -> symbolic_value -> SA.mplace option -> st_cm_fun -> st_m_fun -> m_fun (** Expand a symbolic boolean. @@ -41,6 +41,7 @@ val expand_symbolic_adt : parameter (here, there are exactly two branches). *) val expand_symbolic_bool : + Meta.meta -> config -> symbolic_value -> SA.mplace option -> @@ -69,6 +70,7 @@ val expand_symbolic_bool : switch. The continuation is thus for the execution *after* the switch. *) val expand_symbolic_int : + Meta.meta -> config -> symbolic_value -> SA.mplace option -> @@ -81,4 +83,4 @@ val expand_symbolic_int : (** If this mode is activated through the [config], greedily expand the symbolic values which need to be expanded. See {!type:Contexts.config} for more information. *) -val greedy_expand_symbolic_values : config -> cm_fun +val greedy_expand_symbolic_values : Meta.meta -> config -> cm_fun |