diff options
| author | Brian Campbell | 2017-10-23 16:01:38 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-10-23 16:01:38 +0100 |
| commit | fd21c0ca241418775d905184a6d619ddb11cafa3 (patch) | |
| tree | 8ac787347b4f7942424d0d1db2722c9b493c5422 /src/gen_lib/sail_operators.lem | |
| parent | f96323c57a1a1c1d6f11f2c85c9bb88c4de92ee8 (diff) | |
| parent | 74b6c74b7407f7141796cb109c750f86659d1d2d (diff) | |
Merge branch 'experiments' into mono-experiments
Diffstat (limited to 'src/gen_lib/sail_operators.lem')
| -rw-r--r-- | src/gen_lib/sail_operators.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gen_lib/sail_operators.lem b/src/gen_lib/sail_operators.lem index 30c7325e..d9bf8454 100644 --- a/src/gen_lib/sail_operators.lem +++ b/src/gen_lib/sail_operators.lem @@ -144,7 +144,7 @@ let to_bin n = List.reverse (to_bin_aux n) val pad_zero : list bitU -> integer -> list bitU let rec pad_zero bits n = - if n = 0 then bits else pad_zero (B0 :: bits) (n -1) + if n <= 0 then bits else pad_zero (B0 :: bits) (n -1) let rec add_one_bit_ignore_overflow_aux bits = match bits with |