diff options
Diffstat (limited to 'src/gen_lib/sail_values.lem')
| -rw-r--r-- | src/gen_lib/sail_values.lem | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/gen_lib/sail_values.lem b/src/gen_lib/sail_values.lem index 2fe69211..a89456b9 100644 --- a/src/gen_lib/sail_values.lem +++ b/src/gen_lib/sail_values.lem @@ -276,8 +276,6 @@ let ext_list pad len xs = if longer < 0 then drop (nat_of_int (abs (longer))) xs else pad_list pad xs longer -let vector_truncate bs len = ext_list B0 len bs - let extz_bools len bs = ext_list false len bs let exts_bools len bs = match bs with @@ -343,8 +341,6 @@ let exts_bits len bits = | _ -> ext_list B0 len bits end -let zero_extend bits len = extz_bits len bits - let rec add_one_bit_ignore_overflow_aux bits = match bits with | [] -> [] | B0 :: bits -> B1 :: bits |