From 9a4e42524fac9afd50fca18f2124f6df91716d4c Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 1 Jan 1970 00:00:00 +0000 Subject: [PATCH] Further code generation ** NOT WORKING ** --- MANIFEST | 18 +- extract/codegen/.depend | 11 +- extract/codegen/Makefile.in | 1 + extract/codegen/code_generation.ml | 158 ++ extract/codegen/code_generation.mli | 50 + extract/codegen/compile_kerneldb.ml | 72 +- extract/codegen/struct_classify.ml | 4 + extract/codegen/struct_classify.mli | 18 +- lib/.depend | 45 +- lib/Makefile.in | 8 +- lib/kernel.ml | 50 + lib/kernel.mli | 7 + lib/kernel_in_device.ml | 671 --------- lib/kernel_in_device.mli | 11 - lib/kernel_in_ifaddr.ml | 755 ---------- lib/kernel_in_ifaddr.mli | 23 - lib/kernel_inet6_dev.ml | 671 --------- lib/kernel_inet6_dev.mli | 11 - lib/kernel_inet6_ifaddr.ml | 937 ------------ lib/kernel_inet6_ifaddr.mli | 16 - lib/kernel_net.ml | 408 ----- lib/kernel_net.mli | 11 - lib/kernel_net_device.ml | 1961 ------------------------ lib/kernel_net_device.mli | 39 - lib/kernel_task_struct.ml | 2831 ----------------------------------- lib/kernel_task_struct.mli | 37 - lib/virt_mem_kernels.ml | 146 +- 27 files changed, 329 insertions(+), 8641 deletions(-) create mode 100644 extract/codegen/code_generation.ml create mode 100644 extract/codegen/code_generation.mli create mode 100644 lib/kernel.ml create mode 100644 lib/kernel.mli delete mode 100644 lib/kernel_in_device.ml delete mode 100644 lib/kernel_in_device.mli delete mode 100644 lib/kernel_in_ifaddr.ml delete mode 100644 lib/kernel_in_ifaddr.mli delete mode 100644 lib/kernel_inet6_dev.ml delete mode 100644 lib/kernel_inet6_dev.mli delete mode 100644 lib/kernel_inet6_ifaddr.ml delete mode 100644 lib/kernel_inet6_ifaddr.mli delete mode 100644 lib/kernel_net.ml delete mode 100644 lib/kernel_net.mli delete mode 100644 lib/kernel_net_device.ml delete mode 100644 lib/kernel_net_device.mli delete mode 100644 lib/kernel_task_struct.ml delete mode 100644 lib/kernel_task_struct.mli diff --git a/MANIFEST b/MANIFEST index 12eebab..382d878 100644 --- 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 diff --git a/extract/codegen/.depend b/extract/codegen/.depend index af6233e..bfdc337 100644 --- a/extract/codegen/.depend +++ b/extract/codegen/.depend @@ -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 diff --git a/extract/codegen/Makefile.in b/extract/codegen/Makefile.in index fb48f3f..a46541d 100644 --- a/extract/codegen/Makefile.in +++ b/extract/codegen/Makefile.in @@ -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 index 0000000..2dba820 --- /dev/null +++ b/extract/codegen/code_generation.ml @@ -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 index 0000000..efe282f --- /dev/null +++ b/extract/codegen/code_generation.mli @@ -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. *) diff --git a/extract/codegen/compile_kerneldb.ml b/extract/codegen/compile_kerneldb.ml index 27fcb14..9d9e89c 100644 --- a/extract/codegen/compile_kerneldb.ml +++ b/extract/codegen/compile_kerneldb.ml @@ -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. *) diff --git a/extract/codegen/struct_classify.ml b/extract/codegen/struct_classify.ml index 506d783..d10d1c4 100644 --- a/extract/codegen/struct_classify.ml +++ b/extract/codegen/struct_classify.ml @@ -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" || diff --git a/extract/codegen/struct_classify.mli b/extract/codegen/struct_classify.mli index 802324c..96554bf 100644 --- a/extract/codegen/struct_classify.mli +++ b/extract/codegen/struct_classify.mli @@ -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_}). diff --git a/lib/.depend b/lib/.depend index 8085316..b320970 100644 --- a/lib/.depend +++ b/lib/.depend @@ -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 \ diff --git a/lib/Makefile.in b/lib/Makefile.in index ed43af2..b452e1b 100644 --- a/lib/Makefile.in +++ b/lib/Makefile.in @@ -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 index 0000000..a75fdad --- /dev/null +++ b/lib/kernel.ml @@ -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 index 0000000..ef00e87 --- /dev/null +++ b/lib/kernel.mli @@ -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 index 62373eb..0000000 --- a/lib/kernel_in_device.ml +++ /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 index a115843..0000000 --- a/lib/kernel_in_device.mli +++ /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 index 90711b3..0000000 --- a/lib/kernel_in_ifaddr.ml +++ /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 index 7387359..0000000 --- a/lib/kernel_in_ifaddr.mli +++ /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 index 0a02556..0000000 --- a/lib/kernel_inet6_dev.ml +++ /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 index 1058ba1..0000000 --- a/lib/kernel_inet6_dev.mli +++ /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 index 1382f80..0000000 --- a/lib/kernel_inet6_ifaddr.ml +++ /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 index c4efa59..0000000 --- a/lib/kernel_inet6_ifaddr.mli +++ /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 index 4f0885d..0000000 --- a/lib/kernel_net.ml +++ /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 index 2a0ffa7..0000000 --- a/lib/kernel_net.mli +++ /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 index 50066f8..0000000 --- a/lib/kernel_net_device.ml +++ /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 index 044de9c..0000000 --- a/lib/kernel_net_device.mli +++ /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 index 6f6f94a..0000000 --- a/lib/kernel_task_struct.ml +++ /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 index 101642f..0000000 --- a/lib/kernel_task_struct.mli +++ /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;; diff --git a/lib/virt_mem_kernels.ml b/lib/virt_mem_kernels.ml index a7b6a9b..9d7b9db 100644 --- a/lib/virt_mem_kernels.ml +++ b/lib/virt_mem_kernels.ml @@ -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" ];; -- 1.8.3.1