diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/mono_rewrites.sail | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/mono_rewrites.sail b/lib/mono_rewrites.sail index 1af9b17f..167a2fdd 100644 --- a/lib/mono_rewrites.sail +++ b/lib/mono_rewrites.sail @@ -27,6 +27,10 @@ val "exts_vec" : forall 'n 'm. (atom('m),vector('n, dec, bit)) -> vector('m, dec val extsv : forall 'n 'm. vector('n, dec, bit) -> vector('m, dec, bit) effect pure function extsv(v) = exts_vec(sizeof('m),v) +/* This is generated internally to deal with case splits which reveal the size + of a bitvector */ +val bitvector_cast = "zeroExtend" : forall 'n. bits('n) -> bits('n) effect pure + /* Definitions for the rewrites */ val slice_mask : forall 'n, 'n >= 0. (int, int) -> bits('n) effect pure |