X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Felf.ml;h=f8bf341c7e8946499d855fffc2e0cd32e571c674;hb=5522213ceeb1a53555ab0d8354a9dc789e488784;hp=bafb490b18eb710376d2f02ea2a644fa3e620613;hpb=00f782f26fa89fa07dabb7155707b1415f50572b;p=ocaml-bitstring.git

diff --git a/examples/elf.ml b/examples/elf.ml
index bafb490..f8bf341 100644
--- 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 *)
-      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