diff options
| author | Thomas Bauereiss | 2018-01-22 20:56:07 +0000 |
|---|---|---|
| committer | Thomas Bauereiss | 2018-01-22 22:10:44 +0000 |
| commit | b3f5dd5bac689bee9770081215bd0b1fe1071084 (patch) | |
| tree | 1953899ef9810ee5c60640a7b28e3f465a3cba0e /src/gen_lib/prompt.lem | |
| parent | 4cafba567b6610b239ab6b82b89073a1a8a49632 (diff) | |
Update Lem shallow embedding to Sail2
- Remove vector start indices
- Library refactoring: Definitions in sail_operators.lem now use Bitvector
type class and work for both bit list and machine word representations
- Add Lem bindings to AArch64 and RISC-V preludes
TODO: Merge specialised machine word operations from sail_operators_mwords into
sail_operators.
Diffstat (limited to 'src/gen_lib/prompt.lem')
| -rw-r--r-- | src/gen_lib/prompt.lem | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gen_lib/prompt.lem b/src/gen_lib/prompt.lem index 744b6f7f..5019c2f7 100644 --- a/src/gen_lib/prompt.lem +++ b/src/gen_lib/prompt.lem @@ -86,12 +86,12 @@ let try_catchR m h = end) -val read_mem : forall 'a 'b 'e. Bitvector 'a, Bitvector 'b => bool -> read_kind -> 'a -> integer -> M 'b 'e -let read_mem dir rk addr sz = +val read_mem : forall 'a 'b 'e. Bitvector 'a, Bitvector 'b => read_kind -> 'a -> integer -> M 'b 'e +let read_mem rk addr sz = let addr = address_lifted_of_bitv (bits_of addr) in let sz = natFromInteger sz in let k memory_value = - let bitv = of_bits (internal_mem_value dir memory_value) in + let bitv = of_bits (internal_mem_value memory_value) in (Done bitv,Nothing) in Read_mem (rk,addr,sz) k |
