diff options
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] |