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

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