diff options
| author | Thomas Bauereiss | 2019-01-31 14:41:47 +0000 |
|---|---|---|
| committer | Thomas Bauereiss | 2019-01-31 14:41:47 +0000 |
| commit | 6070a0775d61a1551b8e2c1ca2ff7e39f2ba32f4 (patch) | |
| tree | 0b25dd9bd00d70955201eb898f77a00fbc987f6f /lib | |
| parent | 2cc9a0795a571140fa039bdc9a02e70d47f3c7cb (diff) | |
Adapt HOL library to monad changes
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/hol/sail2_prompt_monad.lem | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/hol/sail2_prompt_monad.lem b/lib/hol/sail2_prompt_monad.lem index 3af931a5..5f0f7478 100644 --- a/lib/hol/sail2_prompt_monad.lem +++ b/lib/hol/sail2_prompt_monad.lem @@ -34,16 +34,17 @@ let inline try_catchR = try_catchRS let inline maybe_fail = maybe_failS +let inline read_memt_bytes = read_memt_bytesS let inline read_mem_bytes = read_mem_bytesS let inline read_reg = read_regS let inline reg_deref = read_regS +let inline read_memt = read_memtS let inline read_mem = read_memS -let inline read_tag = read_tagS let inline excl_result = excl_resultS let inline write_reg = write_regS -let inline write_tag = write_tagS -let inline write_mem_ea wk addr sz = write_mem_eaS wk addr (nat_of_int sz) -let inline write_mem_val = write_mem_valS +let inline write_mem_ea wk addr sz = return () +let inline write_memt = write_memtS +let inline write_mem = write_memS let barrier _ = return () let inline assert_exp = assert_expS |