diff options
| author | Son HO | 2024-03-20 06:48:08 +0100 |
|---|---|---|
| committer | GitHub | 2024-03-20 06:48:08 +0100 |
| commit | 0d52c3fe35d0b24de729bdfb917ad6c7104d0c6e (patch) | |
| tree | 7748d3c19a0993edc710690491a2dc6ea3a2b58f /compiler/SymbolicAst.ml | |
| parent | 8111c970fcae9d609961eba2ad6716e8c9fc1046 (diff) | |
| parent | 34850eed3c66f7f2c432294e4c589be53ad5d37b (diff) | |
Merge pull request #93 from AeneasVerif/son/examples
Add some examples and improve the shape of the generated code
Diffstat (limited to 'compiler/SymbolicAst.ml')
| -rw-r--r-- | compiler/SymbolicAst.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/SymbolicAst.ml b/compiler/SymbolicAst.ml index cc74a16b..e164fd49 100644 --- a/compiler/SymbolicAst.ml +++ b/compiler/SymbolicAst.ml @@ -65,6 +65,9 @@ type call = { type emeta = | Assignment of Contexts.eval_ctx * mplace * typed_value * mplace option (** We generated an assignment (destination, assigned value, src) *) + | Snapshot of Contexts.eval_ctx + (** Remember an environment snapshot - this is useful to check where the + symbolic values are, to compute proper names for instance *) [@@deriving show] type variant_id = VariantId.id [@@deriving show] |