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/process_file.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/process_file.ml')
| -rw-r--r-- | src/process_file.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/process_file.ml b/src/process_file.ml index a0245c8f..2cf0325e 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -48,6 +48,7 @@ (* SUCH DAMAGE. *) (**************************************************************************) +open Ast_defs open PPrint open Pretty_print_common @@ -263,7 +264,7 @@ let opt_ddump_tc_ast = ref false let opt_ddump_rewrite_ast = ref None let opt_dno_cast = ref false -let check_ast (env : Type_check.Env.t) (defs : unit Ast.defs) : Type_check.tannot Ast.defs * Type_check.Env.t = +let check_ast (env : Type_check.Env.t) (defs : unit defs) : Type_check.tannot defs * Type_check.Env.t = let env = if !opt_dno_cast then Type_check.Env.no_casts env else env in let ast, env = Type_error.check env defs in let () = if !opt_ddump_tc_ast then Pretty_print_sail.pp_defs stdout ast else () in |
