diff options
| author | Alasdair | 2020-09-28 15:01:04 +0100 |
|---|---|---|
| committer | Alasdair | 2020-09-28 15:34:06 +0100 |
| commit | cf42208a74138a32393073fef574c24bd73a27fc (patch) | |
| tree | d2cb2a894c87654c8b6209596fb30c100a65c072 /src/spec_analysis.ml | |
| parent | 551bca444eaf0acd97324c12005e9a8280437217 (diff) | |
Move the ast defs wrapper into it's own file
This refactoring is intended to allow this type to have more than just a
list of definitions in future.
Diffstat (limited to 'src/spec_analysis.ml')
| -rw-r--r-- | src/spec_analysis.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/spec_analysis.ml b/src/spec_analysis.ml index 542ecaae..bb30e971 100644 --- a/src/spec_analysis.ml +++ b/src/spec_analysis.ml @@ -49,8 +49,9 @@ (**************************************************************************) open Ast -open Util +open Ast_defs open Ast_util +open Util module Nameset = Set.Make(String) @@ -511,7 +512,7 @@ let fv_of_def consider_var consider_scatter_as_one all_defs = function Reporting.unreachable (id_loc id) __POS__ "Loop termination measures should be rewritten before now" -let group_defs consider_scatter_as_one (Ast.Defs defs) = +let group_defs consider_scatter_as_one (Defs defs) = List.map (fun d -> (fv_of_def false consider_scatter_as_one defs d,d)) defs |