From 6a0ee18159cc910c59aabb6a9dc644523ec3b4d8 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Wed, 27 Aug 2008 12:55:34 +0000 Subject: [PATCH 1/1] Fix buggy construct_int64_ne_unsigned and construct_int64_ee_unsigned functions. --- bitstring.ml | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/bitstring.ml b/bitstring.ml index 156dec1..48351bc 100644 --- a/bitstring.ml +++ b/bitstring.ml @@ -967,13 +967,11 @@ let construct_int64_le_unsigned buf v flen exn = 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 -- 1.8.3.1