summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSon Ho2022-02-03 22:53:54 +0100
committerSon Ho2022-02-03 22:53:54 +0100
commit88608b517e3a3fb556155440a4e2908b414c9826 (patch)
tree296d8957c1c4f09322c9490c1b414afb17869b49
parentf6cad578be588004b0f643083b0ea1274c389462 (diff)
Make minor modifications
Diffstat (limited to '')
-rw-r--r--Makefile6
-rw-r--r--fstar/Primitives.fst2
-rw-r--r--src/Translate.ml2
3 files changed, 7 insertions, 3 deletions
diff --git a/Makefile b/Makefile
index 3227e0eb..3c9d9f1e 100644
--- a/Makefile
+++ b/Makefile
@@ -17,7 +17,8 @@ build-run:
build-run-check-trace: generate-cfim
dune build src/main.exe && \
dune exec src/main.exe $(CFIM_TEST_FILE) > tests/trace_current.txt && \
- cmp tests/trace_reference.txt tests/trace_current.txt
+ cmp tests/trace_reference.txt tests/trace_current.txt && \
+ cp fstar/Primitives.fst $(CHARON_TESTS_DIR)
# Build the project and update the trace
.PHONY: regen-trace
@@ -25,7 +26,8 @@ regen-trace: generate-cfim
dune build src/main.exe && \
dune exec src/main.exe $(CFIM_TEST_FILE) > tests/trace_current.txt && \
rm -f tests/trace_reference.txt && \
- cp tests/trace_current.txt tests/trace_reference.txt
+ cp tests/trace_current.txt tests/trace_reference.txt \
+ cp fstar/Primitives.fst $(CHARON_TESTS_DIR)
.PHONY: generate-cfim
generate-cfim:
diff --git a/fstar/Primitives.fst b/fstar/Primitives.fst
index 1b3972cc..6771fe93 100644
--- a/fstar/Primitives.fst
+++ b/fstar/Primitives.fst
@@ -2,7 +2,7 @@
module Primitives
open FStar.Mul
-#set-options "--z3rlimit 50 --fuel 0 --ifuel 1"
+#set-options "--z3rlimit 15 --fuel 0 --ifuel 1"
(*** Result *)
type result (a : Type0) : Type0 =
diff --git a/src/Translate.ml b/src/Translate.ml
index 47426c81..a5189606 100644
--- a/src/Translate.ml
+++ b/src/Translate.ml
@@ -340,6 +340,8 @@ let translate_module (filename : string) (config : C.partial_config)
Format.pp_print_break fmt 0 0;
Format.pp_print_string fmt "open FStar.Mul";
Format.pp_print_break fmt 0 0;
+ Format.pp_print_string fmt "open Primitives";
+ Format.pp_print_break fmt 0 0;
Format.pp_print_break fmt 0 0;
Format.pp_print_string fmt "#set-options \"--z3rlimit 50 --fuel 0 --ifuel 1\"";
Format.pp_print_break fmt 0 0;