let construct_int64_ne_unsigned =
if nativeendian = BigEndian
then construct_int64_be_unsigned
- else (*construct_int64_le_unsigned*)
- fun _ _ _ _ -> failwith "construct_int64_le_unsigned"
+ else construct_int64_le_unsigned
let construct_int64_ee_unsigned = function
| BigEndian -> construct_int64_be_unsigned
- | LittleEndian -> (*construct_int64_le_unsigned*)
- (fun _ _ _ _ -> failwith "construct_int64_le_unsigned")
+ | LittleEndian -> construct_int64_le_unsigned
| NativeEndian -> construct_int64_ne_unsigned
(* Construct from a string of bytes, exact multiple of 8 bits
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
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