diff options
| author | Alasdair Armstrong | 2017-08-10 23:28:43 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-08-10 23:28:43 +0100 |
| commit | 01f382196302e378c377c96bf249236e06d7291c (patch) | |
| tree | 69bfa09d2ec3d8011740f3f322e37f8112c5e0a9 /src/gen_lib/prompt.lem | |
| parent | de787176067f4569af1ed4133b0edf72d4dcd4a1 (diff) | |
| parent | 588c45e84642425fe9530f4ef6a44753cc54a0f8 (diff) | |
Merge remote-tracking branch 'origin/sail_new_tc' into experiments
Conflicts:
src/pretty_print_common.ml
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 |