summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--checklink/Check.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/checklink/Check.ml b/checklink/Check.ml
index b5f1f3b..9608767 100644
--- a/checklink/Check.ml
+++ b/checklink/Check.ml
@@ -2987,7 +2987,8 @@ let string_of_range a b = "[0x" ^ Printf.sprintf "%08lx" a ^ " - 0x" ^
let is_padding bs start stop =
let bs_start = start * 8 in
let bs_length = (stop - start + 1) * 8 in
- is_zeros (Bitstring.subbitstring bs bs_start bs_length) bs_length
+ start <= stop &&
+ is_zeros (Bitstring.subbitstring bs bs_start bs_length) bs_length
(** This functions goes through the list of checked bytes, and tries to find
padding in it. That is, it takes pairs of chunks in order, and adds a