diff options
| author | Alasdair Armstrong | 2019-02-04 20:30:08 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-02-04 20:30:08 +0000 |
| commit | 8347e409564c19963a55e88358eeb88dab6b865c (patch) | |
| tree | fcbcbee9736dccc6356722423b4bdc6ec3d1f2a3 /src/gen_lib | |
| parent | a92a6573ea2d7cf88c1c7ac8dcc79a241aea0df7 (diff) | |
Add dec_str builtin to lem
Diffstat (limited to 'src/gen_lib')
| -rw-r--r-- | src/gen_lib/sail2_values.lem | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/gen_lib/sail2_values.lem b/src/gen_lib/sail2_values.lem index f21a4772..5e6537a8 100644 --- a/src/gen_lib/sail2_values.lem +++ b/src/gen_lib/sail2_values.lem @@ -638,6 +638,9 @@ let string_of_bv v = show_bitlist (bits_of v) val print_bits : forall 'a. Bitvector 'a => string -> 'a -> unit let print_bits str v = print_endline (str ^ string_of_bv v) +val dec_str : integer -> string +let dec_str bv = show bv + val concat_str : string -> string -> string let concat_str str1 str2 = str1 ^ str2 |