diff options
| author | Son Ho | 2022-09-22 18:40:08 +0200 |
|---|---|---|
| committer | Son Ho | 2022-09-22 18:40:08 +0200 |
| commit | e1b9c968752946e36aeaed1f01272f8481b1a6f1 (patch) | |
| tree | e01ff191672761135872c60bfb65500dc5527ea8 /src/Pure.ml | |
| parent | 34fed5feb6b768cdf1489936cc1529898bdcc4e9 (diff) | |
Make minor cleanup
Diffstat (limited to '')
| -rw-r--r-- | src/Pure.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Pure.ml b/src/Pure.ml index ced56c6a..afda2caa 100644 --- a/src/Pure.ml +++ b/src/Pure.ml @@ -10,6 +10,8 @@ module RegionGroupId = T.RegionGroupId module VariantId = T.VariantId module FieldId = T.FieldId module SymbolicValueId = V.SymbolicValueId +module FunDeclId = A.FunDeclId +module GlobalDeclId = A.GlobalDeclId module SynthPhaseId = IdGen () (** We give an identifier to every phase of the synthesis (forward, backward @@ -302,7 +304,7 @@ type projection = { adt_id : type_id; field_id : FieldId.id } [@@deriving show] type qualif_id = | Func of fun_id - | Global of A.GlobalDeclId.id + | Global of GlobalDeclId.id | AdtCons of adt_cons_id (** A function or ADT constructor identifier *) | Proj of projection (** Field projector *) [@@deriving show] @@ -566,7 +568,7 @@ type fun_body = { } type fun_decl = { - def_id : A.FunDeclId.id; + def_id : FunDeclId.id; back_id : T.RegionGroupId.id option; basename : fun_name; (** The "base" name of the function. |