diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-11-27 15:37:32 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-11-27 15:37:32 +0100 |
| commit | 56690956f52349c3398b3de6f8ec3987501e9034 (patch) | |
| tree | 5fc98e863bb41018084b2110f0ae950189a7b7d6 /checklink/Bitstring_utils.ml | |
| parent | 853a40b117495ebf883593633f680cd5c92f5951 (diff) | |
| parent | c3b615f875ed2cf8418453c79c4621d2dc61b0a0 (diff) | |
| download | compcert-56690956f52349c3398b3de6f8ec3987501e9034.tar.gz compcert-56690956f52349c3398b3de6f8ec3987501e9034.zip | |
Merge branch 'master' into dwarf
Diffstat (limited to 'checklink/Bitstring_utils.ml')
| -rw-r--r-- | checklink/Bitstring_utils.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/checklink/Bitstring_utils.ml b/checklink/Bitstring_utils.ml index 2253b63f..3218f898 100644 --- a/checklink/Bitstring_utils.ml +++ b/checklink/Bitstring_utils.ml @@ -9,6 +9,13 @@ type bitstring = Bitstring.bitstring bitstring may be longer. @param size number of bits to check *) + +let is_zeros (bs: bitstring) (size: int): bool = + Bitstring.bitstring_length bs >= size + && Bitstring.is_zeroes_bitstring (Bitstring.subbitstring bs 0 size) + +(* + let rec is_zeros (bs: bitstring) (size: int): bool = size = 0 || if size >= 64 @@ -23,3 +30,4 @@ let rec is_zeros (bs: bitstring) (size: int): bool = | { 0L : size : int } -> true | { _ } -> false ) +*) |