git.annexia.org
/
ocaml-bitstring.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
77f3450
)
Fix buggy construct_int64_ne_unsigned and construct_int64_ee_unsigned functions.
author
Richard W.M. Jones
<rich@annexia.org>
Wed, 27 Aug 2008 12:55:34 +0000
(12:55 +0000)
committer
Richard W.M. Jones
<rich@annexia.org>
Wed, 27 Aug 2008 12:55:34 +0000
(12:55 +0000)
bitstring.ml
patch
|
blob
|
history
diff --git
a/bitstring.ml
b/bitstring.ml
index
156dec1
..
48351bc
100644
(file)
--- 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
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
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
| NativeEndian -> construct_int64_ne_unsigned
(* Construct from a string of bytes, exact multiple of 8 bits