diff options
| author | Son HO | 2022-09-22 18:52:15 +0200 |
|---|---|---|
| committer | GitHub | 2022-09-22 18:52:15 +0200 |
| commit | dd75894c85bbaa5dc6aa54d39980e160e5b7777f (patch) | |
| tree | ece56b01bcadea24a3c373236f0254f47e32a98f /src/Pure.ml | |
| parent | d8f92140abd7e65b6f1c5dd7e511c0c0aa69e73f (diff) | |
| parent | 0d5fb87166cc4eb4ddc783d871ad459479fc9fdc (diff) | |
Merge pull request #1 from AeneasVerif/constants-v2
Implement support for globals
Diffstat (limited to '')
| -rw-r--r-- | src/Pure.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Pure.ml b/src/Pure.ml index 5834b87f..afda2caa 100644 --- a/src/Pure.ml +++ b/src/Pure.ml @@ -11,6 +11,7 @@ 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 @@ -303,6 +304,7 @@ type projection = { adt_id : type_id; field_id : FieldId.id } [@@deriving show] type qualif_id = | Func of fun_id + | Global of GlobalDeclId.id | AdtCons of adt_cons_id (** A function or ADT constructor identifier *) | Proj of projection (** Field projector *) [@@deriving show] @@ -575,5 +577,6 @@ type fun_decl = { (to identify the forward/backward functions) later. *) signature : fun_sig; + is_global_decl_body : bool; body : fun_body option; } |