diff options
Diffstat (limited to 'src/gen_lib/sail_values.lem')
| -rw-r--r-- | src/gen_lib/sail_values.lem | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/gen_lib/sail_values.lem b/src/gen_lib/sail_values.lem index 50dacf5e..4cbcc269 100644 --- a/src/gen_lib/sail_values.lem +++ b/src/gen_lib/sail_values.lem @@ -498,6 +498,9 @@ let extz_bv n v = of_bits (extz_bits n (bits_of v)) val exts_bv : forall 'a 'b. Bitvector 'a, Bitvector 'b => integer -> 'a -> 'b let exts_bv n v = of_bits (exts_bits n (bits_of v)) +val string_of_bv : forall 'a. Bitvector 'a => 'a -> string +let string_of_bv v = show_bitlist (bits_of v) + (*** Bytes and addresses *) val byte_chunks : forall 'a. nat -> list 'a -> list (list 'a) |