diff options
| author | Alasdair Armstrong | 2018-07-24 18:09:18 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-07-24 18:09:18 +0100 |
| commit | 6b4f407ad34ca7d4d8a89a5a4d401ac80c7413b0 (patch) | |
| tree | ed09b22b7ea4ca20fbcc89b761f1955caea85041 /src/rewrites.mli | |
| parent | dafb09e7c26840dce3d522fef3cf359729ca5b61 (diff) | |
| parent | 8114501b7b956ee4a98fa8599c7efee62fc19206 (diff) | |
Merge remote-tracking branch 'origin/sail2' into c_fixes
Diffstat (limited to 'src/rewrites.mli')
| -rw-r--r-- | src/rewrites.mli | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/rewrites.mli b/src/rewrites.mli index 70cb75af..7d6bc0b2 100644 --- a/src/rewrites.mli +++ b/src/rewrites.mli @@ -66,6 +66,13 @@ val rewrite_defs_interpreter : (string * (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 +(* Perform rewrites to exclude AST nodes not supported for coq out*) +val rewrite_defs_coq : (string * (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 |