diff options
| author | Brian Campbell | 2017-08-11 10:55:12 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-08-11 10:55:12 +0100 |
| commit | f97c4dac4a900a4b8b19522425a6df4f48a5b940 (patch) | |
| tree | 19263179a8d7fb7bcb9d55707eb4058140a8d29e /src/gen_lib/prompt.lem | |
| parent | ff469898d5f4e1c9b3cd6692f99dd1e1f2e700bc (diff) | |
| parent | 01f382196302e378c377c96bf249236e06d7291c (diff) | |
Merge branch 'experiments' into mono-experiments
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 |