git.annexia.org
/
ocaml-bitstring.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Include CHANGES file in tarball.
[ocaml-bitstring.git]
/
examples
/
elf.ml
diff --git
a/examples/elf.ml
b/examples/elf.ml
index
bafb490
..
f8bf341
100644
(file)
--- a/
examples/elf.ml
+++ b/
examples/elf.ml
@@
-11,8
+11,8
@@
let () =
bitmatch bits with
| { 0x7f : 8; "ELF" : 24 : string; (* ELF magic number *)
_ : 12*8 : bitstring; (* ELF identifier *)
bitmatch bits with
| { 0x7f : 8; "ELF" : 24 : string; (* ELF magic number *)
_ : 12*8 : bitstring; (* ELF identifier *)
- e_type : 16
;
(* object file type *)
- e_machine : 16
(* architecture *)
+ e_type : 16
: littleendian;
(* object file type *)
+ e_machine : 16
: littleendian
(* architecture *)
} ->
printf "%s: ELF binary, type %d, arch %d\n" filename e_type e_machine
} ->
printf "%s: ELF binary, type %d, arch %d\n" filename e_type e_machine