X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fdiskimage_fat.ml;h=d6ead264b546c572eabc1e47ce2284016a530b00;hb=5318d6037135dbb8f53074d8003af769132d72bd;hp=7c2108eb74b78d3694c1f3f5b390d9ec04295345;hpb=55367debbc746759d3536e163d46b104cb58f323;p=virt-df.git

diff --git a/lib/diskimage_fat.ml b/lib/diskimage_fat.ml
index 7c2108e..d6ead26 100644
--- a/lib/diskimage_fat.ml
+++ b/lib/diskimage_fat.ml
@@ -82,14 +82,14 @@ and probe_superblock dev =
       root_directory_cluster : 32 : littleendian;
       _ : 16;				(* FS information sector *)
       _ : 16;				(* Backup of boot sector *)
-      pad : 12*8 : bitstring;		(* Reserved *)
+      _ : 12*8 : bitstring;		(* Reserved *)
       _ : 8;				(* Physical drive number *)
       _ : 8;				(* Reserved *)
       _ : 8;				(* Extended boot signature *)
       serial : 32 : littleendian;	(* Serial number. *)
       volume_label : 88 : string;	(* Volume label. *)
       "FAT32   " : 64 : string;		(* FAT32 identifier. *)
-      code : 420*8 : bitstring;		(* Boot code. *)
+      _ : 420*8 : bitstring;		(* Boot code. *)
       0x55AA : 16 } ->			(* End of bootsector magic. *)
 
       let blocksize = bytes_per_sector * sectors_per_cluster in