diff options
author | Son Ho | 2024-03-20 06:17:13 +0100 |
---|---|---|
committer | Son Ho | 2024-03-20 06:17:13 +0100 |
commit | e6f002cfc1dfa41362bbb3a005c4261d09c52c58 (patch) | |
tree | d0bda90f427825ef5702a3a1fcecff77e29e1458 /compiler/SymbolicAst.ml | |
parent | f3e16bb43a8ff27a5184d9fa452277cc6a59410f (diff) |
Improve the generation of pretty name and the micro passes
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] |