summaryrefslogtreecommitdiff
path: root/compiler/Main.ml
diff options
context:
space:
mode:
authorEscherichia2024-06-18 22:47:35 +0200
committerGitHub2024-06-18 22:47:35 +0200
commitaa8e74197687ecc6d8f925babc8ba3cd6c739990 (patch)
treef9975ae9f6276e8bd9db866621497a53485007d1 /compiler/Main.ml
parent370f2668f0a36fb31ed9abb4ba613dad333cf406 (diff)
Support for renaming using the rename attribute in charon (#239)
* support for renaming using the rename attribute in charon * support for global decl * add support for renaming field * applied suggested changes and began adding support for variant * finished support for renaming variant * applied suggested changes * add tests * fixed variant and field renaming * update charon-pin * update flake.lock * Update the charon pin * Fix an issue with renaming trait method implementations * Fix an issue with the renaming of trait implementations * Fix an issue when renaming enumerations * Update the Charon pin * Fix the F* tests * Fix an issue with the spans for the loops * Fix the tests * Update a comment * Use fuel in the coq tests * Generate the template decreases clauses by default --------- Co-authored-by: Escherichia <escherichia@charlotte> Co-authored-by: Son Ho <hosonmarc@gmail.com>
Diffstat (limited to '')
-rw-r--r--compiler/Main.ml17
1 files changed, 10 insertions, 7 deletions
diff --git a/compiler/Main.ml b/compiler/Main.ml
index 1bf9196a..d78b9081 100644
--- a/compiler/Main.ml
+++ b/compiler/Main.ml
@@ -97,10 +97,11 @@ let () =
( "-backward-no-state-update",
Arg.Set backward_no_state_update,
" Forbid backward functions from updating the state" );
- ( "-template-clauses",
- Arg.Set extract_template_decreases_clauses,
- " Generate templates for the required decreases clauses/termination \
- measures, in a dedicated file. Implies -decreases-clauses" );
+ ( "-no-template-clauses",
+ Arg.Clear extract_template_decreases_clauses,
+ " Do not generate templates for the required decreases \
+ clauses/termination measures, in a dedicated file, if you also put \
+ the option -decreases-clauses" );
( "-split-files",
Arg.Set split_files,
" Split the definitions between different files for types, functions, \
@@ -180,10 +181,12 @@ let () =
if !print_llbc then main_log#set_level EL.Debug;
- (* Sanity check (now that the arguments are parsed!): -template-clauses ==> decrease-clauses *)
+ (* Sanity check (now that the arguments are parsed!) *)
check_arg_implies
- !extract_template_decreases_clauses
- "-template-clauses" !extract_decreases_clauses "-decreases-clauses";
+ (not !extract_template_decreases_clauses)
+ "-no-template-clauses" !extract_decreases_clauses "-decreases-clauses";
+ if not !extract_decreases_clauses then
+ extract_template_decreases_clauses := false;
(* Sanity check: -backward-no-state-update ==> -state *)
check_arg_implies !backward_no_state_update "-backward-no-state-update"
!use_state "-state";