diff options
| author | Thomas Bauereiss | 2019-01-31 13:42:24 +0000 |
|---|---|---|
| committer | Thomas Bauereiss | 2019-01-31 13:42:24 +0000 |
| commit | 2cc9a0795a571140fa039bdc9a02e70d47f3c7cb (patch) | |
| tree | fe8e309b1b20530760747ff2f9c3115cab97f400 /src/gen_lib/sail2_values.lem | |
| parent | 3d375ec372aa25405beaddbef68a5eeeffcc66a2 (diff) | |
| parent | def64efa7620f6cce2b58d4158ce6df3a1d9847d (diff) | |
Merge branch 'monads' into asl_flow2
Diffstat (limited to 'src/gen_lib/sail2_values.lem')
| -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 8957f0dd..fa1e8426 100644 --- a/src/gen_lib/sail2_values.lem +++ b/src/gen_lib/sail2_values.lem @@ -625,6 +625,9 @@ let extz_bv n v = extz_bits n (bits_of v) val exts_bv : forall 'a. Bitvector 'a => integer -> 'a -> list bitU let exts_bv n v = exts_bits n (bits_of v) +val nat_of_bv : forall 'a. Bitvector 'a => 'a -> maybe nat +let nat_of_bv v = Maybe.map nat_of_int (unsigned v) + val string_of_bv : forall 'a. Bitvector 'a => 'a -> string let string_of_bv v = show_bitlist (bits_of v) |