diff options
| author | Alasdair Armstrong | 2019-02-12 18:18:05 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-02-12 18:18:05 +0000 |
| commit | 24fc989891ad266eae642815646294279e2485ca (patch) | |
| tree | d533fc26b5980d1144ee4d7849d3dd0f2a1b0e95 /src/rewrites.mli | |
| parent | b847a472a1f853d783d1af5f8eb033b97f33be5b (diff) | |
| parent | 974494b1dda38c1ee5c1502cc6e448e67a7374ac (diff) | |
Merge remote-tracking branch 'origin/asl_flow2' into sail2
Diffstat (limited to 'src/rewrites.mli')
| -rw-r--r-- | src/rewrites.mli | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/rewrites.mli b/src/rewrites.mli index aa793cb4..cea227a5 100644 --- a/src/rewrites.mli +++ b/src/rewrites.mli @@ -64,29 +64,29 @@ val opt_dmono_continue : bool ref val fresh_id : string -> l -> id (* Re-write undefined to functions created by -undefined_gen flag *) -val rewrite_undefined : bool -> tannot defs -> tannot defs +val rewrite_undefined : bool -> Env.t -> tannot defs -> tannot defs (* Perform rewrites to exclude AST nodes not supported for ocaml out*) -val rewrite_defs_ocaml : (string * (tannot defs -> tannot defs)) list +val rewrite_defs_ocaml : (string * (Env.t -> tannot defs -> tannot defs)) list (* Perform rewrites to exclude AST nodes not supported for interpreter *) -val rewrite_defs_interpreter : (string * (tannot defs -> tannot defs)) list +val rewrite_defs_interpreter : (string * (Env.t -> tannot defs -> tannot defs)) list (* Perform rewrites to exclude AST nodes not supported for lem out*) -val rewrite_defs_lem : (string * (tannot defs -> tannot defs)) list +val rewrite_defs_lem : (string * (Env.t -> tannot defs -> tannot defs)) list (* Perform rewrites to exclude AST nodes not supported for coq out*) -val rewrite_defs_coq : (string * (tannot defs -> tannot defs)) list +val rewrite_defs_coq : (string * (Env.t -> tannot defs -> tannot defs)) list (* Warn about matches where we add a default case for Coq because they're not exhaustive *) val opt_coq_warn_nonexhaustive : bool ref (* Perform rewrites to exclude AST nodes not supported for C compilation *) -val rewrite_defs_c : (string * (tannot defs -> tannot defs)) list +val rewrite_defs_c : (string * (Env.t -> tannot defs -> tannot defs)) list (* This is a special rewriter pass that checks AST invariants without actually doing any re-writing *) -val rewrite_defs_check : (string * (tannot defs -> tannot defs)) list +val rewrite_defs_check : (string * (Env.t -> tannot defs -> tannot defs)) list val simple_typ : typ -> typ |