diff options
Diffstat (limited to 'src/gen_lib/prompt.lem')
| -rw-r--r-- | src/gen_lib/prompt.lem | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/gen_lib/prompt.lem b/src/gen_lib/prompt.lem index 6d895a87..4018fd54 100644 --- a/src/gen_lib/prompt.lem +++ b/src/gen_lib/prompt.lem @@ -32,8 +32,8 @@ let inline (>>=) = bind val (>>) : forall 'b. M unit -> M 'b -> M 'b let inline (>>) m n = m >>= fun _ -> n -val exit : forall 'a. string -> M 'a -let exit s = Fail (Just s) +val exit : forall 'a 'b. 'b -> M 'a +let exit s = Fail Nothing val read_mem : end_flag -> bool -> read_kind -> vector bitU -> integer -> M (vector bitU) let read_mem endian dir rk addr sz = @@ -93,6 +93,9 @@ let write_reg_field reg regfield v = let write_reg_bitfield reg regfield bit = write_reg_aux (extern_reg_field_whole reg regfield) (Vector [bit] 0 (is_inc_of_reg reg)) +let write_reg_field_range reg regfield i j v = + write_reg_aux (extern_reg_field_slice reg regfield (natFromInteger i,natFromInteger j)) v + val barrier : barrier_kind -> M unit |