diff options
| author | Thomas Bauereiss | 2017-08-08 13:42:11 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2017-08-08 13:55:25 +0100 |
| commit | 3071a02cf521d076f1ac0f4c6069e4e943aa15e7 (patch) | |
| tree | 578dba89a6ce4c6aa2269051b1115543086d8184 /src/gen_lib/prompt.lem | |
| parent | 14e0846502714ee310f4a8dad7f96e3a0d8ed8bf (diff) | |
Glue together Sail prelude and Lem library
Diffstat (limited to 'src/gen_lib/prompt.lem')
| -rw-r--r-- | src/gen_lib/prompt.lem | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/gen_lib/prompt.lem b/src/gen_lib/prompt.lem index 70850dc1..0944f42b 100644 --- a/src/gen_lib/prompt.lem +++ b/src/gen_lib/prompt.lem @@ -78,6 +78,8 @@ let read_reg_bitfield reg regfield = read_reg_aux (external_reg_field_whole reg regfield) >>= fun v -> return (extract_only_element v) +let reg_deref = read_reg + val write_reg_aux : reg_name -> vector bitU -> M unit let write_reg_aux reg_name v = let regval = external_reg_value reg_name v in |