summaryrefslogtreecommitdiff
path: root/src/bytecode_util.ml
diff options
context:
space:
mode:
authorAlasdair Armstrong2018-08-17 18:49:33 +0100
committerAlasdair Armstrong2018-08-17 20:42:09 +0100
commitc0f68b6712c916a3cf16f933840a48ec22330289 (patch)
tree549577f558afb31e4171229e37783fce532835bc /src/bytecode_util.ml
parentc3595cbfc8f4f04cb13c693054ba62487bcd0e24 (diff)
Improve builtins tests
Test the builtin functions by compiling them to C, OCaml, and OCaml via Lem. Split up some of the longer builtin test programs to avoid stack overflows when compiling to OCaml, as 3000+ line long blocks can cause issues with some re-writing steps. Also test constant-folding with builtins (this should reduce the asserts in these files to assert true), and also test constant folding with the C compilation. Fix a bug whereby vectors with heap-allocated elements were not initialized correctly. Fix a bug caused by compiling and optimising empty vector literals. Fix an OCaml test case that broke due to the ref type being used. Now uses references to registers. Fix a bug where Sail would output big integers that lem can't parse. Checks if integer is between Int32.min_int and Int32.max_int and if not, use integerOfString to represent the integer. Really this should be fixed in Lem. Make the python test runner script the default for testing builtins and running the C compilation tests in test/run_tests.sh Add a ocaml_build_dir option that sets a custom build directory for OCaml. This is needed for running OCaml tests in parallel so the builds don't clobber one another.
Diffstat (limited to 'src/bytecode_util.ml')
-rw-r--r--src/bytecode_util.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/bytecode_util.ml b/src/bytecode_util.ml
index 3e674cfd..fa41e1e1 100644
--- a/src/bytecode_util.ml
+++ b/src/bytecode_util.ml
@@ -136,6 +136,7 @@ let rec frag_rename from_id to_id = function
(**************************************************************************)
let string_of_value = function
+ | V_bits [] -> "UINT64_C(0)"
| V_bits bs -> "UINT64_C(" ^ Sail2_values.show_bitlist bs ^ ")"
| V_int i -> Big_int.to_string i ^ "l"
| V_bool true -> "true"