diff options
| author | Brian Campbell | 2018-07-23 16:14:12 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-07-23 16:15:53 +0100 |
| commit | f3ef82fee78d40c628d319dab4cc35a41c638e8e (patch) | |
| tree | 94a4ac32a05c69f0ef9a69d99e6207e9777f9e68 /src/process_file.ml | |
| parent | 4c25326519d00bc781d6ee33ca507d1d525af686 (diff) | |
Coq: make all pattern matches in the output exhaustive
Uses previous stage to deal with (e.g.) guards.
New option -dcoq_warn_nonex tells you where all of the extra default
cases were added.
Diffstat (limited to 'src/process_file.ml')
| -rw-r--r-- | src/process_file.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/process_file.ml b/src/process_file.ml index 9ed52e8d..c3e1b510 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -398,7 +398,7 @@ let rewrite rewriters defs = let rewrite_ast = rewrite [("initial", Rewriter.rewrite_defs)] let rewrite_undefined bitvectors = rewrite [("undefined", fun x -> Rewrites.rewrite_undefined bitvectors x)] let rewrite_ast_lem = rewrite Rewrites.rewrite_defs_lem -let rewrite_ast_coq = rewrite Rewrites.rewrite_defs_lem +let rewrite_ast_coq = rewrite Rewrites.rewrite_defs_coq let rewrite_ast_ocaml = rewrite Rewrites.rewrite_defs_ocaml let rewrite_ast_c ast = ast |