From: Richard W.M. Jones <rich@annexia.org>
Date: Wed, 27 Aug 2008 12:55:34 +0000 (+0000)
Subject: Fix buggy construct_int64_ne_unsigned and construct_int64_ee_unsigned functions.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=6a0ee18159cc910c59aabb6a9dc644523ec3b4d8;hp=77f34507469352a2898d77b7c7ea3c5e49499b94;p=ocaml-bitstring.git

Fix buggy construct_int64_ne_unsigned and construct_int64_ee_unsigned functions.
---

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