Further code generation ** NOT WORKING **
authorRichard W.M. Jones <rjones@redhat.com>
Thu, 14 Aug 2008 16:01:27 +0000 (17:01 +0100)
committerRichard W.M. Jones <rjones@redhat.com>
Thu, 14 Aug 2008 16:01:27 +0000 (17:01 +0100)
27 files changed:
MANIFEST
extract/codegen/.depend
extract/codegen/Makefile.in
extract/codegen/code_generation.ml [new file with mode: 0644]
extract/codegen/code_generation.mli [new file with mode: 0644]
extract/codegen/compile_kerneldb.ml
extract/codegen/struct_classify.ml
extract/codegen/struct_classify.mli
lib/.depend
lib/Makefile.in
lib/kernel.ml [new file with mode: 0644]
lib/kernel.mli [new file with mode: 0644]
lib/kernel_in_device.ml [deleted file]
lib/kernel_in_device.mli [deleted file]
lib/kernel_in_ifaddr.ml [deleted file]
lib/kernel_in_ifaddr.mli [deleted file]
lib/kernel_inet6_dev.ml [deleted file]
lib/kernel_inet6_dev.mli [deleted file]
lib/kernel_inet6_ifaddr.ml [deleted file]
lib/kernel_inet6_ifaddr.mli [deleted file]
lib/kernel_net.ml [deleted file]
lib/kernel_net.mli [deleted file]
lib/kernel_net_device.ml [deleted file]
lib/kernel_net_device.mli [deleted file]
lib/kernel_task_struct.ml [deleted file]
lib/kernel_task_struct.mli [deleted file]
lib/virt_mem_kernels.ml

index 12eebab..382d878 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -5,6 +5,8 @@ dmesg/.depend
 dmesg/Makefile.in
 dmesg/virt_dmesg.ml
 extract/codegen/.depend
+extract/codegen/code_generation.ml
+extract/codegen/code_generation.mli
 extract/codegen/compile_kerneldb.ml
 extract/codegen/kerneldb_to_parser.ml
 extract/codegen/pahole_parser.ml
@@ -23,20 +25,8 @@ ifconfig/Makefile.in
 ifconfig/virt_ifconfig.ml
 install-sh
 lib/.depend
-lib/kernel_in_device.ml
-lib/kernel_in_device.mli
-lib/kernel_inet6_dev.ml
-lib/kernel_inet6_dev.mli
-lib/kernel_inet6_ifaddr.ml
-lib/kernel_inet6_ifaddr.mli
-lib/kernel_in_ifaddr.ml
-lib/kernel_in_ifaddr.mli
-lib/kernel_net.ml
-lib/kernel_net.mli
-lib/kernel_net_device.ml
-lib/kernel_net_device.mli
-lib/kernel_task_struct.ml
-lib/kernel_task_struct.mli
+lib/kernel.ml
+lib/kernel.mli
 lib/Makefile.in
 lib/test_mmap.ml
 lib/virt_mem_capture.ml
index af6233e..bfdc337 100644 (file)
@@ -1,6 +1,13 @@
+code_generation.cmi: struct_classify.cmi 
 struct_classify.cmi: pahole_parser.cmi 
-compile_kerneldb.cmo: struct_classify.cmi pahole_parser.cmi 
-compile_kerneldb.cmx: struct_classify.cmx pahole_parser.cmx 
+code_generation.cmo: struct_classify.cmi pahole_parser.cmi \
+    code_generation.cmi 
+code_generation.cmx: struct_classify.cmx pahole_parser.cmx \
+    code_generation.cmi 
+compile_kerneldb.cmo: struct_classify.cmi pahole_parser.cmi \
+    code_generation.cmi 
+compile_kerneldb.cmx: struct_classify.cmx pahole_parser.cmx \
+    code_generation.cmx 
 kerneldb_to_parser.cmo: pahole_parser.cmi 
 kerneldb_to_parser.cmx: pahole_parser.cmx 
 pahole_parser.cmo: pahole_parser.cmi 
index fb48f3f..a46541d 100644 (file)
@@ -37,6 +37,7 @@ TARGETS               = compile-kerneldb.opt
 
 OBJS           = pahole_parser.cmo \
                  struct_classify.cmo \
+                 code_generation.cmo \
                  compile_kerneldb.cmo
 XOBJS          = $(OBJS:.cmo=.cmx)
 
diff --git a/extract/codegen/code_generation.ml b/extract/codegen/code_generation.ml
new file mode 100644 (file)
index 0000000..2dba820
--- /dev/null
@@ -0,0 +1,158 @@
+(* Memory info command for virtual domains.
+   (C) Copyright 2008 Richard W.M. Jones, Red Hat Inc.
+   http://libvirt.org/
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *)
+
+open Camlp4.PreCast
+open Syntax
+(*open Ast*)
+
+open ExtList
+open ExtString
+open Printf
+
+module PP = Pahole_parser
+module SC = Struct_classify
+
+(* We don't care about locations when generating code, so it's
+ * useful to just have a single global _loc.
+ *)
+let _loc = Loc.ghost
+
+(* Some handy camlp4 construction functions which do some
+ * things that ought to be easy/obvious but aren't.
+ *
+ * 'concat_str_items' concatenates a list of str_item together into
+ * one big str_item.
+ *
+ * 'concat_record_fields' concatenates a list of records fields into
+ * a record.  The list must have at least one element.
+ *
+ * 'build_record' builds a record out of record fields.
+ * 
+ * 'build_tuple_from_exprs' builds an arbitrary length tuple from
+ * a list of expressions of length >= 2.
+ *
+ * Thanks to bluestorm on #ocaml for getting these working.
+ *)
+let concat_str_items items =
+  match items with
+  | [] -> <:str_item< >>
+  | x :: xs ->
+      List.fold_left (fun xs x -> <:str_item< $xs$ $x$ >>) x xs
+
+let concat_sig_items items =
+  match items with
+  | [] -> <:sig_item< >>
+  | x :: xs ->
+      List.fold_left (fun xs x -> <:sig_item< $xs$ $x$ >>) x xs
+
+let concat_record_fields fields =
+  match fields with
+    | [] -> assert false
+    | f :: fs ->
+       List.fold_left (fun fs f -> <:ctyp< $fs$ ; $f$ >>) f fs
+
+let concat_record_bindings rbs =
+  match rbs with
+    | [] -> assert false
+    | rb :: rbs ->
+       List.fold_left (fun rbs rb -> <:rec_binding< $rbs$ ; $rb$ >>) rb rbs
+
+let build_record rbs =
+  Ast.ExRec (_loc, rbs, Ast.ExNil _loc)
+
+let build_tuple_from_exprs exprs =
+  match exprs with
+  | [] | [_] -> assert false
+  | x :: xs ->
+      Ast.ExTup (_loc,
+                List.fold_left (fun xs x -> Ast.ExCom (_loc, x, xs)) x xs)
+
+let ocaml_type_of_field_type = function
+  | PP.FInteger -> <:ctyp< int64 >>
+  | PP.FString _ -> <:ctyp< string >>
+  | PP.FStructPointer _ | PP.FVoidPointer
+  | PP.FAnonListHeadPointer | PP.FListHeadPointer _ ->
+      <:ctyp< Virt_mem_mmap.addr >>
+
+let generate_types xs =
+  let strs = List.map (
+    fun (struct_name, sflist, cflist) ->
+      let sflist = List.map (
+       fun { SC.sf_name = name; sf_fields = fields } ->
+         if fields <> [] then (
+           let fields = List.map (
+             fun { PP.field_name = name; PP.field_type = t } ->
+               let t = ocaml_type_of_field_type t in
+               <:ctyp< $lid:name$ : $t$ >>
+           ) fields in
+           let fields = concat_record_fields fields in
+
+           <:str_item<
+             type $lid:name$ = { $fields$ }
+            >>
+         ) else
+           <:str_item< type $lid:name$ = unit >>
+      ) sflist in
+      let sflist = concat_str_items sflist in
+
+      let cflist = List.map (
+       fun { SC.cf_name = name; cf_fields = fields } ->
+         if fields <> [] then (
+           let fields = List.map (
+             fun { PP.field_name = name; PP.field_type = t } ->
+               let t = ocaml_type_of_field_type t in
+               <:ctyp< $lid:name$ : $t$ >>
+           ) fields in
+           let fields = concat_record_fields fields in
+
+           <:str_item<
+             type $lid:name$ = { $fields$ }
+            >>
+         ) else
+           <:str_item< type $lid:name$ = unit >>
+      ) cflist in
+      let cflist = concat_str_items cflist in
+
+      <:str_item<
+        type ('a, 'b) $lid:struct_name$ = {
+         $lid:struct_name^"_shape"$ : 'a;
+         $lid:struct_name^"_content"$ : 'b;
+       }
+       $sflist$
+       $cflist$
+      >>
+  ) xs in
+
+  let sigs =
+    List.map (
+      fun (struct_name, _, _) ->
+       <:sig_item<
+          type ('a, 'b) $lid:struct_name$
+       >>
+    ) xs in
+
+  concat_str_items strs, concat_sig_items sigs
+
+let output_interf ~output_file types =
+  let sigs = concat_sig_items [ types ] in
+  Printers.OCaml.print_interf ~output_file sigs
+
+let output_implem ~output_file types =
+  let strs = concat_str_items [ types ] in
+  Printers.OCaml.print_implem ~output_file strs
diff --git a/extract/codegen/code_generation.mli b/extract/codegen/code_generation.mli
new file mode 100644 (file)
index 0000000..efe282f
--- /dev/null
@@ -0,0 +1,50 @@
+(** Code generation. *)
+(* Memory info command for virtual domains.
+   (C) Copyright 2008 Richard W.M. Jones, Red Hat Inc.
+   http://libvirt.org/
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *)
+
+(**
+   This module is concerned with actually generating code
+   for types, parsers, etc.
+
+   We generate two output files, [kernel.mli] is the interface
+   to the kernel structures, and [kernel.ml] is the implementation.
+*)
+
+(** {2 Generate types} *)
+
+val generate_types :
+  (string
+   * Struct_classify.shape_field_struct list
+   * Struct_classify.content_field_struct list) list ->
+  Camlp4.PreCast.Syntax.Ast.str_item * Camlp4.PreCast.Syntax.Ast.sig_item
+    (** [generate_types structures] generates the internal
+       types used to store variants of each structure, including:
+       - shape field structures
+       - content field structures
+    *)
+
+(** {2 Output final files} *)
+
+val output_interf : output_file:string ->
+  Camlp4.PreCast.Syntax.Ast.sig_item -> unit
+  (** Output the interface file. *)
+
+val output_implem : output_file:string ->
+  Camlp4.PreCast.Syntax.Ast.str_item -> unit
+  (** Output the implementation file. *)
index 27fcb14..9d9e89c 100644 (file)
@@ -102,59 +102,10 @@ open Printf
 
 module PP = Pahole_parser
 module SC = Struct_classify
+module CG = Code_generation
 
 let (//) = Filename.concat
 
-(* Couple of handy camlp4 construction functions which do some
- * things that ought to be easy/obvious but aren't.
- *
- * 'concat_str_items' concatenates a list of str_item together into
- * one big str_item.
- *
- * 'concat_record_fields' concatenates a list of records fields into
- * a record.  The list must have at least one element.
- *
- * 'build_record' builds a record out of record fields.
- * 
- * 'build_tuple_from_exprs' builds an arbitrary length tuple from
- * a list of expressions of length >= 2.
- *
- * Thanks to bluestorm on #ocaml for getting these working.
- *)
-let concat_str_items _loc items =
-  match items with
-  | [] -> <:str_item< >>
-  | x :: xs ->
-      List.fold_left (fun xs x -> <:str_item< $xs$ $x$ >>) x xs
-
-let concat_sig_items _loc items =
-  match items with
-  | [] -> <:sig_item< >>
-  | x :: xs ->
-      List.fold_left (fun xs x -> <:sig_item< $xs$ $x$ >>) x xs
-
-let concat_record_fields _loc fields =
-  match fields with
-    | [] -> assert false
-    | f :: fs ->
-       List.fold_left (fun fs f -> <:ctyp< $fs$ ; $f$ >>) f fs
-
-let concat_record_bindings _loc rbs =
-  match rbs with
-    | [] -> assert false
-    | rb :: rbs ->
-       List.fold_left (fun rbs rb -> <:rec_binding< $rbs$ ; $rb$ >>) rb rbs
-
-let build_record _loc rbs =
-  Ast.ExRec (_loc, rbs, Ast.ExNil _loc)
-
-let build_tuple_from_exprs _loc exprs =
-  match exprs with
-  | [] | [_] -> assert false
-  | x :: xs ->
-      Ast.ExTup (_loc,
-                List.fold_left (fun xs x -> Ast.ExCom (_loc, x, xs)) x xs)
-
 (* Start of the main program. *)
 let () =
   let quick = ref false in
@@ -380,3 +331,24 @@ Options:
            printf "      -> (%s, %s)\n" sf.SC.sf_name cf.SC.cf_name
        ) palist
     ) structures;
+
+  (* Now let's generate some code. *)
+  let implem_types, interf_types =
+    CG.generate_types (
+      List.map (
+       fun (struct_name,
+            (_, _, sflist, _, cflist, _, _, _)) ->
+         (struct_name, sflist, cflist)
+      ) structures
+    ) in
+
+  (* Output the generated code. *)
+  let output_file = outputdir // "kernel.mli" in
+  printf "Writing kernel data interface to %s ...\n%!" output_file;
+  CG.output_interf ~output_file interf_types;
+
+  let output_file = outputdir // "kernel.ml" in
+  printf "Writing kernel data parsers to %s ...\n%!" output_file;
+  CG.output_implem ~output_file implem_types;
+
+  (* XXX Here we need to substitute the parser code. *)
index 506d783..d10d1c4 100644 (file)
@@ -58,6 +58,10 @@ and parser_ = {
   pa_content_field_struct : content_field_struct;
 }
 
+and sfhash = (string, shape_field_struct) Hashtbl.t
+and cfhash = (string, content_field_struct) Hashtbl.t
+and pahash = (string, parser_) Hashtbl.t
+
 let endian_of_architecture arch =
   if String.starts_with arch "i386" ||
     String.starts_with arch "i486" ||
index 802324c..96554bf 100644 (file)
@@ -118,10 +118,13 @@ and content_field_struct = {
 }
     (** The type of a content field structure. *)
 
+type sfhash = (string, shape_field_struct) Hashtbl.t
+    (** Hash of kernel version to the shape field structure. *)
+
 val minimize_shape_field_structs :
   string -> string list ->
   (Pahole_parser.info * Pahole_parser.structure) list ->
-  shape_field_struct list * (string, shape_field_struct) Hashtbl.t
+  shape_field_struct list * sfhash
     (** [minimize_shape_field_structs struct_name names kernels] returns
        a minimized list of shape field structures
        (a hash table of kernel version to {!shape_field_struct}).
@@ -130,10 +133,13 @@ val minimize_shape_field_structs :
 
        [names] is the list of interesting kernel structures. *)
 
+type cfhash = (string, content_field_struct) Hashtbl.t
+    (** Hash of kernel version to the content field structure. *)
+
 val minimize_content_field_structs :
   string -> string list ->
   (Pahole_parser.info * Pahole_parser.structure) list ->
-  content_field_struct list * (string, content_field_struct) Hashtbl.t
+  content_field_struct list * cfhash
     (** [minimize_content_field_structs struct_name names kernels] returns
        a minimized list of content field structures
        (a hash table of kernel version to {!content_field_struct}).
@@ -156,12 +162,14 @@ type parser_ (* parser is a reserved word *) = {
 }
     (** The type of a parser. *)
 
+type pahash = (string, parser_) Hashtbl.t
+    (** Hash of the kernel version to the parser. *)
+
 val minimize_parsers :
   string ->
   (Pahole_parser.info * Pahole_parser.structure) list ->
-  (string, shape_field_struct) Hashtbl.t ->
-  (string, content_field_struct) Hashtbl.t ->
-  parser_ list * (string, parser_) Hashtbl.t
+  sfhash -> cfhash ->
+  parser_ list * pahash
     (** [minimize_parsers struct_name kernels sfhash cfhash] returns
        a minimized list of parsers (a hash table of kernel version
        to {!parser_}).
index 8085316..b320970 100644 (file)
@@ -1,10 +1,3 @@
-kernel_in_device.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
-kernel_inet6_dev.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
-kernel_inet6_ifaddr.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
-kernel_in_ifaddr.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
-kernel_net_device.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
-kernel_net.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
-kernel_task_struct.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
 virt_mem_kallsyms.cmi: virt_mem_types.cmi 
 virt_mem_ksyms.cmi: virt_mem_types.cmi 
 virt_mem_list_head.cmi: virt_mem_types.cmi virt_mem_mmap.cmi 
@@ -14,32 +7,8 @@ virt_mem_net_devices.cmi: virt_mem_types.cmi
 virt_mem_tasks.cmi: virt_mem_types.cmi 
 virt_mem_types.cmi: virt_mem_utils.cmo virt_mem_mmap.cmi 
 virt_mem_utsname.cmi: virt_mem_types.cmi 
-kernel_in_device.cmo: virt_mem_types.cmi virt_mem_mmap.cmi \
-    kernel_in_device.cmi 
-kernel_in_device.cmx: virt_mem_types.cmx virt_mem_mmap.cmx \
-    kernel_in_device.cmi 
-kernel_inet6_dev.cmo: virt_mem_types.cmi virt_mem_mmap.cmi \
-    kernel_inet6_dev.cmi 
-kernel_inet6_dev.cmx: virt_mem_types.cmx virt_mem_mmap.cmx \
-    kernel_inet6_dev.cmi 
-kernel_inet6_ifaddr.cmo: virt_mem_types.cmi virt_mem_mmap.cmi \
-    kernel_inet6_ifaddr.cmi 
-kernel_inet6_ifaddr.cmx: virt_mem_types.cmx virt_mem_mmap.cmx \
-    kernel_inet6_ifaddr.cmi 
-kernel_in_ifaddr.cmo: virt_mem_types.cmi virt_mem_mmap.cmi \
-    kernel_in_ifaddr.cmi 
-kernel_in_ifaddr.cmx: virt_mem_types.cmx virt_mem_mmap.cmx \
-    kernel_in_ifaddr.cmi 
-kernel_net_device.cmo: virt_mem_types.cmi virt_mem_mmap.cmi \
-    kernel_net_device.cmi 
-kernel_net_device.cmx: virt_mem_types.cmx virt_mem_mmap.cmx \
-    kernel_net_device.cmi 
-kernel_net.cmo: virt_mem_types.cmi virt_mem_mmap.cmi kernel_net.cmi 
-kernel_net.cmx: virt_mem_types.cmx virt_mem_mmap.cmx kernel_net.cmi 
-kernel_task_struct.cmo: virt_mem_types.cmi virt_mem_mmap.cmi \
-    kernel_task_struct.cmi 
-kernel_task_struct.cmx: virt_mem_types.cmx virt_mem_mmap.cmx \
-    kernel_task_struct.cmi 
+kernel.cmo: virt_mem_mmap.cmi kernel.cmi 
+kernel.cmx: virt_mem_mmap.cmx kernel.cmi 
 test_mmap.cmo: virt_mem_mmap.cmi 
 test_mmap.cmx: virt_mem_mmap.cmx 
 virt_mem_capture.cmo: virt_mem_types.cmi virt_mem_gettext.cmo virt_mem.cmi 
@@ -74,16 +43,14 @@ virt_mem_mmap.cmo: virt_mem_utils.cmo virt_mem_mmap.cmi
 virt_mem_mmap.cmx: virt_mem_utils.cmx virt_mem_mmap.cmi 
 virt_mem_net_devices.cmo: virt_mem_utils.cmo virt_mem_types.cmi \
     virt_mem_mmap.cmi virt_mem_list_head.cmi virt_mem_gettext.cmo \
-    kernel_net_device.cmi kernel_net.cmi virt_mem_net_devices.cmi 
+    virt_mem_net_devices.cmi 
 virt_mem_net_devices.cmx: virt_mem_utils.cmx virt_mem_types.cmx \
     virt_mem_mmap.cmx virt_mem_list_head.cmx virt_mem_gettext.cmx \
-    kernel_net_device.cmx kernel_net.cmx virt_mem_net_devices.cmi 
+    virt_mem_net_devices.cmi 
 virt_mem_tasks.cmo: virt_mem_utils.cmo virt_mem_types.cmi \
-    virt_mem_list_head.cmi virt_mem_gettext.cmo kernel_task_struct.cmi \
-    virt_mem_tasks.cmi 
+    virt_mem_list_head.cmi virt_mem_gettext.cmo virt_mem_tasks.cmi 
 virt_mem_tasks.cmx: virt_mem_utils.cmx virt_mem_types.cmx \
-    virt_mem_list_head.cmx virt_mem_gettext.cmx kernel_task_struct.cmx \
-    virt_mem_tasks.cmi 
+    virt_mem_list_head.cmx virt_mem_gettext.cmx virt_mem_tasks.cmi 
 virt_mem_types.cmo: virt_mem_utils.cmo virt_mem_mmap.cmi virt_mem_types.cmi 
 virt_mem_types.cmx: virt_mem_utils.cmx virt_mem_mmap.cmx virt_mem_types.cmi 
 virt_mem_utsname.cmo: virt_mem_utils.cmo virt_mem_types.cmi virt_mem_mmap.cmi \
index ed43af2..b452e1b 100644 (file)
@@ -55,13 +55,7 @@ OBJS         = virt_mem_gettext.cmo \
                  virt_mem_mmap.cmo \
                  virt_mem_types.cmo \
                  virt_mem_list_head.cmo \
-                 kernel_task_struct.cmo \
-                 kernel_net_device.cmo \
-                 kernel_net.cmo \
-                 kernel_in_device.cmo \
-                 kernel_in_ifaddr.cmo \
-                 kernel_inet6_dev.cmo \
-                 kernel_inet6_ifaddr.cmo \
+                 kernel.cmo \
                  virt_mem_ksyms.cmo \
                  virt_mem_kallsyms.cmo \
                  virt_mem_utsname.cmo \
diff --git a/lib/kernel.ml b/lib/kernel.ml
new file mode 100644 (file)
index 0000000..a75fdad
--- /dev/null
@@ -0,0 +1,50 @@
+type ('a, 'b) task_struct =
+  { task_struct_shape : 'a; task_struct_content : 'b
+  };;
+type task_struct_shape_fields_2 =
+  { tasks'next : Virt_mem_mmap.addr; tasks'prev : Virt_mem_mmap.addr
+  };;
+type task_struct_shape_fields_1 =
+  { run_list'next : Virt_mem_mmap.addr; run_list'prev : Virt_mem_mmap.addr;
+    tasks'next : Virt_mem_mmap.addr; tasks'prev : Virt_mem_mmap.addr
+  };;
+type task_struct_content_fields_3 =
+  { comm : string; normal_prio : int64; pid : int64; prio : int64;
+    state : int64; static_prio : int64
+  };;
+type ('a, 'b) net_device = { net_device_shape : 'a; net_device_content : 'b };;
+type net_device_shape_fields_12 =
+  { ip6_ptr : Virt_mem_mmap.addr; ip_ptr : Virt_mem_mmap.addr;
+    next : Virt_mem_mmap.addr
+  };;
+type net_device_shape_fields_13 =
+  { dev_list'next : Virt_mem_mmap.addr; dev_list'prev : Virt_mem_mmap.addr;
+    ip6_ptr : Virt_mem_mmap.addr; ip_ptr : Virt_mem_mmap.addr
+  };;
+type net_device_content_fields_14 =
+  { addr_len : int64; flags : int64; mtu : int64; name : string;
+    operstate : int64; perm_addr : string
+  };;
+type ('a, 'b) net = { net_shape : 'a; net_content : 'b };;
+type net_shape_fields_22 =
+  { dev_base_head'next : Virt_mem_mmap.addr;
+    dev_base_head'prev : Virt_mem_mmap.addr
+  };;
+type net_content_fields_23 = unit;;
+type ('a, 'b) in_device = { in_device_shape : 'a; in_device_content : 'b };;
+type in_device_shape_fields_28 = { ifa_list : Virt_mem_mmap.addr };;
+type in_device_content_fields_29 = unit;;
+type ('a, 'b) inet6_dev = { inet6_dev_shape : 'a; inet6_dev_content : 'b };;
+type inet6_dev_shape_fields_34 = { addr_list : Virt_mem_mmap.addr };;
+type inet6_dev_content_fields_35 = unit;;
+type ('a, 'b) in_ifaddr = { in_ifaddr_shape : 'a; in_ifaddr_content : 'b };;
+type in_ifaddr_shape_fields_40 = { ifa_next : Virt_mem_mmap.addr };;
+type in_ifaddr_content_fields_41 =
+  { ifa_address : int64; ifa_broadcast : int64; ifa_local : int64;
+    ifa_mask : int64
+  };;
+type ('a, 'b) inet6_ifaddr =
+  { inet6_ifaddr_shape : 'a; inet6_ifaddr_content : 'b
+  };;
+type inet6_ifaddr_shape_fields_46 = { lst_next : Virt_mem_mmap.addr };;
+type inet6_ifaddr_content_fields_47 = { prefix_len : int64 };;
diff --git a/lib/kernel.mli b/lib/kernel.mli
new file mode 100644 (file)
index 0000000..ef00e87
--- /dev/null
@@ -0,0 +1,7 @@
+type ('a, 'b) task_struct;;
+type ('a, 'b) net_device;;
+type ('a, 'b) net;;
+type ('a, 'b) in_device;;
+type ('a, 'b) inet6_dev;;
+type ('a, 'b) in_ifaddr;;
+type ('a, 'b) inet6_ifaddr;;
diff --git a/lib/kernel_in_device.ml b/lib/kernel_in_device.ml
deleted file mode 100644 (file)
index 62373eb..0000000
+++ /dev/null
@@ -1,671 +0,0 @@
-(* WARNING: This file and the corresponding mli (interface) are
- * automatically generated by the extract/codegen/kerneldb_to_parser.ml
- * program.
- *
- * Any edits you make to this file will be lost.
- *
- * To update this file from the latest kernel database, it is recommended
- * that you do 'make update-kernel-structs'.
- *)
-
-let zero = 0;;
-let struct_name = "in_device";;
-let match_err = "failed to match kernel structure";;
-type t = { in_device_ifa_list : Virt_mem_mmap.addr };;
-type fs_t = { __fs_in_device_ifa_list : Virt_mem_types.fieldsig };;
-let fieldsig_1 =
-  {
-    __fs_in_device_ifa_list =
-      { Virt_mem_types.field_available = true; field_offset = 12; };
-  };;
-let fieldsig_2 =
-  {
-    __fs_in_device_ifa_list =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-  };;
-let fieldsig_3 =
-  {
-    __fs_in_device_ifa_list =
-      { Virt_mem_types.field_available = true; field_offset = 12; };
-  };;
-let fieldsig_4 =
-  {
-    __fs_in_device_ifa_list =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-  };;
-let parser_1 bits = 
-  bitmatch bits with
-  | { in_device_ifa_list : zero+32 : offset(96), littleendian } ->
-      { in_device_ifa_list = in_device_ifa_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
-let parser_2 bits = 
-  bitmatch bits with
-  | { in_device_ifa_list : zero+64 : offset(128), littleendian } ->
-      { in_device_ifa_list = in_device_ifa_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
-let parser_3 bits = 
-  bitmatch bits with
-  | { in_device_ifa_list : zero+32 : offset(96), bigendian } ->
-      { in_device_ifa_list = in_device_ifa_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
-let parser_4 bits = 
-  bitmatch bits with
-  | { in_device_ifa_list : zero+64 : offset(128), bigendian } ->
-      { in_device_ifa_list = in_device_ifa_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
-module StringMap = Map.Make(String);;
-let map = StringMap.empty;;
-let v = (parser_1, 240, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 216, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_1, 264, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 264, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_1, 240, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 240, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 376, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_1, 216, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;;
-let v = (parser_1, 216, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_3, 212, fieldsig_3);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_4, 328, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_4, 328, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_2, 328, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 216, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;;
-let v = (parser_1, 216, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_3, 212, fieldsig_3);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_4, 328, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_2, 328, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_3, 260, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_3, 260, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_3, 260, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_3, 260, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_1, 264, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;;
-let v = (parser_1, 264, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_3, 260, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_2, 392, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 264, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i586" v map;;
-let v = (parser_1, 264, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_3, 260, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_2, 392, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;;
-let v = (parser_1, 288, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_3, 260, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_2, 440, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;;
-let v = (parser_1, 240, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;;
-let v = (parser_1, 240, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_3, 232, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_4, 360, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_2, 360, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_3, 236, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_2, 368, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 236, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_2, 368, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
-let v = (parser_2, 368, fieldsig_2);;
-let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_3, 236, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_2, 368, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
-let v = (parser_1, 244, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_3, 236, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_2, 368, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
-let v = (parser_1, 300, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_1, 212, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_4, 328, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_4, 328, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_2, 320, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 212, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_4, 328, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_2, 320, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_2, 480, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_2, 480, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_2, 480, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_2, 480, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_2, 384, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_2, 384, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_4, 392, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_4, 360, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_2, 344, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_4, 400, fieldsig_4);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_4, 368, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_3, 216, fieldsig_3);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_3, 216, fieldsig_3);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_3, 264, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_3, 240, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_3, 244, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_3, 244, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_3, 244, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_3, 244, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_1, 216, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_2, 328, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 216, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 328, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-type kernel_version = string;;
-let in_device_known version = StringMap.mem version map;;
-let in_device_size version =
-  let (_, size, _) = StringMap.find version map in size;;
-let in_device_of_bits version bits =
-  let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
-let get_in_device version mem addr =
-  let (parsefn, size, _) = StringMap.find version map in
-  let bytes = Virt_mem_mmap.get_bytes mem addr size in
-  let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
-let field_signature_of_in_device_ifa_list version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_in_device_ifa_list;;
diff --git a/lib/kernel_in_device.mli b/lib/kernel_in_device.mli
deleted file mode 100644 (file)
index a115843..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-type t = { in_device_ifa_list : Virt_mem_mmap.addr };;
-val struct_name : string;;
-type kernel_version = string;;
-val in_device_known : kernel_version -> bool;;
-val in_device_size : kernel_version -> int;;
-val in_device_of_bits : kernel_version -> Bitstring.bitstring -> t;;
-val get_in_device :
-  kernel_version ->
-    ('a, 'b, [ | `HasMapping ]) Virt_mem_mmap.t -> Virt_mem_mmap.addr -> t;;
-val field_signature_of_in_device_ifa_list :
-  kernel_version -> Virt_mem_types.fieldsig;;
diff --git a/lib/kernel_in_ifaddr.ml b/lib/kernel_in_ifaddr.ml
deleted file mode 100644 (file)
index 90711b3..0000000
+++ /dev/null
@@ -1,755 +0,0 @@
-(* WARNING: This file and the corresponding mli (interface) are
- * automatically generated by the extract/codegen/kerneldb_to_parser.ml
- * program.
- *
- * Any edits you make to this file will be lost.
- *
- * To update this file from the latest kernel database, it is recommended
- * that you do 'make update-kernel-structs'.
- *)
-
-let zero = 0;;
-let struct_name = "in_ifaddr";;
-let match_err = "failed to match kernel structure";;
-type t =
-  { in_ifaddr_ifa_next : Virt_mem_mmap.addr; in_ifaddr_ifa_local : int64;
-    in_ifaddr_ifa_address : int64; in_ifaddr_ifa_mask : int64;
-    in_ifaddr_ifa_broadcast : int64
-  };;
-type fs_t =
-  { __fs_in_ifaddr_ifa_next : Virt_mem_types.fieldsig;
-    __fs_in_ifaddr_ifa_local : Virt_mem_types.fieldsig;
-    __fs_in_ifaddr_ifa_address : Virt_mem_types.fieldsig;
-    __fs_in_ifaddr_ifa_mask : Virt_mem_types.fieldsig;
-    __fs_in_ifaddr_ifa_broadcast : Virt_mem_types.fieldsig
-  };;
-let fieldsig_1 =
-  {
-    __fs_in_ifaddr_ifa_next =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_in_ifaddr_ifa_local =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_in_ifaddr_ifa_address =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_in_ifaddr_ifa_mask =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_in_ifaddr_ifa_broadcast =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-  };;
-let fieldsig_2 =
-  {
-    __fs_in_ifaddr_ifa_next =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_in_ifaddr_ifa_local =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_in_ifaddr_ifa_address =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_in_ifaddr_ifa_mask =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_in_ifaddr_ifa_broadcast =
-      { Virt_mem_types.field_available = true; field_offset = 44; };
-  };;
-let fieldsig_3 =
-  {
-    __fs_in_ifaddr_ifa_next =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_in_ifaddr_ifa_local =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_in_ifaddr_ifa_address =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_in_ifaddr_ifa_mask =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_in_ifaddr_ifa_broadcast =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-  };;
-let fieldsig_4 =
-  {
-    __fs_in_ifaddr_ifa_next =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_in_ifaddr_ifa_local =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_in_ifaddr_ifa_address =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_in_ifaddr_ifa_mask =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_in_ifaddr_ifa_broadcast =
-      { Virt_mem_types.field_available = true; field_offset = 44; };
-  };;
-let parser_1 bits = 
-  bitmatch bits with
-  | { in_ifaddr_ifa_next : zero+32 : offset(0), littleendian;
-      in_ifaddr_ifa_local : zero+32 : offset(128), littleendian;
-      in_ifaddr_ifa_address : zero+32 : offset(160), littleendian;
-      in_ifaddr_ifa_mask : zero+32 : offset(192), littleendian;
-      in_ifaddr_ifa_broadcast : zero+32 : offset(224), littleendian } ->
-      { in_ifaddr_ifa_next = in_ifaddr_ifa_next;
-        in_ifaddr_ifa_local = in_ifaddr_ifa_local;
-        in_ifaddr_ifa_address = in_ifaddr_ifa_address;
-        in_ifaddr_ifa_mask = in_ifaddr_ifa_mask;
-        in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
-let parser_2 bits = 
-  bitmatch bits with
-  | { in_ifaddr_ifa_next : zero+64 : offset(0), littleendian;
-      in_ifaddr_ifa_local : zero+32 : offset(256), littleendian;
-      in_ifaddr_ifa_address : zero+32 : offset(288), littleendian;
-      in_ifaddr_ifa_mask : zero+32 : offset(320), littleendian;
-      in_ifaddr_ifa_broadcast : zero+32 : offset(352), littleendian } ->
-      { in_ifaddr_ifa_next = in_ifaddr_ifa_next;
-        in_ifaddr_ifa_local = in_ifaddr_ifa_local;
-        in_ifaddr_ifa_address = in_ifaddr_ifa_address;
-        in_ifaddr_ifa_mask = in_ifaddr_ifa_mask;
-        in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
-let parser_3 bits = 
-  bitmatch bits with
-  | { in_ifaddr_ifa_next : zero+32 : offset(0), bigendian;
-      in_ifaddr_ifa_local : zero+32 : offset(128), bigendian;
-      in_ifaddr_ifa_address : zero+32 : offset(160), bigendian;
-      in_ifaddr_ifa_mask : zero+32 : offset(192), bigendian;
-      in_ifaddr_ifa_broadcast : zero+32 : offset(224), bigendian } ->
-      { in_ifaddr_ifa_next = in_ifaddr_ifa_next;
-        in_ifaddr_ifa_local = in_ifaddr_ifa_local;
-        in_ifaddr_ifa_address = in_ifaddr_ifa_address;
-        in_ifaddr_ifa_mask = in_ifaddr_ifa_mask;
-        in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
-let parser_4 bits = 
-  bitmatch bits with
-  | { in_ifaddr_ifa_next : zero+64 : offset(0), bigendian;
-      in_ifaddr_ifa_local : zero+32 : offset(256), bigendian;
-      in_ifaddr_ifa_address : zero+32 : offset(288), bigendian;
-      in_ifaddr_ifa_mask : zero+32 : offset(320), bigendian;
-      in_ifaddr_ifa_broadcast : zero+32 : offset(352), bigendian } ->
-      { in_ifaddr_ifa_next = in_ifaddr_ifa_next;
-        in_ifaddr_ifa_local = in_ifaddr_ifa_local;
-        in_ifaddr_ifa_address = in_ifaddr_ifa_address;
-        in_ifaddr_ifa_mask = in_ifaddr_ifa_mask;
-        in_ifaddr_ifa_broadcast = in_ifaddr_ifa_broadcast }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
-module StringMap = Map.Make(String);;
-let map = StringMap.empty;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
-let v = (parser_1, 51, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_2, 67, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_4, 71, fieldsig_4);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_4, 67, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_3, 55, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_3, 51, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 55, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 71, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-type kernel_version = string;;
-let in_ifaddr_known version = StringMap.mem version map;;
-let in_ifaddr_size version =
-  let (_, size, _) = StringMap.find version map in size;;
-let in_ifaddr_of_bits version bits =
-  let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
-let get_in_ifaddr version mem addr =
-  let (parsefn, size, _) = StringMap.find version map in
-  let bytes = Virt_mem_mmap.get_bytes mem addr size in
-  let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
-let field_signature_of_in_ifaddr_ifa_next version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_in_ifaddr_ifa_next;;
-let field_signature_of_in_ifaddr_ifa_local version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_in_ifaddr_ifa_local;;
-let field_signature_of_in_ifaddr_ifa_address version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_in_ifaddr_ifa_address;;
-let field_signature_of_in_ifaddr_ifa_mask version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_in_ifaddr_ifa_mask;;
-let field_signature_of_in_ifaddr_ifa_broadcast version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_in_ifaddr_ifa_broadcast;;
diff --git a/lib/kernel_in_ifaddr.mli b/lib/kernel_in_ifaddr.mli
deleted file mode 100644 (file)
index 7387359..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-type t =
-  { in_ifaddr_ifa_next : Virt_mem_mmap.addr; in_ifaddr_ifa_local : int64;
-    in_ifaddr_ifa_address : int64; in_ifaddr_ifa_mask : int64;
-    in_ifaddr_ifa_broadcast : int64
-  };;
-val struct_name : string;;
-type kernel_version = string;;
-val in_ifaddr_known : kernel_version -> bool;;
-val in_ifaddr_size : kernel_version -> int;;
-val in_ifaddr_of_bits : kernel_version -> Bitstring.bitstring -> t;;
-val get_in_ifaddr :
-  kernel_version ->
-    ('a, 'b, [ | `HasMapping ]) Virt_mem_mmap.t -> Virt_mem_mmap.addr -> t;;
-val field_signature_of_in_ifaddr_ifa_next :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_in_ifaddr_ifa_local :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_in_ifaddr_ifa_address :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_in_ifaddr_ifa_mask :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_in_ifaddr_ifa_broadcast :
-  kernel_version -> Virt_mem_types.fieldsig;;
diff --git a/lib/kernel_inet6_dev.ml b/lib/kernel_inet6_dev.ml
deleted file mode 100644 (file)
index 0a02556..0000000
+++ /dev/null
@@ -1,671 +0,0 @@
-(* WARNING: This file and the corresponding mli (interface) are
- * automatically generated by the extract/codegen/kerneldb_to_parser.ml
- * program.
- *
- * Any edits you make to this file will be lost.
- *
- * To update this file from the latest kernel database, it is recommended
- * that you do 'make update-kernel-structs'.
- *)
-
-let zero = 0;;
-let struct_name = "inet6_dev";;
-let match_err = "failed to match kernel structure";;
-type t = { inet6_dev_addr_list : Virt_mem_mmap.addr };;
-type fs_t = { __fs_inet6_dev_addr_list : Virt_mem_types.fieldsig };;
-let fieldsig_1 =
-  {
-    __fs_inet6_dev_addr_list =
-      { Virt_mem_types.field_available = true; field_offset = 4; };
-  };;
-let fieldsig_2 =
-  {
-    __fs_inet6_dev_addr_list =
-      { Virt_mem_types.field_available = true; field_offset = 8; };
-  };;
-let fieldsig_3 =
-  {
-    __fs_inet6_dev_addr_list =
-      { Virt_mem_types.field_available = true; field_offset = 4; };
-  };;
-let fieldsig_4 =
-  {
-    __fs_inet6_dev_addr_list =
-      { Virt_mem_types.field_available = true; field_offset = 8; };
-  };;
-let parser_1 bits = 
-  bitmatch bits with
-  | { inet6_dev_addr_list : zero+32 : offset(32), littleendian } ->
-      { inet6_dev_addr_list = inet6_dev_addr_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
-let parser_2 bits = 
-  bitmatch bits with
-  | { inet6_dev_addr_list : zero+64 : offset(64), littleendian } ->
-      { inet6_dev_addr_list = inet6_dev_addr_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
-let parser_3 bits = 
-  bitmatch bits with
-  | { inet6_dev_addr_list : zero+32 : offset(32), bigendian } ->
-      { inet6_dev_addr_list = inet6_dev_addr_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
-let parser_4 bits = 
-  bitmatch bits with
-  | { inet6_dev_addr_list : zero+64 : offset(64), bigendian } ->
-      { inet6_dev_addr_list = inet6_dev_addr_list }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
-module StringMap = Map.Make(String);;
-let map = StringMap.empty;;
-let v = (parser_1, 316, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_1, 404, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_1, 404, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_1, 416, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_1, 368, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 368, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_1, 344, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_1, 348, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_1, 348, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_1, 356, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_1, 360, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 360, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_1, 416, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 316, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 512, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_2, 608, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_2, 608, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_2, 608, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_1, 404, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_2, 632, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_2, 632, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_2, 648, fieldsig_2);;
-let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
-let v = (parser_1, 416, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_2, 648, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_1, 416, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_2, 648, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_1, 276, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;;
-let v = (parser_1, 276, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_3, 268, fieldsig_3);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_4, 432, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_4, 432, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_2, 432, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_3, 284, fieldsig_3);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_2, 608, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_2, 608, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_2, 608, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;;
-let v = (parser_1, 392, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_2, 608, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_1, 368, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;;
-let v = (parser_1, 368, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_2, 560, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 368, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i586" v map;;
-let v = (parser_1, 368, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_2, 560, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;;
-let v = (parser_1, 344, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;;
-let v = (parser_1, 344, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_3, 336, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_4, 520, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_2, 520, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;;
-let v = (parser_1, 396, fieldsig_1);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_3, 364, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_2, 616, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;;
-let v = (parser_1, 348, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;;
-let v = (parser_1, 348, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_3, 340, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_4, 528, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_2, 528, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_1, 348, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;;
-let v = (parser_1, 348, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 340, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_4, 528, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_2, 528, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_4, 584, fieldsig_4);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_2, 648, fieldsig_2);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_4, 584, fieldsig_4);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_2, 648, fieldsig_2);;
-let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
-let v = (parser_1, 412, fieldsig_1);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_4, 584, fieldsig_4);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_2, 648, fieldsig_2);;
-let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
-let v = (parser_1, 356, fieldsig_1);;
-let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
-let v = (parser_2, 536, fieldsig_2);;
-let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
-let v = (parser_1, 356, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
-let v = (parser_1, 356, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 536, fieldsig_4);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_1, 360, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
-let v = (parser_1, 360, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_3, 352, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_4, 536, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_2, 536, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_1, 360, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
-let v = (parser_1, 360, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_3, 352, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_4, 536, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_2, 536, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 384, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_2, 656, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 384, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_2, 656, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_3, 384, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_2, 656, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_3, 384, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_2, 656, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_3, 384, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_2, 656, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 384, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_2, 656, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
-let v = (parser_1, 424, fieldsig_1);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 384, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_2, 656, fieldsig_2);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_1, 268, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_4, 432, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_4, 432, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_2, 416, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 284, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_4, 464, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_2, 448, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_2, 640, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_2, 640, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_2, 640, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_2, 640, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_2, 544, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_4, 560, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_2, 544, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_4, 520, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_2, 512, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_4, 568, fieldsig_4);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_4, 528, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_4, 528, fieldsig_4);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_4, 584, fieldsig_4);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_4, 584, fieldsig_4);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_4, 584, fieldsig_4);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_4, 536, fieldsig_4);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_4, 536, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_4, 536, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_4, 656, fieldsig_4);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_3, 276, fieldsig_3);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_3, 292, fieldsig_3);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_3, 368, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_3, 368, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_3, 368, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_3, 368, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_3, 368, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_3, 368, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_3, 344, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_3, 372, fieldsig_3);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_3, 348, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_3, 348, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_3, 380, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_3, 380, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_3, 380, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_3, 360, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_3, 392, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_3, 392, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_3, 392, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_3, 392, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_3, 392, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_3, 392, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_3, 392, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_1, 276, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_2, 432, fieldsig_2);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 292, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 464, fieldsig_2);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-type kernel_version = string;;
-let inet6_dev_known version = StringMap.mem version map;;
-let inet6_dev_size version =
-  let (_, size, _) = StringMap.find version map in size;;
-let inet6_dev_of_bits version bits =
-  let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
-let get_inet6_dev version mem addr =
-  let (parsefn, size, _) = StringMap.find version map in
-  let bytes = Virt_mem_mmap.get_bytes mem addr size in
-  let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
-let field_signature_of_inet6_dev_addr_list version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_inet6_dev_addr_list;;
diff --git a/lib/kernel_inet6_dev.mli b/lib/kernel_inet6_dev.mli
deleted file mode 100644 (file)
index 1058ba1..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-type t = { inet6_dev_addr_list : Virt_mem_mmap.addr };;
-val struct_name : string;;
-type kernel_version = string;;
-val inet6_dev_known : kernel_version -> bool;;
-val inet6_dev_size : kernel_version -> int;;
-val inet6_dev_of_bits : kernel_version -> Bitstring.bitstring -> t;;
-val get_inet6_dev :
-  kernel_version ->
-    ('a, 'b, [ | `HasMapping ]) Virt_mem_mmap.t -> Virt_mem_mmap.addr -> t;;
-val field_signature_of_inet6_dev_addr_list :
-  kernel_version -> Virt_mem_types.fieldsig;;
diff --git a/lib/kernel_inet6_ifaddr.ml b/lib/kernel_inet6_ifaddr.ml
deleted file mode 100644 (file)
index 1382f80..0000000
+++ /dev/null
@@ -1,937 +0,0 @@
-(* WARNING: This file and the corresponding mli (interface) are
- * automatically generated by the extract/codegen/kerneldb_to_parser.ml
- * program.
- *
- * Any edits you make to this file will be lost.
- *
- * To update this file from the latest kernel database, it is recommended
- * that you do 'make update-kernel-structs'.
- *)
-
-let zero = 0;;
-let struct_name = "inet6_ifaddr";;
-let match_err = "failed to match kernel structure";;
-type t =
-  { inet6_ifaddr_prefix_len : int64;
-    inet6_ifaddr_lst_next : Virt_mem_mmap.addr
-  };;
-type fs_t =
-  { __fs_inet6_ifaddr_prefix_len : Virt_mem_types.fieldsig;
-    __fs_inet6_ifaddr_lst_next : Virt_mem_types.fieldsig
-  };;
-let fieldsig_1 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 104; };
-  };;
-let fieldsig_2 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 128; };
-  };;
-let fieldsig_3 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 132; };
-  };;
-let fieldsig_4 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 92; };
-  };;
-let fieldsig_5 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 116; };
-  };;
-let fieldsig_6 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 176; };
-  };;
-let fieldsig_7 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-  };;
-let fieldsig_8 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-  };;
-let fieldsig_9 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 92; };
-  };;
-let fieldsig_10 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 152; };
-  };;
-let fieldsig_11 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 152; };
-  };;
-let fieldsig_12 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 116; };
-  };;
-let fieldsig_13 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-  };;
-let fieldsig_14 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-  };;
-let fieldsig_15 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 100; };
-  };;
-let fieldsig_16 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 160; };
-  };;
-let fieldsig_17 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 160; };
-  };;
-let fieldsig_18 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-  };;
-let fieldsig_19 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 232; };
-  };;
-let fieldsig_20 =
-  {
-    __fs_inet6_ifaddr_prefix_len =
-      { Virt_mem_types.field_available = true; field_offset = 16; };
-    __fs_inet6_ifaddr_lst_next =
-      { Virt_mem_types.field_available = true; field_offset = 104; };
-  };;
-let parser_1 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(832), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
-let parser_2 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(1024), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
-let parser_3 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(1056), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
-let parser_4 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(736), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
-let parser_5 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(928), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
-let parser_6 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1408), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
-let parser_7 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1664), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
-let parser_8 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1728), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
-let parser_9 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(736), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
-let parser_10 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1216), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
-let parser_11 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1216), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
-let parser_12 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(928), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
-let parser_13 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1472), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_13", match_err));;
-let parser_14 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1472), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_14", match_err));;
-let parser_15 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(800), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_15", match_err));;
-let parser_16 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1280), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_16", match_err));;
-let parser_17 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1280), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_17", match_err));;
-let parser_18 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1728), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_18", match_err));;
-let parser_19 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), littleendian;
-      inet6_ifaddr_lst_next : zero+64 : offset(1856), littleendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_19", match_err));;
-let parser_20 bits = 
-  bitmatch bits with
-  | { inet6_ifaddr_prefix_len : zero+32 : offset(128), bigendian;
-      inet6_ifaddr_lst_next : zero+32 : offset(832), bigendian } ->
-      { inet6_ifaddr_prefix_len = inet6_ifaddr_prefix_len;
-        inet6_ifaddr_lst_next = inet6_ifaddr_lst_next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_20", match_err));;
-module StringMap = Map.Make(String);;
-let map = StringMap.empty;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_5, 140, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_5, 140, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_6, 216, fieldsig_6);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_9, 116, fieldsig_9);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_10, 192, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_10, 192, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_11, 192, fieldsig_11);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_9, 116, fieldsig_9);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_10, 192, fieldsig_10);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_11, 192, fieldsig_11);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_5, 140, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;;
-let v = (parser_5, 140, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_14, 224, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_5, 140, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i586" v map;;
-let v = (parser_5, 140, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_14, 224, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_15, 124, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_17, 200, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;;
-let v = (parser_2, 152, fieldsig_2);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_7, 248, fieldsig_7);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_15, 124, fieldsig_15);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_17, 200, fieldsig_17);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_15, 124, fieldsig_15);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_17, 200, fieldsig_17);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
-let v = (parser_17, 200, fieldsig_17);;
-let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_15, 124, fieldsig_15);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_17, 200, fieldsig_17);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
-let v = (parser_1, 128, fieldsig_1);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_15, 124, fieldsig_15);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_17, 200, fieldsig_17);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
-let v = (parser_3, 156, fieldsig_3);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_8, 256, fieldsig_8);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_10, 192, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_10, 192, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_11, 192, fieldsig_11);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_10, 192, fieldsig_10);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_11, 192, fieldsig_11);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_19, 272, fieldsig_19);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_19, 272, fieldsig_19);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_19, 272, fieldsig_19);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_19, 272, fieldsig_19);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_14, 224, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_14, 224, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_11, 192, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_13, 224, fieldsig_13);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_16, 200, fieldsig_16);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_18, 256, fieldsig_18);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_9, 116, fieldsig_9);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_9, 116, fieldsig_9);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_20, 128, fieldsig_20);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_20, 128, fieldsig_20);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_20, 128, fieldsig_20);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_20, 128, fieldsig_20);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_20, 128, fieldsig_20);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_12, 140, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_11, 192, fieldsig_11);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_4, 116, fieldsig_4);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_11, 192, fieldsig_11);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-type kernel_version = string;;
-let inet6_ifaddr_known version = StringMap.mem version map;;
-let inet6_ifaddr_size version =
-  let (_, size, _) = StringMap.find version map in size;;
-let inet6_ifaddr_of_bits version bits =
-  let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
-let get_inet6_ifaddr version mem addr =
-  let (parsefn, size, _) = StringMap.find version map in
-  let bytes = Virt_mem_mmap.get_bytes mem addr size in
-  let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
-let field_signature_of_inet6_ifaddr_prefix_len version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_inet6_ifaddr_prefix_len;;
-let field_signature_of_inet6_ifaddr_lst_next version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_inet6_ifaddr_lst_next;;
diff --git a/lib/kernel_inet6_ifaddr.mli b/lib/kernel_inet6_ifaddr.mli
deleted file mode 100644 (file)
index c4efa59..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-type t =
-  { inet6_ifaddr_prefix_len : int64;
-    inet6_ifaddr_lst_next : Virt_mem_mmap.addr
-  };;
-val struct_name : string;;
-type kernel_version = string;;
-val inet6_ifaddr_known : kernel_version -> bool;;
-val inet6_ifaddr_size : kernel_version -> int;;
-val inet6_ifaddr_of_bits : kernel_version -> Bitstring.bitstring -> t;;
-val get_inet6_ifaddr :
-  kernel_version ->
-    ('a, 'b, [ | `HasMapping ]) Virt_mem_mmap.t -> Virt_mem_mmap.addr -> t;;
-val field_signature_of_inet6_ifaddr_prefix_len :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_inet6_ifaddr_lst_next :
-  kernel_version -> Virt_mem_types.fieldsig;;
diff --git a/lib/kernel_net.ml b/lib/kernel_net.ml
deleted file mode 100644 (file)
index 4f0885d..0000000
+++ /dev/null
@@ -1,408 +0,0 @@
-(* WARNING: This file and the corresponding mli (interface) are
- * automatically generated by the extract/codegen/kerneldb_to_parser.ml
- * program.
- *
- * Any edits you make to this file will be lost.
- *
- * To update this file from the latest kernel database, it is recommended
- * that you do 'make update-kernel-structs'.
- *)
-
-let zero = 0;;
-let struct_name = "net";;
-let match_err = "failed to match kernel structure";;
-type t = { net_dev_base_head'next : Virt_mem_mmap.addr };;
-type fs_t = { __fs_net_dev_base_head'next : Virt_mem_types.fieldsig };;
-let fieldsig_1 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 68; };
-  };;
-let fieldsig_2 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 64; };
-  };;
-let fieldsig_3 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-  };;
-let fieldsig_4 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-  };;
-let fieldsig_5 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-  };;
-let fieldsig_6 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 128; };
-  };;
-let fieldsig_7 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-  };;
-let fieldsig_8 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 88; };
-  };;
-let fieldsig_9 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 120; };
-  };;
-let fieldsig_10 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 96; };
-  };;
-let fieldsig_11 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 96; };
-  };;
-let fieldsig_12 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 56; };
-  };;
-let fieldsig_13 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 144; };
-  };;
-let fieldsig_14 =
-  {
-    __fs_net_dev_base_head'next =
-      { Virt_mem_types.field_available = true; field_offset = 144; };
-  };;
-let parser_1 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+32 : offset(544), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
-let parser_2 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+32 : offset(512), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
-let parser_3 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+32 : offset(416), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
-let parser_4 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+32 : offset(384), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
-let parser_5 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+32 : offset(576), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
-let parser_6 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+64 : offset(1024), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
-let parser_7 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+32 : offset(384), bigendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
-let parser_8 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+64 : offset(704), bigendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
-let parser_9 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+64 : offset(960), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
-let parser_10 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+64 : offset(768), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
-let parser_11 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+64 : offset(768), bigendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
-let parser_12 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+32 : offset(448), bigendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
-let parser_13 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+64 : offset(1152), bigendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_13", match_err));;
-let parser_14 bits = 
-  bitmatch bits with
-  | { net_dev_base_head'next : zero+64 : offset(1152), littleendian } ->
-      { net_dev_base_head'next = net_dev_base_head'next }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_14", match_err));;
-module StringMap = Map.Make(String);;
-let map = StringMap.empty;;
-let v = (parser_1, 356, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_2, 732, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_3, 284, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 660, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_4, 660, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_2, 732, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 356, fieldsig_1);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_6, 616, fieldsig_6);;
-let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
-let v = (parser_2, 732, fieldsig_2);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_6, 1352, fieldsig_6);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_2, 732, fieldsig_2);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_6, 1352, fieldsig_6);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_7, 64, fieldsig_7);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_8, 120, fieldsig_8);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_9, 152, fieldsig_9);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_7, 64, fieldsig_7);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_8, 120, fieldsig_8);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_9, 152, fieldsig_9);;
-let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
-let v = (parser_2, 80, fieldsig_2);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_7, 64, fieldsig_7);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_8, 120, fieldsig_8);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_9, 152, fieldsig_9);;
-let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
-let v = (parser_3, 284, fieldsig_3);;
-let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
-let v = (parser_10, 488, fieldsig_10);;
-let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
-let v = (parser_3, 284, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
-let v = (parser_3, 284, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_11, 488, fieldsig_11);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_4, 660, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
-let v = (parser_4, 660, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_7, 652, fieldsig_7);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_11, 1224, fieldsig_11);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_10, 1224, fieldsig_10);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_4, 660, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
-let v = (parser_4, 660, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_7, 652, fieldsig_7);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_11, 1224, fieldsig_11);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_10, 1224, fieldsig_10);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_12, 860, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_14, 1680, fieldsig_14);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_12, 860, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_14, 1680, fieldsig_14);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_12, 860, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_14, 1680, fieldsig_14);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_12, 860, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_14, 1680, fieldsig_14);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_12, 860, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_14, 1680, fieldsig_14);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_12, 860, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_14, 1680, fieldsig_14);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
-let v = (parser_5, 912, fieldsig_5);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_12, 860, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_14, 1680, fieldsig_14);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_8, 120, fieldsig_8);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_8, 120, fieldsig_8);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_8, 120, fieldsig_8);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_11, 488, fieldsig_11);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_11, 1224, fieldsig_11);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_11, 1224, fieldsig_11);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_13, 1680, fieldsig_13);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_7, 64, fieldsig_7);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_7, 64, fieldsig_7);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_7, 64, fieldsig_7);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_7, 660, fieldsig_7);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_7, 660, fieldsig_7);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_12, 864, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_12, 864, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_12, 864, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_12, 864, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_12, 864, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_12, 864, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_12, 864, fieldsig_12);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-type kernel_version = string;;
-let net_known version = StringMap.mem version map;;
-let net_size version =
-  let (_, size, _) = StringMap.find version map in size;;
-let net_of_bits version bits =
-  let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
-let get_net version mem addr =
-  let (parsefn, size, _) = StringMap.find version map in
-  let bytes = Virt_mem_mmap.get_bytes mem addr size in
-  let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
-let field_signature_of_net_dev_base_head'next version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_net_dev_base_head'next;;
diff --git a/lib/kernel_net.mli b/lib/kernel_net.mli
deleted file mode 100644 (file)
index 2a0ffa7..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-type t = { net_dev_base_head'next : Virt_mem_mmap.addr };;
-val struct_name : string;;
-type kernel_version = string;;
-val net_known : kernel_version -> bool;;
-val net_size : kernel_version -> int;;
-val net_of_bits : kernel_version -> Bitstring.bitstring -> t;;
-val get_net :
-  kernel_version ->
-    ('a, 'b, [ | `HasMapping ]) Virt_mem_mmap.t -> Virt_mem_mmap.addr -> t;;
-val field_signature_of_net_dev_base_head'next :
-  kernel_version -> Virt_mem_types.fieldsig;;
diff --git a/lib/kernel_net_device.ml b/lib/kernel_net_device.ml
deleted file mode 100644 (file)
index 50066f8..0000000
+++ /dev/null
@@ -1,1961 +0,0 @@
-(* WARNING: This file and the corresponding mli (interface) are
- * automatically generated by the extract/codegen/kerneldb_to_parser.ml
- * program.
- *
- * Any edits you make to this file will be lost.
- *
- * To update this file from the latest kernel database, it is recommended
- * that you do 'make update-kernel-structs'.
- *)
-
-let zero = 0;;
-let struct_name = "net_device";;
-let match_err = "failed to match kernel structure";;
-type t =
-  { net_device_dev_list'prev : Virt_mem_mmap.addr option;
-    net_device_dev_list'next : Virt_mem_mmap.addr option;
-    net_device_next : Virt_mem_mmap.addr option; net_device_name : string;
-    net_device_flags : int64; net_device_operstate : int64;
-    net_device_mtu : int64; net_device_perm_addr : string;
-    net_device_addr_len : int64; net_device_ip_ptr : Virt_mem_mmap.addr;
-    net_device_ip6_ptr : Virt_mem_mmap.addr
-  };;
-type fs_t =
-  { __fs_net_device_dev_list'prev : Virt_mem_types.fieldsig;
-    __fs_net_device_dev_list'next : Virt_mem_types.fieldsig;
-    __fs_net_device_next : Virt_mem_types.fieldsig;
-    __fs_net_device_name : Virt_mem_types.fieldsig;
-    __fs_net_device_flags : Virt_mem_types.fieldsig;
-    __fs_net_device_operstate : Virt_mem_types.fieldsig;
-    __fs_net_device_mtu : Virt_mem_types.fieldsig;
-    __fs_net_device_perm_addr : Virt_mem_types.fieldsig;
-    __fs_net_device_addr_len : Virt_mem_types.fieldsig;
-    __fs_net_device_ip_ptr : Virt_mem_types.fieldsig;
-    __fs_net_device_ip6_ptr : Virt_mem_types.fieldsig
-  };;
-let fieldsig_1 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 88; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 98; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 100; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 112; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 144; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 168; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 176; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_2 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 194; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 240; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 284; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_3 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 206; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 220; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 252; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 288; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 296; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_4 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 206; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 224; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 256; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 292; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 300; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_5 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 194; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 240; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 264; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_6 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 192; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 202; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 204; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 220; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 252; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 320; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 328; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_7 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 144; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 154; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 156; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 176; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 248; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 264; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_8 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 336; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 346; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 348; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 400; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 472; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_9 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 370; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 372; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 392; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 480; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 496; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_10 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 92; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 102; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 104; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 116; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 148; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 172; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 180; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_11 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 92; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 102; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 104; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 116; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 148; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 172; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 180; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_12 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 152; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 162; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 164; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 256; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_13 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 152; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 162; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 164; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 256; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_14 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 88; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 98; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 100; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 112; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 144; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 168; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 176; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_15 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 144; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 154; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 156; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 176; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 248; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 264; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_16 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 194; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 240; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 264; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_17 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 336; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 346; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 348; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 400; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 440; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_18 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 336; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 346; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 348; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 400; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 440; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_19 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 194; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 240; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 284; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_20 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 336; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 346; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 348; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 400; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 472; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_21 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 206; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 220; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 252; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 288; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 296; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_22 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 370; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 372; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 392; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 480; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 496; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_23 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 196; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 206; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 224; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 256; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 292; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 300; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_24 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 52; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 192; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 202; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 204; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 220; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 252; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 304; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 312; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_25 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 352; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 362; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 364; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 384; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 528; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 544; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let fieldsig_26 =
-  {
-    __fs_net_device_name =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_net_device_dev_list'next =
-      { Virt_mem_types.field_available = true; field_offset = 72; };
-    __fs_net_device_dev_list'prev =
-      { Virt_mem_types.field_available = true; field_offset = 80; };
-    __fs_net_device_flags =
-      { Virt_mem_types.field_available = true; field_offset = 352; };
-    __fs_net_device_operstate =
-      { Virt_mem_types.field_available = true; field_offset = 362; };
-    __fs_net_device_mtu =
-      { Virt_mem_types.field_available = true; field_offset = 364; };
-    __fs_net_device_perm_addr =
-      { Virt_mem_types.field_available = true; field_offset = 384; };
-    __fs_net_device_addr_len =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_net_device_ip_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 528; };
-    __fs_net_device_ip6_ptr =
-      { Virt_mem_types.field_available = true; field_offset = 544; };
-    __fs_net_device_next =
-      { Virt_mem_types.field_available = false; field_offset = (-1); };
-  };;
-let parser_1 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+32 : offset(384), littleendian;
-      net_device_flags : zero+32 : offset(704), littleendian;
-      net_device_operstate : zero+8 : offset(784), littleendian;
-      net_device_mtu : zero+32 : offset(800), littleendian;
-      net_device_perm_addr : 256 : offset(896), string;
-      net_device_addr_len : zero+8 : offset(1152), littleendian;
-      net_device_ip_ptr : zero+32 : offset(1344), littleendian;
-      net_device_ip6_ptr : zero+32 : offset(1408), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
-let parser_2 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), littleendian;
-      net_device_dev_list'prev : zero+32 : offset(416), littleendian;
-      net_device_flags : zero+32 : offset(1472), littleendian;
-      net_device_operstate : zero+8 : offset(1552), littleendian;
-      net_device_mtu : zero+32 : offset(1568), littleendian;
-      net_device_perm_addr : 256 : offset(1664), string;
-      net_device_addr_len : zero+8 : offset(1920), littleendian;
-      net_device_ip_ptr : zero+32 : offset(2208), littleendian;
-      net_device_ip6_ptr : zero+32 : offset(2272), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
-let parser_3 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), littleendian;
-      net_device_dev_list'prev : zero+32 : offset(416), littleendian;
-      net_device_flags : zero+32 : offset(1568), littleendian;
-      net_device_operstate : zero+8 : offset(1648), littleendian;
-      net_device_mtu : zero+32 : offset(1664), littleendian;
-      net_device_perm_addr : 256 : offset(1760), string;
-      net_device_addr_len : zero+8 : offset(2016), littleendian;
-      net_device_ip_ptr : zero+32 : offset(2304), littleendian;
-      net_device_ip6_ptr : zero+32 : offset(2368), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
-let parser_4 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), littleendian;
-      net_device_dev_list'prev : zero+32 : offset(416), littleendian;
-      net_device_flags : zero+32 : offset(1568), littleendian;
-      net_device_operstate : zero+8 : offset(1648), littleendian;
-      net_device_mtu : zero+32 : offset(1664), littleendian;
-      net_device_perm_addr : 256 : offset(1792), string;
-      net_device_addr_len : zero+8 : offset(2048), littleendian;
-      net_device_ip_ptr : zero+32 : offset(2336), littleendian;
-      net_device_ip6_ptr : zero+32 : offset(2400), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
-let parser_5 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), littleendian;
-      net_device_dev_list'prev : zero+32 : offset(416), littleendian;
-      net_device_flags : zero+32 : offset(1472), littleendian;
-      net_device_operstate : zero+8 : offset(1552), littleendian;
-      net_device_mtu : zero+32 : offset(1568), littleendian;
-      net_device_perm_addr : 256 : offset(1664), string;
-      net_device_addr_len : zero+8 : offset(1920), littleendian;
-      net_device_ip_ptr : zero+32 : offset(2112), littleendian;
-      net_device_ip6_ptr : zero+32 : offset(2176), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
-let parser_6 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), littleendian;
-      net_device_dev_list'prev : zero+32 : offset(416), littleendian;
-      net_device_flags : zero+32 : offset(1536), littleendian;
-      net_device_operstate : zero+8 : offset(1616), littleendian;
-      net_device_mtu : zero+32 : offset(1632), littleendian;
-      net_device_perm_addr : 256 : offset(1760), string;
-      net_device_addr_len : zero+8 : offset(2016), littleendian;
-      net_device_ip_ptr : zero+32 : offset(2560), littleendian;
-      net_device_ip6_ptr : zero+32 : offset(2624), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
-let parser_7 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+64 : offset(576), littleendian;
-      net_device_flags : zero+32 : offset(1152), littleendian;
-      net_device_operstate : zero+8 : offset(1232), littleendian;
-      net_device_mtu : zero+32 : offset(1248), littleendian;
-      net_device_perm_addr : 256 : offset(1408), string;
-      net_device_addr_len : zero+8 : offset(1664), littleendian;
-      net_device_ip_ptr : zero+64 : offset(1984), littleendian;
-      net_device_ip6_ptr : zero+64 : offset(2112), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
-let parser_8 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), littleendian;
-      net_device_dev_list'prev : zero+64 : offset(640), littleendian;
-      net_device_flags : zero+32 : offset(2688), littleendian;
-      net_device_operstate : zero+8 : offset(2768), littleendian;
-      net_device_mtu : zero+32 : offset(2784), littleendian;
-      net_device_perm_addr : 256 : offset(2944), string;
-      net_device_addr_len : zero+8 : offset(3200), littleendian;
-      net_device_ip_ptr : zero+64 : offset(3648), littleendian;
-      net_device_ip6_ptr : zero+64 : offset(3776), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
-let parser_9 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), littleendian;
-      net_device_dev_list'prev : zero+64 : offset(640), littleendian;
-      net_device_flags : zero+32 : offset(2880), littleendian;
-      net_device_operstate : zero+8 : offset(2960), littleendian;
-      net_device_mtu : zero+32 : offset(2976), littleendian;
-      net_device_perm_addr : 256 : offset(3136), string;
-      net_device_addr_len : zero+8 : offset(3392), littleendian;
-      net_device_ip_ptr : zero+64 : offset(3840), littleendian;
-      net_device_ip6_ptr : zero+64 : offset(3968), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
-let parser_10 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+32 : offset(384), littleendian;
-      net_device_flags : zero+32 : offset(736), littleendian;
-      net_device_operstate : zero+8 : offset(816), littleendian;
-      net_device_mtu : zero+32 : offset(832), littleendian;
-      net_device_perm_addr : 256 : offset(928), string;
-      net_device_addr_len : zero+8 : offset(1184), littleendian;
-      net_device_ip_ptr : zero+32 : offset(1376), littleendian;
-      net_device_ip6_ptr : zero+32 : offset(1440), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
-let parser_11 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+32 : offset(384), bigendian;
-      net_device_flags : zero+32 : offset(736), bigendian;
-      net_device_operstate : zero+8 : offset(816), bigendian;
-      net_device_mtu : zero+32 : offset(832), bigendian;
-      net_device_perm_addr : 256 : offset(928), string;
-      net_device_addr_len : zero+8 : offset(1184), bigendian;
-      net_device_ip_ptr : zero+32 : offset(1376), bigendian;
-      net_device_ip6_ptr : zero+32 : offset(1440), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
-let parser_12 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+64 : offset(576), bigendian;
-      net_device_flags : zero+32 : offset(1216), bigendian;
-      net_device_operstate : zero+8 : offset(1296), bigendian;
-      net_device_mtu : zero+32 : offset(1312), bigendian;
-      net_device_perm_addr : 256 : offset(1472), string;
-      net_device_addr_len : zero+8 : offset(1728), bigendian;
-      net_device_ip_ptr : zero+64 : offset(2048), bigendian;
-      net_device_ip6_ptr : zero+64 : offset(2176), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
-let parser_13 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+64 : offset(576), littleendian;
-      net_device_flags : zero+32 : offset(1216), littleendian;
-      net_device_operstate : zero+8 : offset(1296), littleendian;
-      net_device_mtu : zero+32 : offset(1312), littleendian;
-      net_device_perm_addr : 256 : offset(1472), string;
-      net_device_addr_len : zero+8 : offset(1728), littleendian;
-      net_device_ip_ptr : zero+64 : offset(2048), littleendian;
-      net_device_ip6_ptr : zero+64 : offset(2176), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_13", match_err));;
-let parser_14 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+32 : offset(384), bigendian;
-      net_device_flags : zero+32 : offset(704), bigendian;
-      net_device_operstate : zero+8 : offset(784), bigendian;
-      net_device_mtu : zero+32 : offset(800), bigendian;
-      net_device_perm_addr : 256 : offset(896), string;
-      net_device_addr_len : zero+8 : offset(1152), bigendian;
-      net_device_ip_ptr : zero+32 : offset(1344), bigendian;
-      net_device_ip6_ptr : zero+32 : offset(1408), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_14", match_err));;
-let parser_15 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_next : zero+64 : offset(576), bigendian;
-      net_device_flags : zero+32 : offset(1152), bigendian;
-      net_device_operstate : zero+8 : offset(1232), bigendian;
-      net_device_mtu : zero+32 : offset(1248), bigendian;
-      net_device_perm_addr : 256 : offset(1408), string;
-      net_device_addr_len : zero+8 : offset(1664), bigendian;
-      net_device_ip_ptr : zero+64 : offset(1984), bigendian;
-      net_device_ip6_ptr : zero+64 : offset(2112), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_next = Some net_device_next;
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_dev_list'prev = None;
-        net_device_dev_list'next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_15", match_err));;
-let parser_16 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), bigendian;
-      net_device_dev_list'prev : zero+32 : offset(416), bigendian;
-      net_device_flags : zero+32 : offset(1472), bigendian;
-      net_device_operstate : zero+8 : offset(1552), bigendian;
-      net_device_mtu : zero+32 : offset(1568), bigendian;
-      net_device_perm_addr : 256 : offset(1664), string;
-      net_device_addr_len : zero+8 : offset(1920), bigendian;
-      net_device_ip_ptr : zero+32 : offset(2112), bigendian;
-      net_device_ip6_ptr : zero+32 : offset(2176), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_16", match_err));;
-let parser_17 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), bigendian;
-      net_device_dev_list'prev : zero+64 : offset(640), bigendian;
-      net_device_flags : zero+32 : offset(2688), bigendian;
-      net_device_operstate : zero+8 : offset(2768), bigendian;
-      net_device_mtu : zero+32 : offset(2784), bigendian;
-      net_device_perm_addr : 256 : offset(2944), string;
-      net_device_addr_len : zero+8 : offset(3200), bigendian;
-      net_device_ip_ptr : zero+64 : offset(3520), bigendian;
-      net_device_ip6_ptr : zero+64 : offset(3648), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_17", match_err));;
-let parser_18 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), littleendian;
-      net_device_dev_list'prev : zero+64 : offset(640), littleendian;
-      net_device_flags : zero+32 : offset(2688), littleendian;
-      net_device_operstate : zero+8 : offset(2768), littleendian;
-      net_device_mtu : zero+32 : offset(2784), littleendian;
-      net_device_perm_addr : 256 : offset(2944), string;
-      net_device_addr_len : zero+8 : offset(3200), littleendian;
-      net_device_ip_ptr : zero+64 : offset(3520), littleendian;
-      net_device_ip6_ptr : zero+64 : offset(3648), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_18", match_err));;
-let parser_19 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), bigendian;
-      net_device_dev_list'prev : zero+32 : offset(416), bigendian;
-      net_device_flags : zero+32 : offset(1472), bigendian;
-      net_device_operstate : zero+8 : offset(1552), bigendian;
-      net_device_mtu : zero+32 : offset(1568), bigendian;
-      net_device_perm_addr : 256 : offset(1664), string;
-      net_device_addr_len : zero+8 : offset(1920), bigendian;
-      net_device_ip_ptr : zero+32 : offset(2208), bigendian;
-      net_device_ip6_ptr : zero+32 : offset(2272), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_19", match_err));;
-let parser_20 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), bigendian;
-      net_device_dev_list'prev : zero+64 : offset(640), bigendian;
-      net_device_flags : zero+32 : offset(2688), bigendian;
-      net_device_operstate : zero+8 : offset(2768), bigendian;
-      net_device_mtu : zero+32 : offset(2784), bigendian;
-      net_device_perm_addr : 256 : offset(2944), string;
-      net_device_addr_len : zero+8 : offset(3200), bigendian;
-      net_device_ip_ptr : zero+64 : offset(3648), bigendian;
-      net_device_ip6_ptr : zero+64 : offset(3776), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_20", match_err));;
-let parser_21 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), bigendian;
-      net_device_dev_list'prev : zero+32 : offset(416), bigendian;
-      net_device_flags : zero+32 : offset(1568), bigendian;
-      net_device_operstate : zero+8 : offset(1648), bigendian;
-      net_device_mtu : zero+32 : offset(1664), bigendian;
-      net_device_perm_addr : 256 : offset(1760), string;
-      net_device_addr_len : zero+8 : offset(2016), bigendian;
-      net_device_ip_ptr : zero+32 : offset(2304), bigendian;
-      net_device_ip6_ptr : zero+32 : offset(2368), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_21", match_err));;
-let parser_22 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), bigendian;
-      net_device_dev_list'prev : zero+64 : offset(640), bigendian;
-      net_device_flags : zero+32 : offset(2880), bigendian;
-      net_device_operstate : zero+8 : offset(2960), bigendian;
-      net_device_mtu : zero+32 : offset(2976), bigendian;
-      net_device_perm_addr : 256 : offset(3136), string;
-      net_device_addr_len : zero+8 : offset(3392), bigendian;
-      net_device_ip_ptr : zero+64 : offset(3840), bigendian;
-      net_device_ip6_ptr : zero+64 : offset(3968), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_22", match_err));;
-let parser_23 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), bigendian;
-      net_device_dev_list'prev : zero+32 : offset(416), bigendian;
-      net_device_flags : zero+32 : offset(1568), bigendian;
-      net_device_operstate : zero+8 : offset(1648), bigendian;
-      net_device_mtu : zero+32 : offset(1664), bigendian;
-      net_device_perm_addr : 256 : offset(1792), string;
-      net_device_addr_len : zero+8 : offset(2048), bigendian;
-      net_device_ip_ptr : zero+32 : offset(2336), bigendian;
-      net_device_ip6_ptr : zero+32 : offset(2400), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_23", match_err));;
-let parser_24 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+32 : offset(384), bigendian;
-      net_device_dev_list'prev : zero+32 : offset(416), bigendian;
-      net_device_flags : zero+32 : offset(1536), bigendian;
-      net_device_operstate : zero+8 : offset(1616), bigendian;
-      net_device_mtu : zero+32 : offset(1632), bigendian;
-      net_device_perm_addr : 256 : offset(1760), string;
-      net_device_addr_len : zero+8 : offset(2016), bigendian;
-      net_device_ip_ptr : zero+32 : offset(2432), bigendian;
-      net_device_ip6_ptr : zero+32 : offset(2496), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 48L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 52L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_24", match_err));;
-let parser_25 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), bigendian;
-      net_device_dev_list'prev : zero+64 : offset(640), bigendian;
-      net_device_flags : zero+32 : offset(2816), bigendian;
-      net_device_operstate : zero+8 : offset(2896), bigendian;
-      net_device_mtu : zero+32 : offset(2912), bigendian;
-      net_device_perm_addr : 256 : offset(3072), string;
-      net_device_addr_len : zero+8 : offset(3328), bigendian;
-      net_device_ip_ptr : zero+64 : offset(4224), bigendian;
-      net_device_ip6_ptr : zero+64 : offset(4352), bigendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_25", match_err));;
-let parser_26 bits = 
-  bitmatch bits with
-  | { net_device_name : 128 : offset(0), string;
-      net_device_dev_list'next : zero+64 : offset(576), littleendian;
-      net_device_dev_list'prev : zero+64 : offset(640), littleendian;
-      net_device_flags : zero+32 : offset(2816), littleendian;
-      net_device_operstate : zero+8 : offset(2896), littleendian;
-      net_device_mtu : zero+32 : offset(2912), littleendian;
-      net_device_perm_addr : 256 : offset(3072), string;
-      net_device_addr_len : zero+8 : offset(3328), littleendian;
-      net_device_ip_ptr : zero+64 : offset(4224), littleendian;
-      net_device_ip6_ptr : zero+64 : offset(4352), littleendian } ->
-      { net_device_name = net_device_name;
-        net_device_dev_list'next = Some (Int64.sub net_device_dev_list'next 72L);
-        net_device_dev_list'prev = Some (Int64.sub net_device_dev_list'prev 80L);
-        net_device_flags = net_device_flags;
-        net_device_operstate = net_device_operstate;
-        net_device_mtu = net_device_mtu;
-        net_device_perm_addr = net_device_perm_addr;
-        net_device_addr_len = net_device_addr_len;
-        net_device_ip_ptr = net_device_ip_ptr;
-        net_device_ip6_ptr = net_device_ip6_ptr;
-        net_device_next = None }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_26", match_err));;
-module StringMap = Map.Make(String);;
-let map = StringMap.empty;;
-let v = (parser_1, 924, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_2, 1444, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_2, 1444, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 1380, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 1384, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 912, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_1, 1200, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 1200, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_1, 1116, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_2, 1248, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_2, 1248, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_3, 1212, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 1216, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_4, 1216, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_4, 1384, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 924, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_7, 1540, fieldsig_7);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_7, 2196, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_7, 2196, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_7, 2196, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_2, 1444, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_8, 2392, fieldsig_8);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_8, 2392, fieldsig_8);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_3, 1380, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_9, 2296, fieldsig_9);;
-let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
-let v = (parser_4, 1384, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_9, 2304, fieldsig_9);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_4, 1384, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_9, 2304, fieldsig_9);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_10, 912, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;;
-let v = (parser_10, 912, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_11, 672, fieldsig_11);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_12, 1260, fieldsig_12);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_12, 1260, fieldsig_12);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_13, 1260, fieldsig_13);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 912, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;;
-let v = (parser_1, 912, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_14, 668, fieldsig_14);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_15, 1260, fieldsig_15);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_7, 1260, fieldsig_7);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_14, 996, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_7, 2196, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_14, 996, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_7, 2196, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_14, 996, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_7, 2196, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;;
-let v = (parser_1, 1284, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_14, 996, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_7, 2196, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_1, 1200, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;;
-let v = (parser_1, 1200, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_14, 996, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_7, 1900, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 1200, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i586" v map;;
-let v = (parser_1, 1200, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_14, 996, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_7, 1900, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;;
-let v = (parser_1, 1116, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;;
-let v = (parser_1, 1116, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_14, 836, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_15, 1684, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_7, 1660, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;;
-let v = (parser_5, 1408, fieldsig_5);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_16, 1092, fieldsig_16);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_18, 2316, fieldsig_18);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;;
-let v = (parser_2, 1248, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;;
-let v = (parser_2, 1248, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_19, 952, fieldsig_19);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_20, 1824, fieldsig_20);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_8, 1800, fieldsig_8);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_2, 1248, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;;
-let v = (parser_2, 1248, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_19, 952, fieldsig_19);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_20, 1824, fieldsig_20);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_8, 1800, fieldsig_8);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_21, 1048, fieldsig_21);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_22, 1984, fieldsig_22);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_9, 2288, fieldsig_9);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_21, 1048, fieldsig_21);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_22, 1984, fieldsig_22);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_9, 2288, fieldsig_9);;
-let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
-let v = (parser_3, 1244, fieldsig_3);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_21, 1048, fieldsig_21);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_22, 1984, fieldsig_22);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_9, 2288, fieldsig_9);;
-let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
-let v = (parser_3, 1212, fieldsig_3);;
-let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
-let v = (parser_9, 1752, fieldsig_9);;
-let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
-let v = (parser_3, 1212, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
-let v = (parser_3, 1212, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_22, 1776, fieldsig_22);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_4, 1216, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
-let v = (parser_4, 1216, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_23, 920, fieldsig_23);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_22, 1776, fieldsig_22);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_9, 1752, fieldsig_9);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_4, 1216, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
-let v = (parser_4, 1216, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_23, 920, fieldsig_23);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_22, 1776, fieldsig_22);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_9, 1752, fieldsig_9);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_24, 1072, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_26, 2316, fieldsig_26);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_24, 1072, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_26, 2316, fieldsig_26);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_24, 1072, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_26, 2316, fieldsig_26);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_24, 1072, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_26, 2316, fieldsig_26);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_24, 1072, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_26, 2316, fieldsig_26);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_24, 1072, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_26, 2316, fieldsig_26);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
-let v = (parser_6, 1388, fieldsig_6);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_24, 1072, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_26, 2316, fieldsig_26);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_10, 672, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_12, 1260, fieldsig_12);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_12, 1260, fieldsig_12);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_13, 1108, fieldsig_13);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 668, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_15, 1260, fieldsig_15);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_7, 1100, fieldsig_7);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_7, 2124, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_7, 2124, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_7, 2124, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_7, 2124, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_7, 1644, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_15, 1924, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_7, 1644, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_15, 1684, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_7, 1404, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_17, 2044, fieldsig_17);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_20, 1824, fieldsig_20);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_20, 1824, fieldsig_20);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_22, 1984, fieldsig_22);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_22, 1984, fieldsig_22);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_22, 1984, fieldsig_22);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_22, 1776, fieldsig_22);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_22, 1776, fieldsig_22);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_22, 1776, fieldsig_22);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_25, 2332, fieldsig_25);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_11, 688, fieldsig_11);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_14, 688, fieldsig_14);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_14, 1020, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_14, 1020, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_14, 1020, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_14, 1020, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_14, 1020, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_14, 1020, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_14, 936, fieldsig_14);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_16, 1116, fieldsig_16);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_19, 1064, fieldsig_19);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_19, 1064, fieldsig_19);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_21, 1072, fieldsig_21);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_21, 1072, fieldsig_21);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_21, 1072, fieldsig_21);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_23, 1016, fieldsig_23);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_23, 1016, fieldsig_23);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_24, 1120, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_24, 1120, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_24, 1120, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_24, 1120, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_24, 1120, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_24, 1120, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_24, 1120, fieldsig_24);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_10, 912, fieldsig_10);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_13, 1260, fieldsig_13);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 912, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_7, 1260, fieldsig_7);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-type kernel_version = string;;
-let net_device_known version = StringMap.mem version map;;
-let net_device_size version =
-  let (_, size, _) = StringMap.find version map in size;;
-let net_device_of_bits version bits =
-  let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
-let get_net_device version mem addr =
-  let (parsefn, size, _) = StringMap.find version map in
-  let bytes = Virt_mem_mmap.get_bytes mem addr size in
-  let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
-let field_signature_of_net_device_dev_list'prev version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_net_device_dev_list'prev;;
-let field_signature_of_net_device_dev_list'next version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_net_device_dev_list'next;;
-let field_signature_of_net_device_next version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_next;;
-let field_signature_of_net_device_name version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_name;;
-let field_signature_of_net_device_flags version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_flags;;
-let field_signature_of_net_device_operstate version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_operstate;;
-let field_signature_of_net_device_mtu version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_mtu;;
-let field_signature_of_net_device_perm_addr version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_perm_addr;;
-let field_signature_of_net_device_addr_len version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_addr_len;;
-let field_signature_of_net_device_ip_ptr version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_ip_ptr;;
-let field_signature_of_net_device_ip6_ptr version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_net_device_ip6_ptr;;
diff --git a/lib/kernel_net_device.mli b/lib/kernel_net_device.mli
deleted file mode 100644 (file)
index 044de9c..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-type t =
-  { net_device_dev_list'prev : Virt_mem_mmap.addr option;
-    net_device_dev_list'next : Virt_mem_mmap.addr option;
-    net_device_next : Virt_mem_mmap.addr option; net_device_name : string;
-    net_device_flags : int64; net_device_operstate : int64;
-    net_device_mtu : int64; net_device_perm_addr : string;
-    net_device_addr_len : int64; net_device_ip_ptr : Virt_mem_mmap.addr;
-    net_device_ip6_ptr : Virt_mem_mmap.addr
-  };;
-val struct_name : string;;
-type kernel_version = string;;
-val net_device_known : kernel_version -> bool;;
-val net_device_size : kernel_version -> int;;
-val net_device_of_bits : kernel_version -> Bitstring.bitstring -> t;;
-val get_net_device :
-  kernel_version ->
-    ('a, 'b, [ | `HasMapping ]) Virt_mem_mmap.t -> Virt_mem_mmap.addr -> t;;
-val field_signature_of_net_device_dev_list'prev :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_dev_list'next :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_next :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_name :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_flags :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_operstate :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_mtu :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_perm_addr :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_addr_len :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_ip_ptr :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_net_device_ip6_ptr :
-  kernel_version -> Virt_mem_types.fieldsig;;
diff --git a/lib/kernel_task_struct.ml b/lib/kernel_task_struct.ml
deleted file mode 100644 (file)
index 6f6f94a..0000000
+++ /dev/null
@@ -1,2831 +0,0 @@
-(* WARNING: This file and the corresponding mli (interface) are
- * automatically generated by the extract/codegen/kerneldb_to_parser.ml
- * program.
- *
- * Any edits you make to this file will be lost.
- *
- * To update this file from the latest kernel database, it is recommended
- * that you do 'make update-kernel-structs'.
- *)
-
-let zero = 0;;
-let struct_name = "task_struct";;
-let match_err = "failed to match kernel structure";;
-type t =
-  { task_struct_state : int64; task_struct_prio : int64;
-    task_struct_normal_prio : int64; task_struct_static_prio : int64;
-    task_struct_tasks'prev : Virt_mem_mmap.addr;
-    task_struct_tasks'next : Virt_mem_mmap.addr;
-    task_struct_mm : Virt_mem_mmap.addr;
-    task_struct_active_mm : Virt_mem_mmap.addr; task_struct_comm : string;
-    task_struct_pid : int64
-  };;
-type fs_t =
-  { __fs_task_struct_state : Virt_mem_types.fieldsig;
-    __fs_task_struct_prio : Virt_mem_types.fieldsig;
-    __fs_task_struct_normal_prio : Virt_mem_types.fieldsig;
-    __fs_task_struct_static_prio : Virt_mem_types.fieldsig;
-    __fs_task_struct_tasks'prev : Virt_mem_types.fieldsig;
-    __fs_task_struct_tasks'next : Virt_mem_types.fieldsig;
-    __fs_task_struct_mm : Virt_mem_types.fieldsig;
-    __fs_task_struct_active_mm : Virt_mem_types.fieldsig;
-    __fs_task_struct_comm : Virt_mem_types.fieldsig;
-    __fs_task_struct_pid : Virt_mem_types.fieldsig
-  };;
-let fieldsig_1 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 124; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 128; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 132; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 136; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 168; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 404; };
-  };;
-let fieldsig_2 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 268; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 312; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 564; };
-  };;
-let fieldsig_3 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 404; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 408; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 412; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 448; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 741; };
-  };;
-let fieldsig_4 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 420; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 428; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 432; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 464; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 761; };
-  };;
-let fieldsig_5 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 268; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 292; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 296; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 328; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 568; };
-  };;
-let fieldsig_6 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 300; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 304; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 336; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 576; };
-  };;
-let fieldsig_7 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 284; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 316; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 552; };
-  };;
-let fieldsig_8 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 268; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 312; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 548; };
-  };;
-let fieldsig_9 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 376; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 380; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 384; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 388; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 420; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 677; };
-  };;
-let fieldsig_10 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 448; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 452; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 460; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 492; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 788; };
-  };;
-let fieldsig_11 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 44; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 192; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 200; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 268; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 680; };
-  };;
-let fieldsig_12 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 352; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 376; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 856; };
-  };;
-let fieldsig_13 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 480; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 488; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 496; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 504; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 544; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 1049; };
-  };;
-let fieldsig_14 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 512; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 520; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 528; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 536; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 576; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 1089; };
-  };;
-let fieldsig_15 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 128; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 132; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 136; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 140; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 172; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 408; };
-  };;
-let fieldsig_16 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 44; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 200; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 224; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 680; };
-  };;
-let fieldsig_17 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 44; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 224; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 232; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 240; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 292; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 696; };
-  };;
-let fieldsig_18 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 192; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 200; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 248; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 648; };
-  };;
-let fieldsig_19 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 176; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 184; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 192; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 200; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 240; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 648; };
-  };;
-let fieldsig_20 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 284; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 304; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 308; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 340; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 584; };
-  };;
-let fieldsig_21 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 336; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 344; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 384; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 392; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 432; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 840; };
-  };;
-let fieldsig_22 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 328; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 336; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 376; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 384; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 840; };
-  };;
-let fieldsig_23 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 288; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 292; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 312; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 316; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 348; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 592; };
-  };;
-let fieldsig_24 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 408; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 864; };
-  };;
-let fieldsig_25 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 352; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 400; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 408; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 448; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 864; };
-  };;
-let fieldsig_26 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 284; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 288; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 292; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 324; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 560; };
-  };;
-let fieldsig_27 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 352; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 376; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 816; };
-  };;
-let fieldsig_28 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 344; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 352; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 408; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 816; };
-  };;
-let fieldsig_29 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 272; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 276; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 284; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 316; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 552; };
-  };;
-let fieldsig_30 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 376; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 384; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 824; };
-  };;
-let fieldsig_31 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 352; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 376; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 824; };
-  };;
-let fieldsig_32 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 280; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 284; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 288; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 292; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 324; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 576; };
-  };;
-let fieldsig_33 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 360; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 368; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 376; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 384; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 856; };
-  };;
-let fieldsig_34 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 392; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 396; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 400; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 404; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 436; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 697; };
-  };;
-let fieldsig_35 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 464; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 472; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 480; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 520; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 969; };
-  };;
-let fieldsig_36 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 464; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 472; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 480; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 520; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 977; };
-  };;
-let fieldsig_37 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 20; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 400; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 404; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 408; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 412; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 444; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 737; };
-  };;
-let fieldsig_38 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 480; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 488; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 496; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 504; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 544; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 1049; };
-  };;
-let fieldsig_39 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 416; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 420; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 428; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 460; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 757; };
-  };;
-let fieldsig_40 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 424; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 428; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 432; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 436; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 468; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 765; };
-  };;
-let fieldsig_41 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 512; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 520; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 528; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 536; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 576; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 1089; };
-  };;
-let fieldsig_42 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 444; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 448; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 452; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 456; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 488; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 784; };
-  };;
-let fieldsig_43 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 24; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 28; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 464; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 468; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 472; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 476; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 508; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 808; };
-  };;
-let fieldsig_44 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 560; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 568; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 576; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 584; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 624; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 1128; };
-  };;
-let fieldsig_45 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 32; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 36; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 560; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 568; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 576; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 584; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 624; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 1128; };
-  };;
-let fieldsig_46 =
-  {
-    __fs_task_struct_state =
-      { Virt_mem_types.field_available = true; field_offset = 0; };
-    __fs_task_struct_prio =
-      { Virt_mem_types.field_available = true; field_offset = 40; };
-    __fs_task_struct_static_prio =
-      { Virt_mem_types.field_available = true; field_offset = 44; };
-    __fs_task_struct_normal_prio =
-      { Virt_mem_types.field_available = true; field_offset = 48; };
-    __fs_task_struct_tasks'next =
-      { Virt_mem_types.field_available = true; field_offset = 192; };
-    __fs_task_struct_tasks'prev =
-      { Virt_mem_types.field_available = true; field_offset = 200; };
-    __fs_task_struct_mm =
-      { Virt_mem_types.field_available = true; field_offset = 208; };
-    __fs_task_struct_active_mm =
-      { Virt_mem_types.field_available = true; field_offset = 216; };
-    __fs_task_struct_pid =
-      { Virt_mem_types.field_available = true; field_offset = 268; };
-    __fs_task_struct_comm =
-      { Virt_mem_types.field_available = true; field_offset = 672; };
-  };;
-let parser_1 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(192), littleendian;
-      task_struct_static_prio : zero+32 : offset(224), littleendian;
-      task_struct_normal_prio : zero+32 : offset(256), littleendian;
-      task_struct_tasks'next : zero+32 : offset(992), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(1024), littleendian;
-      task_struct_mm : zero+32 : offset(1056), littleendian;
-      task_struct_active_mm : zero+32 : offset(1088), littleendian;
-      task_struct_pid : zero+32 : offset(1344), littleendian;
-      task_struct_comm : 128 : offset(3232), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 124L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 128L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_1", match_err));;
-let parser_2 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(160), littleendian;
-      task_struct_static_prio : zero+32 : offset(192), littleendian;
-      task_struct_normal_prio : zero+32 : offset(224), littleendian;
-      task_struct_tasks'next : zero+32 : offset(2144), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(2176), littleendian;
-      task_struct_mm : zero+32 : offset(2208), littleendian;
-      task_struct_active_mm : zero+32 : offset(2240), littleendian;
-      task_struct_pid : zero+32 : offset(2496), littleendian;
-      task_struct_comm : 128 : offset(4512), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 268L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 272L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_2", match_err));;
-let parser_3 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(160), littleendian;
-      task_struct_static_prio : zero+32 : offset(192), littleendian;
-      task_struct_normal_prio : zero+32 : offset(224), littleendian;
-      task_struct_tasks'next : zero+32 : offset(3232), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(3264), littleendian;
-      task_struct_mm : zero+32 : offset(3296), littleendian;
-      task_struct_active_mm : zero+32 : offset(3328), littleendian;
-      task_struct_pid : zero+32 : offset(3584), littleendian;
-      task_struct_comm : 128 : offset(5928), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 404L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 408L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_3", match_err));;
-let parser_4 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(192), littleendian;
-      task_struct_static_prio : zero+32 : offset(224), littleendian;
-      task_struct_normal_prio : zero+32 : offset(256), littleendian;
-      task_struct_tasks'next : zero+32 : offset(3360), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(3392), littleendian;
-      task_struct_mm : zero+32 : offset(3424), littleendian;
-      task_struct_active_mm : zero+32 : offset(3456), littleendian;
-      task_struct_pid : zero+32 : offset(3712), littleendian;
-      task_struct_comm : 128 : offset(6088), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 420L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 424L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_4", match_err));;
-let parser_5 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(192), littleendian;
-      task_struct_static_prio : zero+32 : offset(224), littleendian;
-      task_struct_normal_prio : zero+32 : offset(256), littleendian;
-      task_struct_tasks'next : zero+32 : offset(2144), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(2176), littleendian;
-      task_struct_mm : zero+32 : offset(2336), littleendian;
-      task_struct_active_mm : zero+32 : offset(2368), littleendian;
-      task_struct_pid : zero+32 : offset(2624), littleendian;
-      task_struct_comm : 128 : offset(4544), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 268L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 272L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_5", match_err));;
-let parser_6 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(192), littleendian;
-      task_struct_static_prio : zero+32 : offset(224), littleendian;
-      task_struct_normal_prio : zero+32 : offset(256), littleendian;
-      task_struct_tasks'next : zero+32 : offset(2208), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(2240), littleendian;
-      task_struct_mm : zero+32 : offset(2400), littleendian;
-      task_struct_active_mm : zero+32 : offset(2432), littleendian;
-      task_struct_pid : zero+32 : offset(2688), littleendian;
-      task_struct_comm : 128 : offset(4608), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 276L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 280L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_6", match_err));;
-let parser_7 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(160), littleendian;
-      task_struct_static_prio : zero+32 : offset(192), littleendian;
-      task_struct_normal_prio : zero+32 : offset(224), littleendian;
-      task_struct_tasks'next : zero+32 : offset(2176), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(2208), littleendian;
-      task_struct_mm : zero+32 : offset(2240), littleendian;
-      task_struct_active_mm : zero+32 : offset(2272), littleendian;
-      task_struct_pid : zero+32 : offset(2528), littleendian;
-      task_struct_comm : 128 : offset(4416), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 272L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 276L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_7", match_err));;
-let parser_8 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(160), littleendian;
-      task_struct_static_prio : zero+32 : offset(192), littleendian;
-      task_struct_normal_prio : zero+32 : offset(224), littleendian;
-      task_struct_tasks'next : zero+32 : offset(2144), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(2176), littleendian;
-      task_struct_mm : zero+32 : offset(2208), littleendian;
-      task_struct_active_mm : zero+32 : offset(2240), littleendian;
-      task_struct_pid : zero+32 : offset(2496), littleendian;
-      task_struct_comm : 128 : offset(4384), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 268L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 272L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_8", match_err));;
-let parser_9 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(160), littleendian;
-      task_struct_static_prio : zero+32 : offset(192), littleendian;
-      task_struct_normal_prio : zero+32 : offset(224), littleendian;
-      task_struct_tasks'next : zero+32 : offset(3008), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(3040), littleendian;
-      task_struct_mm : zero+32 : offset(3072), littleendian;
-      task_struct_active_mm : zero+32 : offset(3104), littleendian;
-      task_struct_pid : zero+32 : offset(3360), littleendian;
-      task_struct_comm : 128 : offset(5416), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 376L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 380L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_9", match_err));;
-let parser_10 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(192), littleendian;
-      task_struct_static_prio : zero+32 : offset(224), littleendian;
-      task_struct_normal_prio : zero+32 : offset(256), littleendian;
-      task_struct_tasks'next : zero+32 : offset(3584), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(3616), littleendian;
-      task_struct_mm : zero+32 : offset(3648), littleendian;
-      task_struct_active_mm : zero+32 : offset(3680), littleendian;
-      task_struct_pid : zero+32 : offset(3936), littleendian;
-      task_struct_comm : 128 : offset(6304), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 448L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 452L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_10", match_err));;
-let parser_11 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(320), littleendian;
-      task_struct_static_prio : zero+32 : offset(352), littleendian;
-      task_struct_normal_prio : zero+32 : offset(384), littleendian;
-      task_struct_tasks'next : zero+64 : offset(1536), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(1600), littleendian;
-      task_struct_mm : zero+64 : offset(1664), littleendian;
-      task_struct_active_mm : zero+64 : offset(1728), littleendian;
-      task_struct_pid : zero+32 : offset(2144), littleendian;
-      task_struct_comm : 128 : offset(5440), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 192L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 200L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_11", match_err));;
-let parser_12 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(224), littleendian;
-      task_struct_static_prio : zero+32 : offset(256), littleendian;
-      task_struct_normal_prio : zero+32 : offset(288), littleendian;
-      task_struct_tasks'next : zero+64 : offset(2816), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(2880), littleendian;
-      task_struct_mm : zero+64 : offset(2944), littleendian;
-      task_struct_active_mm : zero+64 : offset(3008), littleendian;
-      task_struct_pid : zero+32 : offset(3328), littleendian;
-      task_struct_comm : 128 : offset(6848), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_12", match_err));;
-let parser_13 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(224), littleendian;
-      task_struct_static_prio : zero+32 : offset(256), littleendian;
-      task_struct_normal_prio : zero+32 : offset(288), littleendian;
-      task_struct_tasks'next : zero+64 : offset(3840), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(3904), littleendian;
-      task_struct_mm : zero+64 : offset(3968), littleendian;
-      task_struct_active_mm : zero+64 : offset(4032), littleendian;
-      task_struct_pid : zero+32 : offset(4352), littleendian;
-      task_struct_comm : 128 : offset(8392), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 480L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 488L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_13", match_err));;
-let parser_14 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(256), littleendian;
-      task_struct_static_prio : zero+32 : offset(288), littleendian;
-      task_struct_normal_prio : zero+32 : offset(320), littleendian;
-      task_struct_tasks'next : zero+64 : offset(4096), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(4160), littleendian;
-      task_struct_mm : zero+64 : offset(4224), littleendian;
-      task_struct_active_mm : zero+64 : offset(4288), littleendian;
-      task_struct_pid : zero+32 : offset(4608), littleendian;
-      task_struct_comm : 128 : offset(8712), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 512L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 520L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_14", match_err));;
-let parser_15 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(192), bigendian;
-      task_struct_static_prio : zero+32 : offset(224), bigendian;
-      task_struct_normal_prio : zero+32 : offset(256), bigendian;
-      task_struct_tasks'next : zero+32 : offset(1024), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(1056), bigendian;
-      task_struct_mm : zero+32 : offset(1088), bigendian;
-      task_struct_active_mm : zero+32 : offset(1120), bigendian;
-      task_struct_pid : zero+32 : offset(1376), bigendian;
-      task_struct_comm : 128 : offset(3264), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 128L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 132L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_15", match_err));;
-let parser_16 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(320), bigendian;
-      task_struct_static_prio : zero+32 : offset(352), bigendian;
-      task_struct_normal_prio : zero+32 : offset(384), bigendian;
-      task_struct_tasks'next : zero+64 : offset(1600), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(1664), bigendian;
-      task_struct_mm : zero+64 : offset(1728), bigendian;
-      task_struct_active_mm : zero+64 : offset(1792), bigendian;
-      task_struct_pid : zero+32 : offset(2208), bigendian;
-      task_struct_comm : 128 : offset(5440), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 200L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 208L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_16", match_err));;
-let parser_17 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(320), littleendian;
-      task_struct_static_prio : zero+32 : offset(352), littleendian;
-      task_struct_normal_prio : zero+32 : offset(384), littleendian;
-      task_struct_tasks'next : zero+64 : offset(1728), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(1792), littleendian;
-      task_struct_mm : zero+64 : offset(1856), littleendian;
-      task_struct_active_mm : zero+64 : offset(1920), littleendian;
-      task_struct_pid : zero+32 : offset(2336), littleendian;
-      task_struct_comm : 128 : offset(5568), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 216L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 224L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_17", match_err));;
-let parser_18 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(256), bigendian;
-      task_struct_static_prio : zero+32 : offset(288), bigendian;
-      task_struct_normal_prio : zero+32 : offset(320), bigendian;
-      task_struct_tasks'next : zero+64 : offset(1472), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(1536), bigendian;
-      task_struct_mm : zero+64 : offset(1600), bigendian;
-      task_struct_active_mm : zero+64 : offset(1664), bigendian;
-      task_struct_pid : zero+32 : offset(1984), bigendian;
-      task_struct_comm : 128 : offset(5184), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 184L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 192L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_18", match_err));;
-let parser_19 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(256), littleendian;
-      task_struct_static_prio : zero+32 : offset(288), littleendian;
-      task_struct_normal_prio : zero+32 : offset(320), littleendian;
-      task_struct_tasks'next : zero+64 : offset(1408), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(1472), littleendian;
-      task_struct_mm : zero+64 : offset(1536), littleendian;
-      task_struct_active_mm : zero+64 : offset(1600), littleendian;
-      task_struct_pid : zero+32 : offset(1920), littleendian;
-      task_struct_comm : 128 : offset(5184), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 176L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 184L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_19", match_err));;
-let parser_20 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(192), bigendian;
-      task_struct_static_prio : zero+32 : offset(224), bigendian;
-      task_struct_normal_prio : zero+32 : offset(256), bigendian;
-      task_struct_tasks'next : zero+32 : offset(2240), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(2272), bigendian;
-      task_struct_mm : zero+32 : offset(2432), bigendian;
-      task_struct_active_mm : zero+32 : offset(2464), bigendian;
-      task_struct_pid : zero+32 : offset(2720), bigendian;
-      task_struct_comm : 128 : offset(4672), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 280L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 284L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_20", match_err));;
-let parser_21 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(256), bigendian;
-      task_struct_static_prio : zero+32 : offset(288), bigendian;
-      task_struct_normal_prio : zero+32 : offset(320), bigendian;
-      task_struct_tasks'next : zero+64 : offset(2688), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(2752), bigendian;
-      task_struct_mm : zero+64 : offset(3072), bigendian;
-      task_struct_active_mm : zero+64 : offset(3136), bigendian;
-      task_struct_pid : zero+32 : offset(3456), bigendian;
-      task_struct_comm : 128 : offset(6720), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 336L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 344L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_21", match_err));;
-let parser_22 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(256), littleendian;
-      task_struct_static_prio : zero+32 : offset(288), littleendian;
-      task_struct_normal_prio : zero+32 : offset(320), littleendian;
-      task_struct_tasks'next : zero+64 : offset(2624), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(2688), littleendian;
-      task_struct_mm : zero+64 : offset(3008), littleendian;
-      task_struct_active_mm : zero+64 : offset(3072), littleendian;
-      task_struct_pid : zero+32 : offset(3392), littleendian;
-      task_struct_comm : 128 : offset(6720), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 328L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 336L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_22", match_err));;
-let parser_23 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(192), bigendian;
-      task_struct_static_prio : zero+32 : offset(224), bigendian;
-      task_struct_normal_prio : zero+32 : offset(256), bigendian;
-      task_struct_tasks'next : zero+32 : offset(2304), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(2336), bigendian;
-      task_struct_mm : zero+32 : offset(2496), bigendian;
-      task_struct_active_mm : zero+32 : offset(2528), bigendian;
-      task_struct_pid : zero+32 : offset(2784), bigendian;
-      task_struct_comm : 128 : offset(4736), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 288L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 292L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_23", match_err));;
-let parser_24 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(256), bigendian;
-      task_struct_static_prio : zero+32 : offset(288), bigendian;
-      task_struct_normal_prio : zero+32 : offset(320), bigendian;
-      task_struct_tasks'next : zero+64 : offset(2880), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(2944), bigendian;
-      task_struct_mm : zero+64 : offset(3264), bigendian;
-      task_struct_active_mm : zero+64 : offset(3328), bigendian;
-      task_struct_pid : zero+32 : offset(3648), bigendian;
-      task_struct_comm : 128 : offset(6912), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 360L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 368L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_24", match_err));;
-let parser_25 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(256), littleendian;
-      task_struct_static_prio : zero+32 : offset(288), littleendian;
-      task_struct_normal_prio : zero+32 : offset(320), littleendian;
-      task_struct_tasks'next : zero+64 : offset(2816), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(2880), littleendian;
-      task_struct_mm : zero+64 : offset(3200), littleendian;
-      task_struct_active_mm : zero+64 : offset(3264), littleendian;
-      task_struct_pid : zero+32 : offset(3584), littleendian;
-      task_struct_comm : 128 : offset(6912), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_25", match_err));;
-let parser_26 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(160), bigendian;
-      task_struct_static_prio : zero+32 : offset(192), bigendian;
-      task_struct_normal_prio : zero+32 : offset(224), bigendian;
-      task_struct_tasks'next : zero+32 : offset(2240), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(2272), bigendian;
-      task_struct_mm : zero+32 : offset(2304), bigendian;
-      task_struct_active_mm : zero+32 : offset(2336), bigendian;
-      task_struct_pid : zero+32 : offset(2592), bigendian;
-      task_struct_comm : 128 : offset(4480), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 280L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 284L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_26", match_err));;
-let parser_27 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(224), bigendian;
-      task_struct_static_prio : zero+32 : offset(256), bigendian;
-      task_struct_normal_prio : zero+32 : offset(288), bigendian;
-      task_struct_tasks'next : zero+64 : offset(2816), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(2880), bigendian;
-      task_struct_mm : zero+64 : offset(2944), bigendian;
-      task_struct_active_mm : zero+64 : offset(3008), bigendian;
-      task_struct_pid : zero+32 : offset(3328), bigendian;
-      task_struct_comm : 128 : offset(6528), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_27", match_err));;
-let parser_28 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(224), littleendian;
-      task_struct_static_prio : zero+32 : offset(256), littleendian;
-      task_struct_normal_prio : zero+32 : offset(288), littleendian;
-      task_struct_tasks'next : zero+64 : offset(2752), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(2816), littleendian;
-      task_struct_mm : zero+64 : offset(2880), littleendian;
-      task_struct_active_mm : zero+64 : offset(2944), littleendian;
-      task_struct_pid : zero+32 : offset(3264), littleendian;
-      task_struct_comm : 128 : offset(6528), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 344L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 352L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_28", match_err));;
-let parser_29 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(160), bigendian;
-      task_struct_static_prio : zero+32 : offset(192), bigendian;
-      task_struct_normal_prio : zero+32 : offset(224), bigendian;
-      task_struct_tasks'next : zero+32 : offset(2176), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(2208), bigendian;
-      task_struct_mm : zero+32 : offset(2240), bigendian;
-      task_struct_active_mm : zero+32 : offset(2272), bigendian;
-      task_struct_pid : zero+32 : offset(2528), bigendian;
-      task_struct_comm : 128 : offset(4416), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 272L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 276L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_29", match_err));;
-let parser_30 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(224), bigendian;
-      task_struct_static_prio : zero+32 : offset(256), bigendian;
-      task_struct_normal_prio : zero+32 : offset(288), bigendian;
-      task_struct_tasks'next : zero+64 : offset(2880), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(2944), bigendian;
-      task_struct_mm : zero+64 : offset(3008), bigendian;
-      task_struct_active_mm : zero+64 : offset(3072), bigendian;
-      task_struct_pid : zero+32 : offset(3392), bigendian;
-      task_struct_comm : 128 : offset(6592), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 360L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 368L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_30", match_err));;
-let parser_31 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(224), littleendian;
-      task_struct_static_prio : zero+32 : offset(256), littleendian;
-      task_struct_normal_prio : zero+32 : offset(288), littleendian;
-      task_struct_tasks'next : zero+64 : offset(2816), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(2880), littleendian;
-      task_struct_mm : zero+64 : offset(2944), littleendian;
-      task_struct_active_mm : zero+64 : offset(3008), littleendian;
-      task_struct_pid : zero+32 : offset(3328), littleendian;
-      task_struct_comm : 128 : offset(6592), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_31", match_err));;
-let parser_32 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(160), bigendian;
-      task_struct_static_prio : zero+32 : offset(192), bigendian;
-      task_struct_normal_prio : zero+32 : offset(224), bigendian;
-      task_struct_tasks'next : zero+32 : offset(2240), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(2272), bigendian;
-      task_struct_mm : zero+32 : offset(2304), bigendian;
-      task_struct_active_mm : zero+32 : offset(2336), bigendian;
-      task_struct_pid : zero+32 : offset(2592), bigendian;
-      task_struct_comm : 128 : offset(4608), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 280L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 284L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_32", match_err));;
-let parser_33 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(224), bigendian;
-      task_struct_static_prio : zero+32 : offset(256), bigendian;
-      task_struct_normal_prio : zero+32 : offset(288), bigendian;
-      task_struct_tasks'next : zero+64 : offset(2880), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(2944), bigendian;
-      task_struct_mm : zero+64 : offset(3008), bigendian;
-      task_struct_active_mm : zero+64 : offset(3072), bigendian;
-      task_struct_pid : zero+32 : offset(3392), bigendian;
-      task_struct_comm : 128 : offset(6848), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 360L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 368L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_33", match_err));;
-let parser_34 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(160), bigendian;
-      task_struct_static_prio : zero+32 : offset(192), bigendian;
-      task_struct_normal_prio : zero+32 : offset(224), bigendian;
-      task_struct_tasks'next : zero+32 : offset(3136), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(3168), bigendian;
-      task_struct_mm : zero+32 : offset(3200), bigendian;
-      task_struct_active_mm : zero+32 : offset(3232), bigendian;
-      task_struct_pid : zero+32 : offset(3488), bigendian;
-      task_struct_comm : 128 : offset(5576), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 392L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 396L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_34", match_err));;
-let parser_35 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(224), bigendian;
-      task_struct_static_prio : zero+32 : offset(256), bigendian;
-      task_struct_normal_prio : zero+32 : offset(288), bigendian;
-      task_struct_tasks'next : zero+64 : offset(3648), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(3712), bigendian;
-      task_struct_mm : zero+64 : offset(3776), bigendian;
-      task_struct_active_mm : zero+64 : offset(3840), bigendian;
-      task_struct_pid : zero+32 : offset(4160), bigendian;
-      task_struct_comm : 128 : offset(7752), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 456L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 464L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_35", match_err));;
-let parser_36 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(224), littleendian;
-      task_struct_static_prio : zero+32 : offset(256), littleendian;
-      task_struct_normal_prio : zero+32 : offset(288), littleendian;
-      task_struct_tasks'next : zero+64 : offset(3648), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(3712), littleendian;
-      task_struct_mm : zero+64 : offset(3776), littleendian;
-      task_struct_active_mm : zero+64 : offset(3840), littleendian;
-      task_struct_pid : zero+32 : offset(4160), littleendian;
-      task_struct_comm : 128 : offset(7816), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 456L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 464L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_36", match_err));;
-let parser_37 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(160), littleendian;
-      task_struct_static_prio : zero+32 : offset(192), littleendian;
-      task_struct_normal_prio : zero+32 : offset(224), littleendian;
-      task_struct_tasks'next : zero+32 : offset(3200), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(3232), littleendian;
-      task_struct_mm : zero+32 : offset(3264), littleendian;
-      task_struct_active_mm : zero+32 : offset(3296), littleendian;
-      task_struct_pid : zero+32 : offset(3552), littleendian;
-      task_struct_comm : 128 : offset(5896), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 400L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 404L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_37", match_err));;
-let parser_38 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(224), bigendian;
-      task_struct_static_prio : zero+32 : offset(256), bigendian;
-      task_struct_normal_prio : zero+32 : offset(288), bigendian;
-      task_struct_tasks'next : zero+64 : offset(3840), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(3904), bigendian;
-      task_struct_mm : zero+64 : offset(3968), bigendian;
-      task_struct_active_mm : zero+64 : offset(4032), bigendian;
-      task_struct_pid : zero+32 : offset(4352), bigendian;
-      task_struct_comm : 128 : offset(8392), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 480L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 488L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_38", match_err));;
-let parser_39 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(192), littleendian;
-      task_struct_static_prio : zero+32 : offset(224), littleendian;
-      task_struct_normal_prio : zero+32 : offset(256), littleendian;
-      task_struct_tasks'next : zero+32 : offset(3328), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(3360), littleendian;
-      task_struct_mm : zero+32 : offset(3392), littleendian;
-      task_struct_active_mm : zero+32 : offset(3424), littleendian;
-      task_struct_pid : zero+32 : offset(3680), littleendian;
-      task_struct_comm : 128 : offset(6056), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 416L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 420L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_39", match_err));;
-let parser_40 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(192), bigendian;
-      task_struct_static_prio : zero+32 : offset(224), bigendian;
-      task_struct_normal_prio : zero+32 : offset(256), bigendian;
-      task_struct_tasks'next : zero+32 : offset(3392), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(3424), bigendian;
-      task_struct_mm : zero+32 : offset(3456), bigendian;
-      task_struct_active_mm : zero+32 : offset(3488), bigendian;
-      task_struct_pid : zero+32 : offset(3744), bigendian;
-      task_struct_comm : 128 : offset(6120), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 424L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 428L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_40", match_err));;
-let parser_41 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(256), bigendian;
-      task_struct_static_prio : zero+32 : offset(288), bigendian;
-      task_struct_normal_prio : zero+32 : offset(320), bigendian;
-      task_struct_tasks'next : zero+64 : offset(4096), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(4160), bigendian;
-      task_struct_mm : zero+64 : offset(4224), bigendian;
-      task_struct_active_mm : zero+64 : offset(4288), bigendian;
-      task_struct_pid : zero+32 : offset(4608), bigendian;
-      task_struct_comm : 128 : offset(8712), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 512L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 520L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_41", match_err));;
-let parser_42 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(192), littleendian;
-      task_struct_static_prio : zero+32 : offset(224), littleendian;
-      task_struct_normal_prio : zero+32 : offset(256), littleendian;
-      task_struct_tasks'next : zero+32 : offset(3552), littleendian;
-      task_struct_tasks'prev : zero+32 : offset(3584), littleendian;
-      task_struct_mm : zero+32 : offset(3616), littleendian;
-      task_struct_active_mm : zero+32 : offset(3648), littleendian;
-      task_struct_pid : zero+32 : offset(3904), littleendian;
-      task_struct_comm : 128 : offset(6272), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 444L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 448L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_42", match_err));;
-let parser_43 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+32 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(192), bigendian;
-      task_struct_static_prio : zero+32 : offset(224), bigendian;
-      task_struct_normal_prio : zero+32 : offset(256), bigendian;
-      task_struct_tasks'next : zero+32 : offset(3712), bigendian;
-      task_struct_tasks'prev : zero+32 : offset(3744), bigendian;
-      task_struct_mm : zero+32 : offset(3776), bigendian;
-      task_struct_active_mm : zero+32 : offset(3808), bigendian;
-      task_struct_pid : zero+32 : offset(4064), bigendian;
-      task_struct_comm : 128 : offset(6464), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 464L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 468L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_43", match_err));;
-let parser_44 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), bigendian;
-      task_struct_prio : zero+32 : offset(256), bigendian;
-      task_struct_static_prio : zero+32 : offset(288), bigendian;
-      task_struct_normal_prio : zero+32 : offset(320), bigendian;
-      task_struct_tasks'next : zero+64 : offset(4480), bigendian;
-      task_struct_tasks'prev : zero+64 : offset(4544), bigendian;
-      task_struct_mm : zero+64 : offset(4608), bigendian;
-      task_struct_active_mm : zero+64 : offset(4672), bigendian;
-      task_struct_pid : zero+32 : offset(4992), bigendian;
-      task_struct_comm : 128 : offset(9024), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 560L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 568L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_44", match_err));;
-let parser_45 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(256), littleendian;
-      task_struct_static_prio : zero+32 : offset(288), littleendian;
-      task_struct_normal_prio : zero+32 : offset(320), littleendian;
-      task_struct_tasks'next : zero+64 : offset(4480), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(4544), littleendian;
-      task_struct_mm : zero+64 : offset(4608), littleendian;
-      task_struct_active_mm : zero+64 : offset(4672), littleendian;
-      task_struct_pid : zero+32 : offset(4992), littleendian;
-      task_struct_comm : 128 : offset(9024), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 560L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 568L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_45", match_err));;
-let parser_46 bits = 
-  bitmatch bits with
-  | { task_struct_state : zero+64 : offset(0), littleendian;
-      task_struct_prio : zero+32 : offset(320), littleendian;
-      task_struct_static_prio : zero+32 : offset(352), littleendian;
-      task_struct_normal_prio : zero+32 : offset(384), littleendian;
-      task_struct_tasks'next : zero+64 : offset(1536), littleendian;
-      task_struct_tasks'prev : zero+64 : offset(1600), littleendian;
-      task_struct_mm : zero+64 : offset(1664), littleendian;
-      task_struct_active_mm : zero+64 : offset(1728), littleendian;
-      task_struct_pid : zero+32 : offset(2144), littleendian;
-      task_struct_comm : 128 : offset(5376), string } ->
-      { task_struct_state = task_struct_state;
-        task_struct_prio = task_struct_prio;
-        task_struct_static_prio = task_struct_static_prio;
-        task_struct_normal_prio = task_struct_normal_prio;
-        task_struct_tasks'next = Int64.sub task_struct_tasks'next 192L;
-        task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 200L;
-        task_struct_mm = task_struct_mm;
-        task_struct_active_mm = task_struct_active_mm;
-        task_struct_pid = task_struct_pid;
-        task_struct_comm = task_struct_comm }
-  | { _ } ->
-      raise (Virt_mem_types.ParseError (struct_name, "parser_46", match_err));;
-module StringMap = Map.Make(String);;
-let map = StringMap.empty;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_2, 3364, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_2, 3364, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_3, 4684, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 4180, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_1, 1376, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_5, 2880, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_6, 2880, fieldsig_6);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_7, 2872, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_7, 2872, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_8, 2856, fieldsig_8);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_7, 2872, fieldsig_7);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_2, 1548, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_2, 1548, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_3, 1832, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_4, 1328, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_4, 1328, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_4, 4180, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_2, 3364, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_12, 4468, fieldsig_12);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_12, 4468, fieldsig_12);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_3, 4684, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_13, 6232, fieldsig_13);;
-let map = StringMap.add "2.6.25.14-69.fc8.x86_64" v map;;
-let v = (parser_4, 4180, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_14, 5808, fieldsig_14);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_4, 4180, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_14, 5808, fieldsig_14);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_1, 1384, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;;
-let v = (parser_1, 1384, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_15, 1576, fieldsig_15);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_16, 2104, fieldsig_16);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_16, 2088, fieldsig_16);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_17, 1928, fieldsig_17);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_15, 1592, fieldsig_15);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_16, 2112, fieldsig_16);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_11, 1920, fieldsig_11);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
-let v = (parser_15, 1604, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
-let v = (parser_15, 1604, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
-let v = (parser_15, 1604, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;;
-let v = (parser_1, 2704, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
-let v = (parser_15, 1604, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_11, 3772, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
-let v = (parser_15, 1592, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_16, 2112, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_11, 1920, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i586" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3190.fc7.i686" v map;;
-let v = (parser_15, 1592, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_16, 2112, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_11, 1920, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
-let v = (parser_15, 1612, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_18, 2116, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_19, 3756, fieldsig_19);;
-let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
-let v = (parser_15, 1612, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_18, 2116, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_19, 3756, fieldsig_19);;
-let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;;
-let v = (parser_1, 2712, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
-let v = (parser_15, 1612, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_18, 2116, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_19, 3756, fieldsig_19);;
-let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;;
-let v = (parser_1, 1376, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;;
-let v = (parser_1, 1376, fieldsig_1);;
-let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
-let v = (parser_15, 1560, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_16, 2072, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_11, 1880, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_5, 2880, fieldsig_5);;
-let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
-let v = (parser_20, 1780, fieldsig_20);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_21, 2292, fieldsig_21);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_22, 3932, fieldsig_22);;
-let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;;
-let v = (parser_6, 2880, fieldsig_6);;
-let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
-let v = (parser_23, 1780, fieldsig_23);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_24, 2308, fieldsig_24);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_25, 3948, fieldsig_25);;
-let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;;
-let v = (parser_7, 2872, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
-let v = (parser_26, 1756, fieldsig_26);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_27, 2276, fieldsig_27);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_28, 3916, fieldsig_28);;
-let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;;
-let v = (parser_7, 2872, fieldsig_7);;
-let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
-let v = (parser_26, 1756, fieldsig_26);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_27, 2276, fieldsig_27);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_28, 3916, fieldsig_28);;
-let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;;
-let v = (parser_8, 2856, fieldsig_8);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
-let v = (parser_29, 1756, fieldsig_29);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_30, 2292, fieldsig_30);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_31, 3932, fieldsig_31);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;;
-let v = (parser_7, 2872, fieldsig_7);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
-let v = (parser_26, 1756, fieldsig_26);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_27, 2276, fieldsig_27);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_28, 3916, fieldsig_28);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;;
-let v = (parser_2, 1548, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;;
-let v = (parser_2, 1548, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
-let v = (parser_32, 1736, fieldsig_32);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_33, 2272, fieldsig_33);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_12, 2080, fieldsig_12);;
-let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
-let v = (parser_2, 1548, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;;
-let v = (parser_2, 1548, fieldsig_2);;
-let map = StringMap.add "2.6.23.14-78.fc7.i686" v map;;
-let v = (parser_32, 1736, fieldsig_32);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_33, 2272, fieldsig_33);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_12, 2080, fieldsig_12);;
-let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
-let v = (parser_34, 1940, fieldsig_34);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_35, 2504, fieldsig_35);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_36, 4684, fieldsig_36);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
-let v = (parser_34, 1940, fieldsig_34);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_35, 2504, fieldsig_35);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_36, 4684, fieldsig_36);;
-let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
-let v = (parser_9, 3540, fieldsig_9);;
-let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
-let v = (parser_34, 1940, fieldsig_34);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_35, 2504, fieldsig_35);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_36, 4684, fieldsig_36);;
-let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
-let v = (parser_3, 1832, fieldsig_3);;
-let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
-let v = (parser_13, 2496, fieldsig_13);;
-let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
-let v = (parser_37, 1832, fieldsig_37);;
-let map = StringMap.add "2.6.25.14-69.fc8.i586" v map;;
-let v = (parser_3, 1832, fieldsig_3);;
-let map = StringMap.add "2.6.25.14-69.fc8.i686" v map;;
-let v = (parser_38, 2524, fieldsig_38);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_39, 1324, fieldsig_39);;
-let map = StringMap.add "2.6.26.1-9.fc9.i586" v map;;
-let v = (parser_4, 1328, fieldsig_4);;
-let map = StringMap.add "2.6.26.1-9.fc9.i686" v map;;
-let v = (parser_40, 1968, fieldsig_40);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_41, 2572, fieldsig_41);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_14, 2072, fieldsig_14);;
-let map = StringMap.add "2.6.26.1-9.fc9.x86_64" v map;;
-let v = (parser_39, 1324, fieldsig_39);;
-let map = StringMap.add "2.6.26.2-2.fc8.i586" v map;;
-let v = (parser_4, 1328, fieldsig_4);;
-let map = StringMap.add "2.6.26.2-2.fc8.i686" v map;;
-let v = (parser_40, 1968, fieldsig_40);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_41, 2572, fieldsig_41);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_14, 2072, fieldsig_14);;
-let map = StringMap.add "2.6.26.2-2.fc8.x86_64" v map;;
-let v = (parser_42, 4200, fieldsig_42);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i586" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.i686" v map;;
-let v = (parser_43, 2124, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_45, 5824, fieldsig_45);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_42, 4200, fieldsig_42);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i586" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.i686" v map;;
-let v = (parser_43, 2124, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_45, 5824, fieldsig_45);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.x86_64" v map;;
-let v = (parser_42, 4200, fieldsig_42);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i586" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.i686" v map;;
-let v = (parser_43, 2124, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_45, 5824, fieldsig_45);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.x86_64" v map;;
-let v = (parser_42, 4200, fieldsig_42);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i586" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.i686" v map;;
-let v = (parser_43, 2124, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_45, 5824, fieldsig_45);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.x86_64" v map;;
-let v = (parser_42, 4200, fieldsig_42);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i586" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.i686" v map;;
-let v = (parser_43, 2124, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_45, 5824, fieldsig_45);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.x86_64" v map;;
-let v = (parser_42, 4200, fieldsig_42);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i586" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.i686" v map;;
-let v = (parser_43, 2124, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_45, 5824, fieldsig_45);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_42, 4200, fieldsig_42);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i586" v map;;
-let v = (parser_10, 4204, fieldsig_10);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.i686" v map;;
-let v = (parser_43, 2124, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_45, 5824, fieldsig_45);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.x86_64" v map;;
-let v = (parser_1, 1368, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_16, 2104, fieldsig_16);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
-let v = (parser_16, 2088, fieldsig_16);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
-let v = (parser_46, 1856, fieldsig_46);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 1384, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_16, 2112, fieldsig_16);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
-let v = (parser_11, 1880, fieldsig_11);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
-let v = (parser_11, 3780, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
-let v = (parser_11, 3780, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
-let v = (parser_11, 3780, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
-let v = (parser_16, 2132, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
-let v = (parser_11, 3780, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
-let v = (parser_16, 2112, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
-let v = (parser_11, 1880, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
-let v = (parser_16, 2112, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc64" v map;;
-let v = (parser_11, 1880, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3190.fc7.x86_64" v map;;
-let v = (parser_18, 2116, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
-let v = (parser_18, 2116, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
-let v = (parser_18, 2116, fieldsig_18);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
-let v = (parser_16, 2072, fieldsig_16);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
-let v = (parser_11, 1832, fieldsig_11);;
-let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
-let v = (parser_21, 2292, fieldsig_21);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
-let v = (parser_24, 2308, fieldsig_24);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
-let v = (parser_27, 2276, fieldsig_27);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
-let v = (parser_27, 2276, fieldsig_27);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
-let v = (parser_30, 2292, fieldsig_30);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
-let v = (parser_27, 2276, fieldsig_27);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
-let v = (parser_33, 2272, fieldsig_33);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
-let v = (parser_33, 2272, fieldsig_33);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
-let v = (parser_35, 2504, fieldsig_35);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
-let v = (parser_35, 2504, fieldsig_35);;
-let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
-let v = (parser_35, 2504, fieldsig_35);;
-let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
-let v = (parser_38, 2524, fieldsig_38);;
-let map = StringMap.add "2.6.25.14-69.fc8.ppc64" v map;;
-let v = (parser_41, 2572, fieldsig_41);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc64" v map;;
-let v = (parser_41, 2572, fieldsig_41);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc64" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc64" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc64" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc64" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc64" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_44, 6712, fieldsig_44);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc64" v map;;
-let v = (parser_15, 1592, fieldsig_15);;
-let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
-let v = (parser_15, 1608, fieldsig_15);;
-let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
-let v = (parser_15, 1620, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
-let v = (parser_15, 1620, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
-let v = (parser_15, 1620, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
-let v = (parser_15, 1620, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
-let v = (parser_15, 1608, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
-let v = (parser_15, 1608, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3190.fc7.ppc" v map;;
-let v = (parser_15, 1628, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
-let v = (parser_15, 1628, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
-let v = (parser_15, 1628, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
-let v = (parser_15, 1584, fieldsig_15);;
-let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
-let v = (parser_20, 1796, fieldsig_20);;
-let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
-let v = (parser_23, 1796, fieldsig_23);;
-let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
-let v = (parser_26, 1772, fieldsig_26);;
-let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
-let v = (parser_26, 1772, fieldsig_26);;
-let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
-let v = (parser_29, 1772, fieldsig_29);;
-let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
-let v = (parser_26, 1772, fieldsig_26);;
-let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
-let v = (parser_32, 1760, fieldsig_32);;
-let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
-let v = (parser_32, 1760, fieldsig_32);;
-let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
-let v = (parser_34, 1952, fieldsig_34);;
-let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
-let v = (parser_34, 1952, fieldsig_34);;
-let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
-let v = (parser_34, 1952, fieldsig_34);;
-let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
-let v = (parser_40, 1992, fieldsig_40);;
-let map = StringMap.add "2.6.26.1-9.fc9.ppc" v map;;
-let v = (parser_40, 1992, fieldsig_40);;
-let map = StringMap.add "2.6.26.2-2.fc8.ppc" v map;;
-let v = (parser_43, 2136, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.225.rc1.git5.fc10.ppc" v map;;
-let v = (parser_43, 2136, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.226.rc1.git5.fc10.ppc" v map;;
-let v = (parser_43, 2136, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.231.rc1.git6.fc10.ppc" v map;;
-let v = (parser_43, 2136, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.237.rc2.fc10.ppc" v map;;
-let v = (parser_43, 2136, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.238.rc2.fc10.ppc" v map;;
-let v = (parser_43, 2136, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.241.rc2.git1.fc10.ppc" v map;;
-let v = (parser_43, 2136, fieldsig_43);;
-let map = StringMap.add "2.6.27-0.244.rc2.git1.fc10.ppc" v map;;
-let v = (parser_1, 1384, fieldsig_1);;
-let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
-let v = (parser_17, 1928, fieldsig_17);;
-let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
-let v = (parser_1, 1400, fieldsig_1);;
-let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
-let v = (parser_11, 1920, fieldsig_11);;
-let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
-type kernel_version = string;;
-let task_struct_known version = StringMap.mem version map;;
-let task_struct_size version =
-  let (_, size, _) = StringMap.find version map in size;;
-let task_struct_of_bits version bits =
-  let (parsefn, _, _) = StringMap.find version map in parsefn bits;;
-let get_task_struct version mem addr =
-  let (parsefn, size, _) = StringMap.find version map in
-  let bytes = Virt_mem_mmap.get_bytes mem addr size in
-  let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;
-let field_signature_of_task_struct_state version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_task_struct_state;;
-let field_signature_of_task_struct_prio version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_task_struct_prio;;
-let field_signature_of_task_struct_normal_prio version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_task_struct_normal_prio;;
-let field_signature_of_task_struct_static_prio version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_task_struct_static_prio;;
-let field_signature_of_task_struct_tasks'prev version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_task_struct_tasks'prev;;
-let field_signature_of_task_struct_tasks'next version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_task_struct_tasks'next;;
-let field_signature_of_task_struct_mm version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_task_struct_mm;;
-let field_signature_of_task_struct_active_mm version =
-  let (_, _, fs) = StringMap.find version map
-  in fs.__fs_task_struct_active_mm;;
-let field_signature_of_task_struct_comm version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_task_struct_comm;;
-let field_signature_of_task_struct_pid version =
-  let (_, _, fs) = StringMap.find version map in fs.__fs_task_struct_pid;;
diff --git a/lib/kernel_task_struct.mli b/lib/kernel_task_struct.mli
deleted file mode 100644 (file)
index 101642f..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-type t =
-  { task_struct_state : int64; task_struct_prio : int64;
-    task_struct_normal_prio : int64; task_struct_static_prio : int64;
-    task_struct_tasks'prev : Virt_mem_mmap.addr;
-    task_struct_tasks'next : Virt_mem_mmap.addr;
-    task_struct_mm : Virt_mem_mmap.addr;
-    task_struct_active_mm : Virt_mem_mmap.addr; task_struct_comm : string;
-    task_struct_pid : int64
-  };;
-val struct_name : string;;
-type kernel_version = string;;
-val task_struct_known : kernel_version -> bool;;
-val task_struct_size : kernel_version -> int;;
-val task_struct_of_bits : kernel_version -> Bitstring.bitstring -> t;;
-val get_task_struct :
-  kernel_version ->
-    ('a, 'b, [ | `HasMapping ]) Virt_mem_mmap.t -> Virt_mem_mmap.addr -> t;;
-val field_signature_of_task_struct_state :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_prio :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_normal_prio :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_static_prio :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_tasks'prev :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_tasks'next :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_mm :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_active_mm :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_comm :
-  kernel_version -> Virt_mem_types.fieldsig;;
-val field_signature_of_task_struct_pid :
-  kernel_version -> Virt_mem_types.fieldsig;;
index a7b6a9b..9d7b9db 100644 (file)
@@ -1,144 +1,6 @@
 let kernels =
-  [ "2.6.18-1.2798.fc6.i586"; "2.6.18-1.2798.fc6.i686";
-    "2.6.18-1.2798.fc6.i686"; "2.6.18-1.2798.fc6.i686";
-    "2.6.18-1.2798.fc6.ppc"; "2.6.18-1.2798.fc6.ppc";
-    "2.6.18-1.2798.fc6.ppc64"; "2.6.18-1.2798.fc6.ppc64";
-    "2.6.18-1.2798.fc6.ppc64iseries"; "2.6.18-1.2798.fc6.ppc64iseries";
-    "2.6.18-1.2798.fc6.x86_64"; "2.6.18-1.2798.fc6.x86_64";
-    "2.6.18-1.2798.fc6.x86_64"; "2.6.20-1.2933.fc6.i586";
-    "2.6.20-1.2933.fc6.i686"; "2.6.20-1.2933.fc6.i686";
-    "2.6.20-1.2933.fc6.i686"; "2.6.20-1.2933.fc6.i686";
-    "2.6.20-1.2933.fc6.i686"; "2.6.20-1.2933.fc6.i686";
-    "2.6.20-1.2933.fc6.ppc"; "2.6.20-1.2933.fc6.ppc";
-    "2.6.20-1.2933.fc6.ppc64"; "2.6.20-1.2933.fc6.ppc64";
-    "2.6.20-1.2933.fc6.x86_64"; "2.6.20-1.2933.fc6.x86_64";
-    "2.6.20-1.2933.fc6.x86_64"; "2.6.20-1.2933.fc6.x86_64";
-    "2.6.21-1.3128.fc7.i586"; "2.6.21-1.3128.fc7.i686";
-    "2.6.21-1.3128.fc7.i686"; "2.6.21-1.3128.fc7.ppc";
-    "2.6.21-1.3128.fc7.ppc"; "2.6.21-1.3128.fc7.ppc64";
-    "2.6.21-1.3128.fc7.ppc64"; "2.6.21-1.3128.fc7.x86_64";
-    "2.6.21-1.3128.fc7.x86_64"; "2.6.21-1.3132.fc7.i586";
-    "2.6.21-1.3132.fc7.i686"; "2.6.21-1.3132.fc7.i686";
-    "2.6.21-1.3132.fc7.ppc"; "2.6.21-1.3132.fc7.ppc";
-    "2.6.21-1.3132.fc7.ppc64"; "2.6.21-1.3132.fc7.ppc64";
-    "2.6.21-1.3132.fc7.x86_64"; "2.6.21-1.3132.fc7.x86_64";
-    "2.6.21-1.3141.fc7.i586"; "2.6.21-1.3141.fc7.i686";
-    "2.6.21-1.3141.fc7.i686"; "2.6.21-1.3141.fc7.ppc";
-    "2.6.21-1.3141.fc7.ppc"; "2.6.21-1.3141.fc7.ppc64";
+  [ "2.6.21-1.3128.fc7.i586"; "2.6.21-1.3128.fc7.i686";
     "2.6.21-1.3141.fc7.ppc64"; "2.6.21-1.3141.fc7.x86_64";
-    "2.6.21-1.3141.fc7.x86_64"; "2.6.21-1.3144.fc7.i586";
-    "2.6.21-1.3144.fc7.i686"; "2.6.21-1.3144.fc7.i686";
-    "2.6.21-1.3144.fc7.ppc"; "2.6.21-1.3144.fc7.ppc";
-    "2.6.21-1.3144.fc7.ppc64"; "2.6.21-1.3144.fc7.ppc64";
-    "2.6.21-1.3144.fc7.x86_64"; "2.6.21-1.3144.fc7.x86_64";
-    "2.6.21-1.3145.fc7.i586"; "2.6.21-1.3145.fc7.i686";
-    "2.6.21-1.3145.fc7.i686"; "2.6.21-1.3145.fc7.i686";
-    "2.6.21-1.3145.fc7.i686"; "2.6.21-1.3145.fc7.ppc";
-    "2.6.21-1.3145.fc7.ppc"; "2.6.21-1.3145.fc7.ppc64";
-    "2.6.21-1.3145.fc7.ppc64"; "2.6.21-1.3145.fc7.x86_64";
-    "2.6.21-1.3145.fc7.x86_64"; "2.6.21-1.3145.fc7.x86_64";
-    "2.6.21-1.3190.fc7.i586"; "2.6.21-1.3190.fc7.i686";
-    "2.6.21-1.3190.fc7.i686"; "2.6.21-1.3190.fc7.i686";
-    "2.6.21-1.3190.fc7.i686"; "2.6.21-1.3190.fc7.ppc";
-    "2.6.21-1.3190.fc7.ppc"; "2.6.21-1.3190.fc7.ppc64";
-    "2.6.21-1.3190.fc7.ppc64"; "2.6.21-1.3190.fc7.x86_64";
-    "2.6.21-1.3190.fc7.x86_64"; "2.6.21-1.3190.fc7.x86_64";
-    "2.6.21-1.3209.fc8.i586"; "2.6.21-1.3209.fc8.i686";
-    "2.6.21-1.3209.fc8.i686"; "2.6.21-1.3209.fc8.ppc";
-    "2.6.21-1.3209.fc8.ppc"; "2.6.21-1.3209.fc8.ppc64";
-    "2.6.21-1.3209.fc8.ppc64"; "2.6.21-1.3209.fc8.x86_64";
-    "2.6.21-1.3218.fc8.i586"; "2.6.21-1.3218.fc8.i686";
-    "2.6.21-1.3218.fc8.i686"; "2.6.21-1.3218.fc8.ppc";
-    "2.6.21-1.3218.fc8.ppc"; "2.6.21-1.3218.fc8.ppc64";
-    "2.6.21-1.3218.fc8.ppc64"; "2.6.21-1.3218.fc8.x86_64";
-    "2.6.21-1.3221.fc8.i586"; "2.6.21-1.3221.fc8.i686";
-    "2.6.21-1.3221.fc8.i686"; "2.6.21-1.3221.fc8.ppc";
-    "2.6.21-1.3221.fc8.ppc"; "2.6.21-1.3221.fc8.ppc64";
-    "2.6.21-1.3221.fc8.ppc64"; "2.6.21-1.3221.fc8.x86_64";
-    "2.6.21-1.3228.fc7.i586"; "2.6.21-1.3228.fc7.i686";
-    "2.6.21-1.3228.fc7.i686"; "2.6.21-1.3228.fc7.i686";
-    "2.6.21-1.3228.fc7.i686"; "2.6.21-1.3228.fc7.ppc";
-    "2.6.21-1.3228.fc7.ppc"; "2.6.21-1.3228.fc7.ppc64";
-    "2.6.21-1.3228.fc7.ppc64"; "2.6.21-1.3228.fc7.x86_64";
-    "2.6.21-1.3228.fc7.x86_64"; "2.6.21-1.3228.fc7.x86_64";
-    "2.6.21-1.3234.fc8.i686"; "2.6.21-1.3234.fc8.i686";
-    "2.6.21-1.3234.fc8.ppc"; "2.6.21-1.3234.fc8.ppc";
-    "2.6.21-1.3234.fc8.ppc64"; "2.6.21-1.3234.fc8.ppc64";
-    "2.6.21-1.3234.fc8.x86_64"; "2.6.21-1.3236.fc8.i686";
-    "2.6.21-1.3236.fc8.i686"; "2.6.21-1.3236.fc8.ppc";
-    "2.6.21-1.3236.fc8.ppc"; "2.6.21-1.3236.fc8.ppc64";
-    "2.6.21-1.3236.fc8.ppc64"; "2.6.21-1.3236.fc8.x86_64";
-    "2.6.21-1.3238.fc8.i686"; "2.6.21-1.3238.fc8.i686";
-    "2.6.21-1.3238.fc8.ppc"; "2.6.21-1.3238.fc8.ppc";
-    "2.6.21-1.3238.fc8.ppc64"; "2.6.21-1.3238.fc8.ppc64";
-    "2.6.21-1.3238.fc8.x86_64"; "2.6.21-1.3242.fc8.i686";
-    "2.6.21-1.3242.fc8.i686"; "2.6.21-1.3242.fc8.ppc";
-    "2.6.21-1.3242.fc8.ppc"; "2.6.21-1.3242.fc8.ppc64";
-    "2.6.21-1.3242.fc8.ppc64"; "2.6.21-1.3242.fc8.x86_64";
-    "2.6.22-0.23.rc7.git6.fc8.i686"; "2.6.22-0.23.rc7.git6.fc8.i686";
-    "2.6.22-0.23.rc7.git6.fc8.ppc"; "2.6.22-0.23.rc7.git6.fc8.ppc";
-    "2.6.22-0.23.rc7.git6.fc8.ppc64"; "2.6.22-0.23.rc7.git6.fc8.ppc64";
-    "2.6.22-0.23.rc7.git6.fc8.x86_64"; "2.6.22-0.rc7.2.fc8.i686";
-    "2.6.22-0.rc7.2.fc8.i686"; "2.6.22-0.rc7.2.fc8.ppc";
-    "2.6.22-0.rc7.2.fc8.ppc"; "2.6.22-0.rc7.2.fc8.ppc64";
-    "2.6.22-0.rc7.2.fc8.ppc64"; "2.6.22-0.rc7.2.fc8.x86_64";
-    "2.6.23.14-135.fc8.i586"; "2.6.23.14-135.fc8.i686";
-    "2.6.23.14-135.fc8.i686"; "2.6.23.14-135.fc8.i686";
-    "2.6.23.14-135.fc8.i686"; "2.6.23.14-135.fc8.ppc";
-    "2.6.23.14-135.fc8.ppc"; "2.6.23.14-135.fc8.ppc64";
-    "2.6.23.14-135.fc8.ppc64"; "2.6.23.14-135.fc8.x86_64";
-    "2.6.23.14-135.fc8.x86_64"; "2.6.23.14-78.fc7.i586";
-    "2.6.23.14-78.fc7.i686"; "2.6.23.14-78.fc7.i686";
-    "2.6.23.14-78.fc7.i686"; "2.6.23.14-78.fc7.ppc"; "2.6.23.14-78.fc7.ppc";
-    "2.6.23.14-78.fc7.ppc64"; "2.6.23.14-78.fc7.ppc64";
-    "2.6.23.14-78.fc7.x86_64"; "2.6.23.14-78.fc7.x86_64";
-    "2.6.24-0.167.rc8.git4.fc9.i586"; "2.6.24-0.167.rc8.git4.fc9.i686";
-    "2.6.24-0.167.rc8.git4.fc9.i686"; "2.6.24-0.167.rc8.git4.fc9.ppc";
-    "2.6.24-0.167.rc8.git4.fc9.ppc"; "2.6.24-0.167.rc8.git4.fc9.ppc64";
-    "2.6.24-0.167.rc8.git4.fc9.ppc64"; "2.6.24-0.167.rc8.git4.fc9.x86_64";
-    "2.6.24-7.fc9.i586"; "2.6.24-7.fc9.i686"; "2.6.24-7.fc9.i686";
-    "2.6.24-7.fc9.ppc"; "2.6.24-7.fc9.ppc"; "2.6.24-7.fc9.ppc64";
-    "2.6.24-7.fc9.ppc64"; "2.6.24-7.fc9.x86_64"; "2.6.24-9.fc9.i586";
-    "2.6.24-9.fc9.i686"; "2.6.24-9.fc9.i686"; "2.6.24-9.fc9.ppc";
-    "2.6.24-9.fc9.ppc"; "2.6.24-9.fc9.ppc64"; "2.6.24-9.fc9.ppc64";
-    "2.6.24-9.fc9.x86_64"; "2.6.25.11-97.fc9.i686";
-    "2.6.25.11-97.fc9.x86_64"; "2.6.25.14-69.fc8.i586";
-    "2.6.25.14-69.fc8.i686"; "2.6.25.14-69.fc8.i686";
-    "2.6.25.14-69.fc8.i686"; "2.6.25.14-69.fc8.i686";
-    "2.6.25.14-69.fc8.ppc64"; "2.6.25.14-69.fc8.ppc64";
-    "2.6.25.14-69.fc8.x86_64"; "2.6.26.1-9.fc9.i586"; "2.6.26.1-9.fc9.i686";
-    "2.6.26.1-9.fc9.i686"; "2.6.26.1-9.fc9.i686"; "2.6.26.1-9.fc9.i686";
-    "2.6.26.1-9.fc9.ppc"; "2.6.26.1-9.fc9.ppc"; "2.6.26.1-9.fc9.ppc64";
-    "2.6.26.1-9.fc9.ppc64"; "2.6.26.1-9.fc9.x86_64"; "2.6.26.1-9.fc9.x86_64";
-    "2.6.26.2-2.fc8.i586"; "2.6.26.2-2.fc8.i686"; "2.6.26.2-2.fc8.i686";
-    "2.6.26.2-2.fc8.i686"; "2.6.26.2-2.fc8.i686"; "2.6.26.2-2.fc8.ppc";
-    "2.6.26.2-2.fc8.ppc"; "2.6.26.2-2.fc8.ppc64"; "2.6.26.2-2.fc8.ppc64";
-    "2.6.26.2-2.fc8.x86_64"; "2.6.26.2-2.fc8.x86_64";
-    "2.6.27-0.225.rc1.git5.fc10.i586"; "2.6.27-0.225.rc1.git5.fc10.i686";
-    "2.6.27-0.225.rc1.git5.fc10.i686"; "2.6.27-0.225.rc1.git5.fc10.ppc";
-    "2.6.27-0.225.rc1.git5.fc10.ppc"; "2.6.27-0.225.rc1.git5.fc10.ppc64";
-    "2.6.27-0.225.rc1.git5.fc10.ppc64"; "2.6.27-0.225.rc1.git5.fc10.x86_64";
-    "2.6.27-0.226.rc1.git5.fc10.i586"; "2.6.27-0.226.rc1.git5.fc10.i686";
-    "2.6.27-0.226.rc1.git5.fc10.i686"; "2.6.27-0.226.rc1.git5.fc10.ppc";
-    "2.6.27-0.226.rc1.git5.fc10.ppc"; "2.6.27-0.226.rc1.git5.fc10.ppc64";
-    "2.6.27-0.226.rc1.git5.fc10.ppc64"; "2.6.27-0.226.rc1.git5.fc10.x86_64";
-    "2.6.27-0.231.rc1.git6.fc10.i586"; "2.6.27-0.231.rc1.git6.fc10.i686";
-    "2.6.27-0.231.rc1.git6.fc10.i686"; "2.6.27-0.231.rc1.git6.fc10.ppc";
-    "2.6.27-0.231.rc1.git6.fc10.ppc"; "2.6.27-0.231.rc1.git6.fc10.ppc64";
-    "2.6.27-0.231.rc1.git6.fc10.ppc64"; "2.6.27-0.231.rc1.git6.fc10.x86_64";
-    "2.6.27-0.237.rc2.fc10.i586"; "2.6.27-0.237.rc2.fc10.i686";
-    "2.6.27-0.237.rc2.fc10.i686"; "2.6.27-0.237.rc2.fc10.ppc";
-    "2.6.27-0.237.rc2.fc10.ppc"; "2.6.27-0.237.rc2.fc10.ppc64";
-    "2.6.27-0.237.rc2.fc10.ppc64"; "2.6.27-0.237.rc2.fc10.x86_64";
-    "2.6.27-0.238.rc2.fc10.i586"; "2.6.27-0.238.rc2.fc10.i686";
-    "2.6.27-0.238.rc2.fc10.i686"; "2.6.27-0.238.rc2.fc10.ppc";
-    "2.6.27-0.238.rc2.fc10.ppc"; "2.6.27-0.238.rc2.fc10.ppc64";
-    "2.6.27-0.238.rc2.fc10.ppc64"; "2.6.27-0.238.rc2.fc10.x86_64";
-    "2.6.27-0.241.rc2.git1.fc10.i586"; "2.6.27-0.241.rc2.git1.fc10.i686";
-    "2.6.27-0.241.rc2.git1.fc10.i686"; "2.6.27-0.241.rc2.git1.fc10.ppc";
-    "2.6.27-0.241.rc2.git1.fc10.ppc"; "2.6.27-0.241.rc2.git1.fc10.ppc64";
-    "2.6.27-0.241.rc2.git1.fc10.ppc64"; "2.6.27-0.241.rc2.git1.fc10.x86_64";
-    "2.6.27-0.244.rc2.git1.fc10.i586"; "2.6.27-0.244.rc2.git1.fc10.i686";
-    "2.6.27-0.244.rc2.git1.fc10.i686"; "2.6.27-0.244.rc2.git1.fc10.ppc";
-    "2.6.27-0.244.rc2.git1.fc10.ppc"; "2.6.27-0.244.rc2.git1.fc10.ppc64";
-    "2.6.27-0.244.rc2.git1.fc10.ppc64"; "2.6.27-0.244.rc2.git1.fc10.x86_64" ];;
+    "2.6.21-1.3190.fc7.x86_64"; "2.6.22-0.23.rc7.git6.fc8.ppc";
+    "2.6.24-0.167.rc8.git4.fc9.ppc64"; "2.6.25.14-69.fc8.x86_64";
+    "2.6.26.1-9.fc9.ppc64"; "2.6.27-0.226.rc1.git5.fc10.ppc" ];;