X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=bitstring.ml;h=831c3b213434b8c783c7a2aabde27f82cc5b73a6;hb=a75aa796d06ea9bc1a9472a7a44a31e63fa68e22;hp=48351bcd790ee799d41c084d009a1164b60125ff;hpb=6a0ee18159cc910c59aabb6a9dc644523ec3b4d8;p=ocaml-bitstring.git

diff --git a/bitstring.ml b/bitstring.ml
index 48351bc..831c3b2 100644
--- a/bitstring.ml
+++ b/bitstring.ml
@@ -1106,7 +1106,7 @@ let equals ((_, _, len1) as bs1) ((_, _, len2) as bs2) =
 let index_out_of_bounds () = invalid_arg "index out of bounds"
 
 let put (data, off, len) n v =
-  if n < 0 || off+n >= len then index_out_of_bounds ()
+  if n < 0 || n >= len then index_out_of_bounds ()
   else (
     let i = off+n in
     let si = i lsr 3 and mask = 0x80 lsr (i land 7) in
@@ -1120,7 +1120,7 @@ let set bits n = put bits n 1
 let clear bits n = put bits n 0
 
 let get (data, off, len) n =
-  if n < 0 || off+n >= len then index_out_of_bounds ()
+  if n < 0 || n >= len then index_out_of_bounds ()
   else (
     let i = off+n in
     let si = i lsr 3 and mask = 0x80 lsr (i land 7) in