blob: 9ce6c8daa826cdafdc579b7f930c845fc57cc866 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
module T = Types
module V = Values
open Scalars
module E = Expressions
open Errors
module C = Contexts
module Subst = Substitute
module A = CfimAst
module L = Logging
open TypesUtils
open ValuesUtils
module Inv = Invariants
open InterpreterUtils
(* TODO: the below functions have very "rough" signatures and do nothing: I
* defined them so that the places where we should update the synthesized
* program are clearly indicated in Interpreter.ml.
* Also, some of those functions will probably be split, and their call site
* will probably evolve.
*
* Small rk.: most functions should take an additional parameter for the
* fresh symbolic value which stores the result of the computation.
* For instance:
* `synthesize_binary_op Add op1 op2 s`
* should generate:
* `s := op1 + op2`
* *)
(** Synthesize code for a symbolic expansion which doesn't lead to branching
(i.e., applied on a value which is not an enumeration with several variants).
*)
let synthesize_symbolic_expansion_no_branching (sv : V.symbolic_value)
(see : symbolic_expansion) : unit =
()
(** Synthesize code for a symbolic expansion which leads to branching
(for instance when evaluating the discriminant of a symbolic value).
*)
let synthesize_symbolic_expansion_branching (sv : V.symbolic_value)
(seel : symbolic_expansion list) : unit =
()
let synthesize_unary_op (unop : E.unop) (op : V.typed_value)
(dest : V.symbolic_value) : unit =
()
let synthesize_binary_op (binop : E.binop) (op1 : V.typed_value)
(op2 : V.typed_value) (dest : V.symbolic_value) : unit =
()
(** Actually not sure if we need this, or a synthesize_symbolic_expansion_enum *)
let synthesize_eval_rvalue_discriminant (p : E.place) : unit = ()
let synthesize_eval_rvalue_ref (p : E.place) (bkind : E.borrow_kind) : unit = ()
let synthesize_eval_rvalue_aggregate (aggregate_kind : E.aggregate_kind)
(ops : E.operand list) : unit =
()
let synthesize_set_discriminant (p : E.place) (variant_id : T.VariantId.id) :
unit =
()
let synthesize_non_local_function_call (fid : A.assumed_fun_id)
(region_params : T.erased_region list) (type_params : T.ety list)
(args : E.operand list) (dest : E.place) : unit =
()
let synthesize_local_function_call (fid : A.FunDefId.id)
(region_params : T.erased_region list) (type_params : T.ety list)
(args : E.operand list) (dest : E.place) : unit =
()
|
