diff options
| author | Thomas Bauereiss | 2018-07-07 22:47:57 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2018-07-09 14:47:49 +0100 |
| commit | 5d862dc23d4641a0e7d89cd747bc2ba4007ee8f5 (patch) | |
| tree | b3c5d3e5d903593db97d03c79f8ad0ad6cc89a27 /test/isabelle/Cheri_code.thy | |
| parent | 2529f5a65d70dfffe40ead73ae49aaa4d78fefb4 (diff) | |
Update CHERI code generation from Isabelle
Diffstat (limited to 'test/isabelle/Cheri_code.thy')
| -rw-r--r-- | test/isabelle/Cheri_code.thy | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/isabelle/Cheri_code.thy b/test/isabelle/Cheri_code.thy index cfd01413..13884ad5 100644 --- a/test/isabelle/Cheri_code.thy +++ b/test/isabelle/Cheri_code.thy @@ -50,7 +50,7 @@ fun write_char_mem :: "int \<Rightarrow> char \<Rightarrow> (regstate, unit, exc bindS (write_mem_valS BC_bitU_list (bits_of_nat 8 (nat_of_char c))) (\<lambda>_. returnS ()))" -definition "initial_state \<equiv> init_state initial_regstate (\<lambda>seed. (False, seed)) 0" +definition "initial_state \<equiv> init_state initial_regstate" code_printing constant elf_entry \<rightharpoonup> (OCaml) "(Arith.Int'_of'_integer (Elf'_loader.elf'_entry _))" code_printing constant get_time_ns \<rightharpoonup> (OCaml) "(Arith.Int'_of'_integer (Big'_int.big'_int'_of'_int (Pervasives.int'_of'_float (1e9 *. Unix.gettimeofday _))))" |