2 "This code is automatically generated from the kernel database by kerneldb-to-parser program. Any edits you make will be lost.";;
4 exception ParseError of string * string * string;;
6 { task_struct_active_mm : Virt_mem_mmap.addr; task_struct_comm : string;
7 task_struct_mm : Virt_mem_mmap.addr; task_struct_normal_prio : int64;
8 task_struct_pid : int64; task_struct_prio : int64;
9 task_struct_state : int64; task_struct_static_prio : int64;
10 task_struct_tasks'next : Virt_mem_mmap.addr;
11 task_struct_tasks'prev : Virt_mem_mmap.addr
13 let parser_1 bits = bitmatch bits with
14 | { task_struct_state : zero+32 : offset(0), littleendian;
15 task_struct_prio : zero+32 : offset(192), littleendian;
16 task_struct_static_prio : zero+32 : offset(224), littleendian;
17 task_struct_normal_prio : zero+32 : offset(256), littleendian;
18 task_struct_tasks'next : zero+32 : offset(992), littleendian;
19 task_struct_tasks'prev : zero+32 : offset(1024), littleendian;
20 task_struct_mm : zero+32 : offset(1056), littleendian;
21 task_struct_active_mm : zero+32 : offset(1088), littleendian;
22 task_struct_pid : zero+32 : offset(1344), littleendian;
23 task_struct_comm : 128 : offset(3232), string } -> { task_struct_state = task_struct_state;
24 task_struct_prio = task_struct_prio;
25 task_struct_static_prio = task_struct_static_prio;
26 task_struct_normal_prio = task_struct_normal_prio;
27 task_struct_tasks'next = Int64.sub task_struct_tasks'next 124L;
28 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 128L;
29 task_struct_mm = task_struct_mm;
30 task_struct_active_mm = task_struct_active_mm;
31 task_struct_pid = task_struct_pid;
32 task_struct_comm = task_struct_comm }
33 | { _ } -> raise (ParseError ("task_struct", "parser_1", "failed to match kernel structure"));;
34 let parser_2 bits = bitmatch bits with
35 | { task_struct_state : zero+64 : offset(0), bigendian;
36 task_struct_prio : zero+32 : offset(224), bigendian;
37 task_struct_static_prio : zero+32 : offset(256), bigendian;
38 task_struct_normal_prio : zero+32 : offset(288), bigendian;
39 task_struct_tasks'next : zero+64 : offset(3648), bigendian;
40 task_struct_tasks'prev : zero+64 : offset(3712), bigendian;
41 task_struct_mm : zero+64 : offset(3776), bigendian;
42 task_struct_active_mm : zero+64 : offset(3840), bigendian;
43 task_struct_pid : zero+32 : offset(4160), bigendian;
44 task_struct_comm : 128 : offset(7752), string } -> { task_struct_state = task_struct_state;
45 task_struct_prio = task_struct_prio;
46 task_struct_static_prio = task_struct_static_prio;
47 task_struct_normal_prio = task_struct_normal_prio;
48 task_struct_tasks'next = Int64.sub task_struct_tasks'next 456L;
49 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 464L;
50 task_struct_mm = task_struct_mm;
51 task_struct_active_mm = task_struct_active_mm;
52 task_struct_pid = task_struct_pid;
53 task_struct_comm = task_struct_comm }
54 | { _ } -> raise (ParseError ("task_struct", "parser_2", "failed to match kernel structure"));;
55 let parser_3 bits = bitmatch bits with
56 | { task_struct_state : zero+32 : offset(0), bigendian;
57 task_struct_prio : zero+32 : offset(160), bigendian;
58 task_struct_static_prio : zero+32 : offset(192), bigendian;
59 task_struct_normal_prio : zero+32 : offset(224), bigendian;
60 task_struct_tasks'next : zero+32 : offset(2176), bigendian;
61 task_struct_tasks'prev : zero+32 : offset(2208), bigendian;
62 task_struct_mm : zero+32 : offset(2240), bigendian;
63 task_struct_active_mm : zero+32 : offset(2272), bigendian;
64 task_struct_pid : zero+32 : offset(2528), bigendian;
65 task_struct_comm : 128 : offset(4416), string } -> { task_struct_state = task_struct_state;
66 task_struct_prio = task_struct_prio;
67 task_struct_static_prio = task_struct_static_prio;
68 task_struct_normal_prio = task_struct_normal_prio;
69 task_struct_tasks'next = Int64.sub task_struct_tasks'next 272L;
70 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 276L;
71 task_struct_mm = task_struct_mm;
72 task_struct_active_mm = task_struct_active_mm;
73 task_struct_pid = task_struct_pid;
74 task_struct_comm = task_struct_comm }
75 | { _ } -> raise (ParseError ("task_struct", "parser_3", "failed to match kernel structure"));;
76 let parser_4 bits = bitmatch bits with
77 | { task_struct_state : zero+64 : offset(0), littleendian;
78 task_struct_prio : zero+32 : offset(320), littleendian;
79 task_struct_static_prio : zero+32 : offset(352), littleendian;
80 task_struct_normal_prio : zero+32 : offset(384), littleendian;
81 task_struct_tasks'next : zero+64 : offset(1536), littleendian;
82 task_struct_tasks'prev : zero+64 : offset(1600), littleendian;
83 task_struct_mm : zero+64 : offset(1664), littleendian;
84 task_struct_active_mm : zero+64 : offset(1728), littleendian;
85 task_struct_pid : zero+32 : offset(2144), littleendian;
86 task_struct_comm : 128 : offset(5440), string } -> { task_struct_state = task_struct_state;
87 task_struct_prio = task_struct_prio;
88 task_struct_static_prio = task_struct_static_prio;
89 task_struct_normal_prio = task_struct_normal_prio;
90 task_struct_tasks'next = Int64.sub task_struct_tasks'next 192L;
91 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 200L;
92 task_struct_mm = task_struct_mm;
93 task_struct_active_mm = task_struct_active_mm;
94 task_struct_pid = task_struct_pid;
95 task_struct_comm = task_struct_comm }
96 | { _ } -> raise (ParseError ("task_struct", "parser_4", "failed to match kernel structure"));;
97 let parser_5 bits = bitmatch bits with
98 | { task_struct_state : zero+64 : offset(0), bigendian;
99 task_struct_prio : zero+32 : offset(320), bigendian;
100 task_struct_static_prio : zero+32 : offset(352), bigendian;
101 task_struct_normal_prio : zero+32 : offset(384), bigendian;
102 task_struct_tasks'next : zero+64 : offset(1600), bigendian;
103 task_struct_tasks'prev : zero+64 : offset(1664), bigendian;
104 task_struct_mm : zero+64 : offset(1728), bigendian;
105 task_struct_active_mm : zero+64 : offset(1792), bigendian;
106 task_struct_pid : zero+32 : offset(2208), bigendian;
107 task_struct_comm : 128 : offset(5440), string } -> { task_struct_state = task_struct_state;
108 task_struct_prio = task_struct_prio;
109 task_struct_static_prio = task_struct_static_prio;
110 task_struct_normal_prio = task_struct_normal_prio;
111 task_struct_tasks'next = Int64.sub task_struct_tasks'next 200L;
112 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 208L;
113 task_struct_mm = task_struct_mm;
114 task_struct_active_mm = task_struct_active_mm;
115 task_struct_pid = task_struct_pid;
116 task_struct_comm = task_struct_comm }
117 | { _ } -> raise (ParseError ("task_struct", "parser_5", "failed to match kernel structure"));;
118 let parser_6 bits = bitmatch bits with
119 | { task_struct_state : zero+32 : offset(0), bigendian;
120 task_struct_prio : zero+32 : offset(192), bigendian;
121 task_struct_static_prio : zero+32 : offset(224), bigendian;
122 task_struct_normal_prio : zero+32 : offset(256), bigendian;
123 task_struct_tasks'next : zero+32 : offset(2304), bigendian;
124 task_struct_tasks'prev : zero+32 : offset(2336), bigendian;
125 task_struct_mm : zero+32 : offset(2496), bigendian;
126 task_struct_active_mm : zero+32 : offset(2528), bigendian;
127 task_struct_pid : zero+32 : offset(2784), bigendian;
128 task_struct_comm : 128 : offset(4736), string } -> { task_struct_state = task_struct_state;
129 task_struct_prio = task_struct_prio;
130 task_struct_static_prio = task_struct_static_prio;
131 task_struct_normal_prio = task_struct_normal_prio;
132 task_struct_tasks'next = Int64.sub task_struct_tasks'next 288L;
133 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 292L;
134 task_struct_mm = task_struct_mm;
135 task_struct_active_mm = task_struct_active_mm;
136 task_struct_pid = task_struct_pid;
137 task_struct_comm = task_struct_comm }
138 | { _ } -> raise (ParseError ("task_struct", "parser_6", "failed to match kernel structure"));;
139 let parser_7 bits = bitmatch bits with
140 | { task_struct_state : zero+32 : offset(0), littleendian;
141 task_struct_prio : zero+32 : offset(160), littleendian;
142 task_struct_static_prio : zero+32 : offset(192), littleendian;
143 task_struct_normal_prio : zero+32 : offset(224), littleendian;
144 task_struct_tasks'next : zero+32 : offset(3008), littleendian;
145 task_struct_tasks'prev : zero+32 : offset(3040), littleendian;
146 task_struct_mm : zero+32 : offset(3072), littleendian;
147 task_struct_active_mm : zero+32 : offset(3104), littleendian;
148 task_struct_pid : zero+32 : offset(3360), littleendian;
149 task_struct_comm : 128 : offset(5416), string } -> { task_struct_state = task_struct_state;
150 task_struct_prio = task_struct_prio;
151 task_struct_static_prio = task_struct_static_prio;
152 task_struct_normal_prio = task_struct_normal_prio;
153 task_struct_tasks'next = Int64.sub task_struct_tasks'next 376L;
154 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 380L;
155 task_struct_mm = task_struct_mm;
156 task_struct_active_mm = task_struct_active_mm;
157 task_struct_pid = task_struct_pid;
158 task_struct_comm = task_struct_comm }
159 | { _ } -> raise (ParseError ("task_struct", "parser_7", "failed to match kernel structure"));;
160 let parser_8 bits = bitmatch bits with
161 | { task_struct_state : zero+64 : offset(0), littleendian;
162 task_struct_prio : zero+32 : offset(320), littleendian;
163 task_struct_static_prio : zero+32 : offset(352), littleendian;
164 task_struct_normal_prio : zero+32 : offset(384), littleendian;
165 task_struct_tasks'next : zero+64 : offset(1536), littleendian;
166 task_struct_tasks'prev : zero+64 : offset(1600), littleendian;
167 task_struct_mm : zero+64 : offset(1664), littleendian;
168 task_struct_active_mm : zero+64 : offset(1728), littleendian;
169 task_struct_pid : zero+32 : offset(2144), littleendian;
170 task_struct_comm : 128 : offset(5376), string } -> { task_struct_state = task_struct_state;
171 task_struct_prio = task_struct_prio;
172 task_struct_static_prio = task_struct_static_prio;
173 task_struct_normal_prio = task_struct_normal_prio;
174 task_struct_tasks'next = Int64.sub task_struct_tasks'next 192L;
175 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 200L;
176 task_struct_mm = task_struct_mm;
177 task_struct_active_mm = task_struct_active_mm;
178 task_struct_pid = task_struct_pid;
179 task_struct_comm = task_struct_comm }
180 | { _ } -> raise (ParseError ("task_struct", "parser_8", "failed to match kernel structure"));;
181 let parser_9 bits = bitmatch bits with
182 | { task_struct_state : zero+64 : offset(0), littleendian;
183 task_struct_prio : zero+32 : offset(256), littleendian;
184 task_struct_static_prio : zero+32 : offset(288), littleendian;
185 task_struct_normal_prio : zero+32 : offset(320), littleendian;
186 task_struct_tasks'next : zero+64 : offset(2816), littleendian;
187 task_struct_tasks'prev : zero+64 : offset(2880), littleendian;
188 task_struct_mm : zero+64 : offset(3200), littleendian;
189 task_struct_active_mm : zero+64 : offset(3264), littleendian;
190 task_struct_pid : zero+32 : offset(3584), littleendian;
191 task_struct_comm : 128 : offset(6912), string } -> { task_struct_state = task_struct_state;
192 task_struct_prio = task_struct_prio;
193 task_struct_static_prio = task_struct_static_prio;
194 task_struct_normal_prio = task_struct_normal_prio;
195 task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
196 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
197 task_struct_mm = task_struct_mm;
198 task_struct_active_mm = task_struct_active_mm;
199 task_struct_pid = task_struct_pid;
200 task_struct_comm = task_struct_comm }
201 | { _ } -> raise (ParseError ("task_struct", "parser_9", "failed to match kernel structure"));;
202 let parser_10 bits = bitmatch bits with
203 | { task_struct_state : zero+64 : offset(0), bigendian;
204 task_struct_prio : zero+32 : offset(256), bigendian;
205 task_struct_static_prio : zero+32 : offset(288), bigendian;
206 task_struct_normal_prio : zero+32 : offset(320), bigendian;
207 task_struct_tasks'next : zero+64 : offset(1472), bigendian;
208 task_struct_tasks'prev : zero+64 : offset(1536), bigendian;
209 task_struct_mm : zero+64 : offset(1600), bigendian;
210 task_struct_active_mm : zero+64 : offset(1664), bigendian;
211 task_struct_pid : zero+32 : offset(1984), bigendian;
212 task_struct_comm : 128 : offset(5184), string } -> { task_struct_state = task_struct_state;
213 task_struct_prio = task_struct_prio;
214 task_struct_static_prio = task_struct_static_prio;
215 task_struct_normal_prio = task_struct_normal_prio;
216 task_struct_tasks'next = Int64.sub task_struct_tasks'next 184L;
217 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 192L;
218 task_struct_mm = task_struct_mm;
219 task_struct_active_mm = task_struct_active_mm;
220 task_struct_pid = task_struct_pid;
221 task_struct_comm = task_struct_comm }
222 | { _ } -> raise (ParseError ("task_struct", "parser_10", "failed to match kernel structure"));;
223 let parser_11 bits = bitmatch bits with
224 | { task_struct_state : zero+32 : offset(0), bigendian;
225 task_struct_prio : zero+32 : offset(160), bigendian;
226 task_struct_static_prio : zero+32 : offset(192), bigendian;
227 task_struct_normal_prio : zero+32 : offset(224), bigendian;
228 task_struct_tasks'next : zero+32 : offset(3136), bigendian;
229 task_struct_tasks'prev : zero+32 : offset(3168), bigendian;
230 task_struct_mm : zero+32 : offset(3200), bigendian;
231 task_struct_active_mm : zero+32 : offset(3232), bigendian;
232 task_struct_pid : zero+32 : offset(3488), bigendian;
233 task_struct_comm : 128 : offset(5576), string } -> { task_struct_state = task_struct_state;
234 task_struct_prio = task_struct_prio;
235 task_struct_static_prio = task_struct_static_prio;
236 task_struct_normal_prio = task_struct_normal_prio;
237 task_struct_tasks'next = Int64.sub task_struct_tasks'next 392L;
238 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 396L;
239 task_struct_mm = task_struct_mm;
240 task_struct_active_mm = task_struct_active_mm;
241 task_struct_pid = task_struct_pid;
242 task_struct_comm = task_struct_comm }
243 | { _ } -> raise (ParseError ("task_struct", "parser_11", "failed to match kernel structure"));;
244 let parser_12 bits = bitmatch bits with
245 | { task_struct_state : zero+32 : offset(0), bigendian;
246 task_struct_prio : zero+32 : offset(160), bigendian;
247 task_struct_static_prio : zero+32 : offset(192), bigendian;
248 task_struct_normal_prio : zero+32 : offset(224), bigendian;
249 task_struct_tasks'next : zero+32 : offset(2240), bigendian;
250 task_struct_tasks'prev : zero+32 : offset(2272), bigendian;
251 task_struct_mm : zero+32 : offset(2304), bigendian;
252 task_struct_active_mm : zero+32 : offset(2336), bigendian;
253 task_struct_pid : zero+32 : offset(2592), bigendian;
254 task_struct_comm : 128 : offset(4608), string } -> { task_struct_state = task_struct_state;
255 task_struct_prio = task_struct_prio;
256 task_struct_static_prio = task_struct_static_prio;
257 task_struct_normal_prio = task_struct_normal_prio;
258 task_struct_tasks'next = Int64.sub task_struct_tasks'next 280L;
259 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 284L;
260 task_struct_mm = task_struct_mm;
261 task_struct_active_mm = task_struct_active_mm;
262 task_struct_pid = task_struct_pid;
263 task_struct_comm = task_struct_comm }
264 | { _ } -> raise (ParseError ("task_struct", "parser_12", "failed to match kernel structure"));;
265 let parser_13 bits = bitmatch bits with
266 | { task_struct_state : zero+64 : offset(0), littleendian;
267 task_struct_prio : zero+32 : offset(224), littleendian;
268 task_struct_static_prio : zero+32 : offset(256), littleendian;
269 task_struct_normal_prio : zero+32 : offset(288), littleendian;
270 task_struct_tasks'next : zero+64 : offset(2816), littleendian;
271 task_struct_tasks'prev : zero+64 : offset(2880), littleendian;
272 task_struct_mm : zero+64 : offset(2944), littleendian;
273 task_struct_active_mm : zero+64 : offset(3008), littleendian;
274 task_struct_pid : zero+32 : offset(3328), littleendian;
275 task_struct_comm : 128 : offset(6592), string } -> { task_struct_state = task_struct_state;
276 task_struct_prio = task_struct_prio;
277 task_struct_static_prio = task_struct_static_prio;
278 task_struct_normal_prio = task_struct_normal_prio;
279 task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
280 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
281 task_struct_mm = task_struct_mm;
282 task_struct_active_mm = task_struct_active_mm;
283 task_struct_pid = task_struct_pid;
284 task_struct_comm = task_struct_comm }
285 | { _ } -> raise (ParseError ("task_struct", "parser_13", "failed to match kernel structure"));;
286 let parser_14 bits = bitmatch bits with
287 | { task_struct_state : zero+64 : offset(0), bigendian;
288 task_struct_prio : zero+32 : offset(224), bigendian;
289 task_struct_static_prio : zero+32 : offset(256), bigendian;
290 task_struct_normal_prio : zero+32 : offset(288), bigendian;
291 task_struct_tasks'next : zero+64 : offset(2816), bigendian;
292 task_struct_tasks'prev : zero+64 : offset(2880), bigendian;
293 task_struct_mm : zero+64 : offset(2944), bigendian;
294 task_struct_active_mm : zero+64 : offset(3008), bigendian;
295 task_struct_pid : zero+32 : offset(3328), bigendian;
296 task_struct_comm : 128 : offset(6528), string } -> { task_struct_state = task_struct_state;
297 task_struct_prio = task_struct_prio;
298 task_struct_static_prio = task_struct_static_prio;
299 task_struct_normal_prio = task_struct_normal_prio;
300 task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
301 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
302 task_struct_mm = task_struct_mm;
303 task_struct_active_mm = task_struct_active_mm;
304 task_struct_pid = task_struct_pid;
305 task_struct_comm = task_struct_comm }
306 | { _ } -> raise (ParseError ("task_struct", "parser_14", "failed to match kernel structure"));;
307 let parser_15 bits = bitmatch bits with
308 | { task_struct_state : zero+64 : offset(0), bigendian;
309 task_struct_prio : zero+32 : offset(224), bigendian;
310 task_struct_static_prio : zero+32 : offset(256), bigendian;
311 task_struct_normal_prio : zero+32 : offset(288), bigendian;
312 task_struct_tasks'next : zero+64 : offset(2880), bigendian;
313 task_struct_tasks'prev : zero+64 : offset(2944), bigendian;
314 task_struct_mm : zero+64 : offset(3008), bigendian;
315 task_struct_active_mm : zero+64 : offset(3072), bigendian;
316 task_struct_pid : zero+32 : offset(3392), bigendian;
317 task_struct_comm : 128 : offset(6848), string } -> { task_struct_state = task_struct_state;
318 task_struct_prio = task_struct_prio;
319 task_struct_static_prio = task_struct_static_prio;
320 task_struct_normal_prio = task_struct_normal_prio;
321 task_struct_tasks'next = Int64.sub task_struct_tasks'next 360L;
322 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 368L;
323 task_struct_mm = task_struct_mm;
324 task_struct_active_mm = task_struct_active_mm;
325 task_struct_pid = task_struct_pid;
326 task_struct_comm = task_struct_comm }
327 | { _ } -> raise (ParseError ("task_struct", "parser_15", "failed to match kernel structure"));;
328 let parser_16 bits = bitmatch bits with
329 | { task_struct_state : zero+32 : offset(0), bigendian;
330 task_struct_prio : zero+32 : offset(192), bigendian;
331 task_struct_static_prio : zero+32 : offset(224), bigendian;
332 task_struct_normal_prio : zero+32 : offset(256), bigendian;
333 task_struct_tasks'next : zero+32 : offset(1024), bigendian;
334 task_struct_tasks'prev : zero+32 : offset(1056), bigendian;
335 task_struct_mm : zero+32 : offset(1088), bigendian;
336 task_struct_active_mm : zero+32 : offset(1120), bigendian;
337 task_struct_pid : zero+32 : offset(1376), bigendian;
338 task_struct_comm : 128 : offset(3264), string } -> { task_struct_state = task_struct_state;
339 task_struct_prio = task_struct_prio;
340 task_struct_static_prio = task_struct_static_prio;
341 task_struct_normal_prio = task_struct_normal_prio;
342 task_struct_tasks'next = Int64.sub task_struct_tasks'next 128L;
343 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 132L;
344 task_struct_mm = task_struct_mm;
345 task_struct_active_mm = task_struct_active_mm;
346 task_struct_pid = task_struct_pid;
347 task_struct_comm = task_struct_comm }
348 | { _ } -> raise (ParseError ("task_struct", "parser_16", "failed to match kernel structure"));;
349 let parser_17 bits = bitmatch bits with
350 | { task_struct_state : zero+64 : offset(0), bigendian;
351 task_struct_prio : zero+32 : offset(224), bigendian;
352 task_struct_static_prio : zero+32 : offset(256), bigendian;
353 task_struct_normal_prio : zero+32 : offset(288), bigendian;
354 task_struct_tasks'next : zero+64 : offset(2880), bigendian;
355 task_struct_tasks'prev : zero+64 : offset(2944), bigendian;
356 task_struct_mm : zero+64 : offset(3008), bigendian;
357 task_struct_active_mm : zero+64 : offset(3072), bigendian;
358 task_struct_pid : zero+32 : offset(3392), bigendian;
359 task_struct_comm : 128 : offset(6592), string } -> { task_struct_state = task_struct_state;
360 task_struct_prio = task_struct_prio;
361 task_struct_static_prio = task_struct_static_prio;
362 task_struct_normal_prio = task_struct_normal_prio;
363 task_struct_tasks'next = Int64.sub task_struct_tasks'next 360L;
364 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 368L;
365 task_struct_mm = task_struct_mm;
366 task_struct_active_mm = task_struct_active_mm;
367 task_struct_pid = task_struct_pid;
368 task_struct_comm = task_struct_comm }
369 | { _ } -> raise (ParseError ("task_struct", "parser_17", "failed to match kernel structure"));;
370 let parser_18 bits = bitmatch bits with
371 | { task_struct_state : zero+32 : offset(0), littleendian;
372 task_struct_prio : zero+32 : offset(192), littleendian;
373 task_struct_static_prio : zero+32 : offset(224), littleendian;
374 task_struct_normal_prio : zero+32 : offset(256), littleendian;
375 task_struct_tasks'next : zero+32 : offset(2208), littleendian;
376 task_struct_tasks'prev : zero+32 : offset(2240), littleendian;
377 task_struct_mm : zero+32 : offset(2400), littleendian;
378 task_struct_active_mm : zero+32 : offset(2432), littleendian;
379 task_struct_pid : zero+32 : offset(2688), littleendian;
380 task_struct_comm : 128 : offset(4608), string } -> { task_struct_state = task_struct_state;
381 task_struct_prio = task_struct_prio;
382 task_struct_static_prio = task_struct_static_prio;
383 task_struct_normal_prio = task_struct_normal_prio;
384 task_struct_tasks'next = Int64.sub task_struct_tasks'next 276L;
385 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 280L;
386 task_struct_mm = task_struct_mm;
387 task_struct_active_mm = task_struct_active_mm;
388 task_struct_pid = task_struct_pid;
389 task_struct_comm = task_struct_comm }
390 | { _ } -> raise (ParseError ("task_struct", "parser_18", "failed to match kernel structure"));;
391 let parser_19 bits = bitmatch bits with
392 | { task_struct_state : zero+64 : offset(0), littleendian;
393 task_struct_prio : zero+32 : offset(224), littleendian;
394 task_struct_static_prio : zero+32 : offset(256), littleendian;
395 task_struct_normal_prio : zero+32 : offset(288), littleendian;
396 task_struct_tasks'next : zero+64 : offset(3648), littleendian;
397 task_struct_tasks'prev : zero+64 : offset(3712), littleendian;
398 task_struct_mm : zero+64 : offset(3776), littleendian;
399 task_struct_active_mm : zero+64 : offset(3840), littleendian;
400 task_struct_pid : zero+32 : offset(4160), littleendian;
401 task_struct_comm : 128 : offset(7816), string } -> { task_struct_state = task_struct_state;
402 task_struct_prio = task_struct_prio;
403 task_struct_static_prio = task_struct_static_prio;
404 task_struct_normal_prio = task_struct_normal_prio;
405 task_struct_tasks'next = Int64.sub task_struct_tasks'next 456L;
406 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 464L;
407 task_struct_mm = task_struct_mm;
408 task_struct_active_mm = task_struct_active_mm;
409 task_struct_pid = task_struct_pid;
410 task_struct_comm = task_struct_comm }
411 | { _ } -> raise (ParseError ("task_struct", "parser_19", "failed to match kernel structure"));;
412 let parser_20 bits = bitmatch bits with
413 | { task_struct_state : zero+64 : offset(0), littleendian;
414 task_struct_prio : zero+32 : offset(256), littleendian;
415 task_struct_static_prio : zero+32 : offset(288), littleendian;
416 task_struct_normal_prio : zero+32 : offset(320), littleendian;
417 task_struct_tasks'next : zero+64 : offset(1408), littleendian;
418 task_struct_tasks'prev : zero+64 : offset(1472), littleendian;
419 task_struct_mm : zero+64 : offset(1536), littleendian;
420 task_struct_active_mm : zero+64 : offset(1600), littleendian;
421 task_struct_pid : zero+32 : offset(1920), littleendian;
422 task_struct_comm : 128 : offset(5184), string } -> { task_struct_state = task_struct_state;
423 task_struct_prio = task_struct_prio;
424 task_struct_static_prio = task_struct_static_prio;
425 task_struct_normal_prio = task_struct_normal_prio;
426 task_struct_tasks'next = Int64.sub task_struct_tasks'next 176L;
427 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 184L;
428 task_struct_mm = task_struct_mm;
429 task_struct_active_mm = task_struct_active_mm;
430 task_struct_pid = task_struct_pid;
431 task_struct_comm = task_struct_comm }
432 | { _ } -> raise (ParseError ("task_struct", "parser_20", "failed to match kernel structure"));;
433 let parser_21 bits = bitmatch bits with
434 | { task_struct_state : zero+64 : offset(0), littleendian;
435 task_struct_prio : zero+32 : offset(224), littleendian;
436 task_struct_static_prio : zero+32 : offset(256), littleendian;
437 task_struct_normal_prio : zero+32 : offset(288), littleendian;
438 task_struct_tasks'next : zero+64 : offset(2816), littleendian;
439 task_struct_tasks'prev : zero+64 : offset(2880), littleendian;
440 task_struct_mm : zero+64 : offset(2944), littleendian;
441 task_struct_active_mm : zero+64 : offset(3008), littleendian;
442 task_struct_pid : zero+32 : offset(3328), littleendian;
443 task_struct_comm : 128 : offset(6848), string } -> { task_struct_state = task_struct_state;
444 task_struct_prio = task_struct_prio;
445 task_struct_static_prio = task_struct_static_prio;
446 task_struct_normal_prio = task_struct_normal_prio;
447 task_struct_tasks'next = Int64.sub task_struct_tasks'next 352L;
448 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 360L;
449 task_struct_mm = task_struct_mm;
450 task_struct_active_mm = task_struct_active_mm;
451 task_struct_pid = task_struct_pid;
452 task_struct_comm = task_struct_comm }
453 | { _ } -> raise (ParseError ("task_struct", "parser_21", "failed to match kernel structure"));;
454 let parser_22 bits = bitmatch bits with
455 | { task_struct_state : zero+64 : offset(0), bigendian;
456 task_struct_prio : zero+32 : offset(256), bigendian;
457 task_struct_static_prio : zero+32 : offset(288), bigendian;
458 task_struct_normal_prio : zero+32 : offset(320), bigendian;
459 task_struct_tasks'next : zero+64 : offset(2688), bigendian;
460 task_struct_tasks'prev : zero+64 : offset(2752), bigendian;
461 task_struct_mm : zero+64 : offset(3072), bigendian;
462 task_struct_active_mm : zero+64 : offset(3136), bigendian;
463 task_struct_pid : zero+32 : offset(3456), bigendian;
464 task_struct_comm : 128 : offset(6720), string } -> { task_struct_state = task_struct_state;
465 task_struct_prio = task_struct_prio;
466 task_struct_static_prio = task_struct_static_prio;
467 task_struct_normal_prio = task_struct_normal_prio;
468 task_struct_tasks'next = Int64.sub task_struct_tasks'next 336L;
469 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 344L;
470 task_struct_mm = task_struct_mm;
471 task_struct_active_mm = task_struct_active_mm;
472 task_struct_pid = task_struct_pid;
473 task_struct_comm = task_struct_comm }
474 | { _ } -> raise (ParseError ("task_struct", "parser_22", "failed to match kernel structure"));;
475 let parser_23 bits = bitmatch bits with
476 | { task_struct_state : zero+64 : offset(0), littleendian;
477 task_struct_prio : zero+32 : offset(224), littleendian;
478 task_struct_static_prio : zero+32 : offset(256), littleendian;
479 task_struct_normal_prio : zero+32 : offset(288), littleendian;
480 task_struct_tasks'next : zero+64 : offset(3840), littleendian;
481 task_struct_tasks'prev : zero+64 : offset(3904), littleendian;
482 task_struct_mm : zero+64 : offset(3968), littleendian;
483 task_struct_active_mm : zero+64 : offset(4032), littleendian;
484 task_struct_pid : zero+32 : offset(4352), littleendian;
485 task_struct_comm : 128 : offset(8392), string } -> { task_struct_state = task_struct_state;
486 task_struct_prio = task_struct_prio;
487 task_struct_static_prio = task_struct_static_prio;
488 task_struct_normal_prio = task_struct_normal_prio;
489 task_struct_tasks'next = Int64.sub task_struct_tasks'next 480L;
490 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 488L;
491 task_struct_mm = task_struct_mm;
492 task_struct_active_mm = task_struct_active_mm;
493 task_struct_pid = task_struct_pid;
494 task_struct_comm = task_struct_comm }
495 | { _ } -> raise (ParseError ("task_struct", "parser_23", "failed to match kernel structure"));;
496 let parser_24 bits = bitmatch bits with
497 | { task_struct_state : zero+32 : offset(0), bigendian;
498 task_struct_prio : zero+32 : offset(160), bigendian;
499 task_struct_static_prio : zero+32 : offset(192), bigendian;
500 task_struct_normal_prio : zero+32 : offset(224), bigendian;
501 task_struct_tasks'next : zero+32 : offset(2240), bigendian;
502 task_struct_tasks'prev : zero+32 : offset(2272), bigendian;
503 task_struct_mm : zero+32 : offset(2304), bigendian;
504 task_struct_active_mm : zero+32 : offset(2336), bigendian;
505 task_struct_pid : zero+32 : offset(2592), bigendian;
506 task_struct_comm : 128 : offset(4480), string } -> { task_struct_state = task_struct_state;
507 task_struct_prio = task_struct_prio;
508 task_struct_static_prio = task_struct_static_prio;
509 task_struct_normal_prio = task_struct_normal_prio;
510 task_struct_tasks'next = Int64.sub task_struct_tasks'next 280L;
511 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 284L;
512 task_struct_mm = task_struct_mm;
513 task_struct_active_mm = task_struct_active_mm;
514 task_struct_pid = task_struct_pid;
515 task_struct_comm = task_struct_comm }
516 | { _ } -> raise (ParseError ("task_struct", "parser_24", "failed to match kernel structure"));;
517 let parser_25 bits = bitmatch bits with
518 | { task_struct_state : zero+32 : offset(0), littleendian;
519 task_struct_prio : zero+32 : offset(160), littleendian;
520 task_struct_static_prio : zero+32 : offset(192), littleendian;
521 task_struct_normal_prio : zero+32 : offset(224), littleendian;
522 task_struct_tasks'next : zero+32 : offset(2144), littleendian;
523 task_struct_tasks'prev : zero+32 : offset(2176), littleendian;
524 task_struct_mm : zero+32 : offset(2208), littleendian;
525 task_struct_active_mm : zero+32 : offset(2240), littleendian;
526 task_struct_pid : zero+32 : offset(2496), littleendian;
527 task_struct_comm : 128 : offset(4384), string } -> { task_struct_state = task_struct_state;
528 task_struct_prio = task_struct_prio;
529 task_struct_static_prio = task_struct_static_prio;
530 task_struct_normal_prio = task_struct_normal_prio;
531 task_struct_tasks'next = Int64.sub task_struct_tasks'next 268L;
532 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 272L;
533 task_struct_mm = task_struct_mm;
534 task_struct_active_mm = task_struct_active_mm;
535 task_struct_pid = task_struct_pid;
536 task_struct_comm = task_struct_comm }
537 | { _ } -> raise (ParseError ("task_struct", "parser_25", "failed to match kernel structure"));;
538 let parser_26 bits = bitmatch bits with
539 | { task_struct_state : zero+64 : offset(0), bigendian;
540 task_struct_prio : zero+32 : offset(256), bigendian;
541 task_struct_static_prio : zero+32 : offset(288), bigendian;
542 task_struct_normal_prio : zero+32 : offset(320), bigendian;
543 task_struct_tasks'next : zero+64 : offset(2880), bigendian;
544 task_struct_tasks'prev : zero+64 : offset(2944), bigendian;
545 task_struct_mm : zero+64 : offset(3264), bigendian;
546 task_struct_active_mm : zero+64 : offset(3328), bigendian;
547 task_struct_pid : zero+32 : offset(3648), bigendian;
548 task_struct_comm : 128 : offset(6912), string } -> { task_struct_state = task_struct_state;
549 task_struct_prio = task_struct_prio;
550 task_struct_static_prio = task_struct_static_prio;
551 task_struct_normal_prio = task_struct_normal_prio;
552 task_struct_tasks'next = Int64.sub task_struct_tasks'next 360L;
553 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 368L;
554 task_struct_mm = task_struct_mm;
555 task_struct_active_mm = task_struct_active_mm;
556 task_struct_pid = task_struct_pid;
557 task_struct_comm = task_struct_comm }
558 | { _ } -> raise (ParseError ("task_struct", "parser_26", "failed to match kernel structure"));;
559 let parser_27 bits = bitmatch bits with
560 | { task_struct_state : zero+32 : offset(0), littleendian;
561 task_struct_prio : zero+32 : offset(160), littleendian;
562 task_struct_static_prio : zero+32 : offset(192), littleendian;
563 task_struct_normal_prio : zero+32 : offset(224), littleendian;
564 task_struct_tasks'next : zero+32 : offset(2144), littleendian;
565 task_struct_tasks'prev : zero+32 : offset(2176), littleendian;
566 task_struct_mm : zero+32 : offset(2208), littleendian;
567 task_struct_active_mm : zero+32 : offset(2240), littleendian;
568 task_struct_pid : zero+32 : offset(2496), littleendian;
569 task_struct_comm : 128 : offset(4512), string } -> { task_struct_state = task_struct_state;
570 task_struct_prio = task_struct_prio;
571 task_struct_static_prio = task_struct_static_prio;
572 task_struct_normal_prio = task_struct_normal_prio;
573 task_struct_tasks'next = Int64.sub task_struct_tasks'next 268L;
574 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 272L;
575 task_struct_mm = task_struct_mm;
576 task_struct_active_mm = task_struct_active_mm;
577 task_struct_pid = task_struct_pid;
578 task_struct_comm = task_struct_comm }
579 | { _ } -> raise (ParseError ("task_struct", "parser_27", "failed to match kernel structure"));;
580 let parser_28 bits = bitmatch bits with
581 | { task_struct_state : zero+64 : offset(0), littleendian;
582 task_struct_prio : zero+32 : offset(224), littleendian;
583 task_struct_static_prio : zero+32 : offset(256), littleendian;
584 task_struct_normal_prio : zero+32 : offset(288), littleendian;
585 task_struct_tasks'next : zero+64 : offset(2752), littleendian;
586 task_struct_tasks'prev : zero+64 : offset(2816), littleendian;
587 task_struct_mm : zero+64 : offset(2880), littleendian;
588 task_struct_active_mm : zero+64 : offset(2944), littleendian;
589 task_struct_pid : zero+32 : offset(3264), littleendian;
590 task_struct_comm : 128 : offset(6528), string } -> { task_struct_state = task_struct_state;
591 task_struct_prio = task_struct_prio;
592 task_struct_static_prio = task_struct_static_prio;
593 task_struct_normal_prio = task_struct_normal_prio;
594 task_struct_tasks'next = Int64.sub task_struct_tasks'next 344L;
595 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 352L;
596 task_struct_mm = task_struct_mm;
597 task_struct_active_mm = task_struct_active_mm;
598 task_struct_pid = task_struct_pid;
599 task_struct_comm = task_struct_comm }
600 | { _ } -> raise (ParseError ("task_struct", "parser_28", "failed to match kernel structure"));;
601 let parser_29 bits = bitmatch bits with
602 | { task_struct_state : zero+32 : offset(0), littleendian;
603 task_struct_prio : zero+32 : offset(192), littleendian;
604 task_struct_static_prio : zero+32 : offset(224), littleendian;
605 task_struct_normal_prio : zero+32 : offset(256), littleendian;
606 task_struct_tasks'next : zero+32 : offset(2144), littleendian;
607 task_struct_tasks'prev : zero+32 : offset(2176), littleendian;
608 task_struct_mm : zero+32 : offset(2336), littleendian;
609 task_struct_active_mm : zero+32 : offset(2368), littleendian;
610 task_struct_pid : zero+32 : offset(2624), littleendian;
611 task_struct_comm : 128 : offset(4544), string } -> { task_struct_state = task_struct_state;
612 task_struct_prio = task_struct_prio;
613 task_struct_static_prio = task_struct_static_prio;
614 task_struct_normal_prio = task_struct_normal_prio;
615 task_struct_tasks'next = Int64.sub task_struct_tasks'next 268L;
616 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 272L;
617 task_struct_mm = task_struct_mm;
618 task_struct_active_mm = task_struct_active_mm;
619 task_struct_pid = task_struct_pid;
620 task_struct_comm = task_struct_comm }
621 | { _ } -> raise (ParseError ("task_struct", "parser_29", "failed to match kernel structure"));;
622 let parser_30 bits = bitmatch bits with
623 | { task_struct_state : zero+64 : offset(0), littleendian;
624 task_struct_prio : zero+32 : offset(320), littleendian;
625 task_struct_static_prio : zero+32 : offset(352), littleendian;
626 task_struct_normal_prio : zero+32 : offset(384), littleendian;
627 task_struct_tasks'next : zero+64 : offset(1728), littleendian;
628 task_struct_tasks'prev : zero+64 : offset(1792), littleendian;
629 task_struct_mm : zero+64 : offset(1856), littleendian;
630 task_struct_active_mm : zero+64 : offset(1920), littleendian;
631 task_struct_pid : zero+32 : offset(2336), littleendian;
632 task_struct_comm : 128 : offset(5568), string } -> { task_struct_state = task_struct_state;
633 task_struct_prio = task_struct_prio;
634 task_struct_static_prio = task_struct_static_prio;
635 task_struct_normal_prio = task_struct_normal_prio;
636 task_struct_tasks'next = Int64.sub task_struct_tasks'next 216L;
637 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 224L;
638 task_struct_mm = task_struct_mm;
639 task_struct_active_mm = task_struct_active_mm;
640 task_struct_pid = task_struct_pid;
641 task_struct_comm = task_struct_comm }
642 | { _ } -> raise (ParseError ("task_struct", "parser_30", "failed to match kernel structure"));;
643 let parser_31 bits = bitmatch bits with
644 | { task_struct_state : zero+32 : offset(0), littleendian;
645 task_struct_prio : zero+32 : offset(160), littleendian;
646 task_struct_static_prio : zero+32 : offset(192), littleendian;
647 task_struct_normal_prio : zero+32 : offset(224), littleendian;
648 task_struct_tasks'next : zero+32 : offset(2176), littleendian;
649 task_struct_tasks'prev : zero+32 : offset(2208), littleendian;
650 task_struct_mm : zero+32 : offset(2240), littleendian;
651 task_struct_active_mm : zero+32 : offset(2272), littleendian;
652 task_struct_pid : zero+32 : offset(2528), littleendian;
653 task_struct_comm : 128 : offset(4416), string } -> { task_struct_state = task_struct_state;
654 task_struct_prio = task_struct_prio;
655 task_struct_static_prio = task_struct_static_prio;
656 task_struct_normal_prio = task_struct_normal_prio;
657 task_struct_tasks'next = Int64.sub task_struct_tasks'next 272L;
658 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 276L;
659 task_struct_mm = task_struct_mm;
660 task_struct_active_mm = task_struct_active_mm;
661 task_struct_pid = task_struct_pid;
662 task_struct_comm = task_struct_comm }
663 | { _ } -> raise (ParseError ("task_struct", "parser_31", "failed to match kernel structure"));;
664 let parser_32 bits = bitmatch bits with
665 | { task_struct_state : zero+32 : offset(0), bigendian;
666 task_struct_prio : zero+32 : offset(192), bigendian;
667 task_struct_static_prio : zero+32 : offset(224), bigendian;
668 task_struct_normal_prio : zero+32 : offset(256), bigendian;
669 task_struct_tasks'next : zero+32 : offset(2240), bigendian;
670 task_struct_tasks'prev : zero+32 : offset(2272), bigendian;
671 task_struct_mm : zero+32 : offset(2432), bigendian;
672 task_struct_active_mm : zero+32 : offset(2464), bigendian;
673 task_struct_pid : zero+32 : offset(2720), bigendian;
674 task_struct_comm : 128 : offset(4672), string } -> { task_struct_state = task_struct_state;
675 task_struct_prio = task_struct_prio;
676 task_struct_static_prio = task_struct_static_prio;
677 task_struct_normal_prio = task_struct_normal_prio;
678 task_struct_tasks'next = Int64.sub task_struct_tasks'next 280L;
679 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 284L;
680 task_struct_mm = task_struct_mm;
681 task_struct_active_mm = task_struct_active_mm;
682 task_struct_pid = task_struct_pid;
683 task_struct_comm = task_struct_comm }
684 | { _ } -> raise (ParseError ("task_struct", "parser_32", "failed to match kernel structure"));;
685 let parser_33 bits = bitmatch bits with
686 | { task_struct_state : zero+32 : offset(0), littleendian;
687 task_struct_prio : zero+32 : offset(160), littleendian;
688 task_struct_static_prio : zero+32 : offset(192), littleendian;
689 task_struct_normal_prio : zero+32 : offset(224), littleendian;
690 task_struct_tasks'next : zero+32 : offset(3232), littleendian;
691 task_struct_tasks'prev : zero+32 : offset(3264), littleendian;
692 task_struct_mm : zero+32 : offset(3296), littleendian;
693 task_struct_active_mm : zero+32 : offset(3328), littleendian;
694 task_struct_pid : zero+32 : offset(3584), littleendian;
695 task_struct_comm : 128 : offset(5928), string } -> { task_struct_state = task_struct_state;
696 task_struct_prio = task_struct_prio;
697 task_struct_static_prio = task_struct_static_prio;
698 task_struct_normal_prio = task_struct_normal_prio;
699 task_struct_tasks'next = Int64.sub task_struct_tasks'next 404L;
700 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 408L;
701 task_struct_mm = task_struct_mm;
702 task_struct_active_mm = task_struct_active_mm;
703 task_struct_pid = task_struct_pid;
704 task_struct_comm = task_struct_comm }
705 | { _ } -> raise (ParseError ("task_struct", "parser_33", "failed to match kernel structure"));;
706 let parser_34 bits = bitmatch bits with
707 | { task_struct_state : zero+64 : offset(0), littleendian;
708 task_struct_prio : zero+32 : offset(256), littleendian;
709 task_struct_static_prio : zero+32 : offset(288), littleendian;
710 task_struct_normal_prio : zero+32 : offset(320), littleendian;
711 task_struct_tasks'next : zero+64 : offset(2624), littleendian;
712 task_struct_tasks'prev : zero+64 : offset(2688), littleendian;
713 task_struct_mm : zero+64 : offset(3008), littleendian;
714 task_struct_active_mm : zero+64 : offset(3072), littleendian;
715 task_struct_pid : zero+32 : offset(3392), littleendian;
716 task_struct_comm : 128 : offset(6720), string } -> { task_struct_state = task_struct_state;
717 task_struct_prio = task_struct_prio;
718 task_struct_static_prio = task_struct_static_prio;
719 task_struct_normal_prio = task_struct_normal_prio;
720 task_struct_tasks'next = Int64.sub task_struct_tasks'next 328L;
721 task_struct_tasks'prev = Int64.sub task_struct_tasks'prev 336L;
722 task_struct_mm = task_struct_mm;
723 task_struct_active_mm = task_struct_active_mm;
724 task_struct_pid = task_struct_pid;
725 task_struct_comm = task_struct_comm }
726 | { _ } -> raise (ParseError ("task_struct", "parser_34", "failed to match kernel structure"));;
727 module StringMap = Map.Make(String);;
728 let map = StringMap.empty;;
729 let v = (parser_1, 2704);;
730 let map = StringMap.add "2.6.21-1.3128.fc7.i586" v map;;
731 let v = (parser_2, 2492);;
732 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
733 let v = (parser_3, 1756);;
734 let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
735 let v = (parser_1, 2704);;
736 let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
737 let v = (parser_4, 3780);;
738 let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
739 let v = (parser_5, 2132);;
740 let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
741 let v = (parser_1, 2704);;
742 let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
743 let v = (parser_6, 1780);;
744 let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
745 let v = (parser_1, 1376);;
746 let map = StringMap.add "2.6.21-1.3228.fc7.i586" v map;;
747 let v = (parser_7, 3540);;
748 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i586" v map;;
749 let v = (parser_8, 1856);;
750 let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
751 let v = (parser_9, 3948);;
752 let map = StringMap.add "2.6.21-1.3236.fc8.x86_64" v map;;
753 let v = (parser_1, 2704);;
754 let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
755 let v = (parser_10, 2116);;
756 let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
757 let v = (parser_11, 1948);;
758 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
759 let v = (parser_5, 2072);;
760 let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
761 let v = (parser_12, 1736);;
762 let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
763 let v = (parser_1, 2704);;
764 let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
765 let v = (parser_4, 1832);;
766 let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
767 let v = (parser_5, 2132);;
768 let map = StringMap.add "2.6.21-1.3141.fc7.ppc64" v map;;
769 let v = (parser_1, 2712);;
770 let map = StringMap.add "2.6.21-1.3218.fc8.i586" v map;;
771 let v = (parser_13, 3932);;
772 let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.x86_64" v map;;
773 let v = (parser_14, 2276);;
774 let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
775 let v = (parser_15, 2272);;
776 let map = StringMap.add "2.6.23.14-78.fc7.ppc64" v map;;
777 let v = (parser_5, 2132);;
778 let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
779 let v = (parser_16, 1612);;
780 let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
781 let v = (parser_17, 2292);;
782 let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
783 let v = (parser_18, 2880);;
784 let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
785 let v = (parser_15, 2272);;
786 let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
787 let v = (parser_16, 1592);;
788 let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
789 let v = (parser_5, 2132);;
790 let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
791 let v = (parser_1, 1400);;
792 let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
793 let v = (parser_1, 1376);;
794 let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
795 let v = (parser_19, 4684);;
796 let map = StringMap.add "2.6.24-9.fc9.x86_64" v map;;
797 let v = (parser_20, 3756);;
798 let map = StringMap.add "2.6.21-1.3221.fc8.x86_64" v map;;
799 let v = (parser_17, 2292);;
800 let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc64" v map;;
801 let v = (parser_5, 2132);;
802 let map = StringMap.add "2.6.21-1.3132.fc7.ppc64" v map;;
803 let v = (parser_19, 4684);;
804 let map = StringMap.add "2.6.24-7.fc9.x86_64" v map;;
805 let v = (parser_14, 2276);;
806 let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
807 let v = (parser_1, 1384);;
808 let map = StringMap.add "2.6.18-1.2798.fc6.i586" v map;;
809 let v = (parser_14, 2276);;
810 let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
811 let v = (parser_16, 1620);;
812 let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
813 let v = (parser_21, 2080);;
814 let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
815 let v = (parser_22, 2292);;
816 let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
817 let v = (parser_19, 4684);;
818 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.x86_64" v map;;
819 let v = (parser_1, 1384);;
820 let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
821 let v = (parser_23, 2496);;
822 let map = StringMap.add "2.6.25.11-97.fc9.x86_64" v map;;
823 let v = (parser_1, 1368);;
824 let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
825 let v = (parser_24, 1772);;
826 let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
827 let v = (parser_7, 3540);;
828 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
829 let v = (parser_1, 2704);;
830 let map = StringMap.add "2.6.21-1.3141.fc7.i586" v map;;
831 let v = (parser_1, 2704);;
832 let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
833 let v = (parser_16, 1604);;
834 let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
835 let v = (parser_2, 2492);;
836 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
837 let v = (parser_25, 2856);;
838 let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
839 let v = (parser_26, 2308);;
840 let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
841 let v = (parser_16, 1628);;
842 let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
843 let v = (parser_26, 2308);;
844 let map = StringMap.add "2.6.21-1.3236.fc8.ppc64" v map;;
845 let v = (parser_5, 2072);;
846 let map = StringMap.add "2.6.21-1.3228.fc7.ppc64" v map;;
847 let v = (parser_5, 2132);;
848 let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
849 let v = (parser_27, 3364);;
850 let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
851 let v = (parser_14, 2276);;
852 let map = StringMap.add "2.6.21-1.3238.fc8.ppc64" v map;;
853 let v = (parser_1, 1400);;
854 let map = StringMap.add "2.6.21-1.3145.fc7.i686" v map;;
855 let v = (parser_1, 2712);;
856 let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
857 let v = (parser_4, 3772);;
858 let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
859 let v = (parser_2, 2492);;
860 let map = StringMap.add "2.6.24-7.fc9.ppc64" v map;;
861 let v = (parser_4, 1920);;
862 let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
863 let v = (parser_4, 3772);;
864 let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
865 let v = (parser_11, 1948);;
866 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
867 let v = (parser_16, 1576);;
868 let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
869 let v = (parser_28, 3916);;
870 let map = StringMap.add "2.6.22-0.rc7.2.fc8.x86_64" v map;;
871 let v = (parser_27, 1548);;
872 let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
873 let v = (parser_16, 1620);;
874 let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
875 let v = (parser_1, 2712);;
876 let map = StringMap.add "2.6.21-1.3209.fc8.i686" v map;;
877 let v = (parser_10, 2116);;
878 let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
879 let v = (parser_16, 1612);;
880 let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
881 let v = (parser_14, 2276);;
882 let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc64" v map;;
883 let v = (parser_16, 1628);;
884 let map = StringMap.add "2.6.21-1.3221.fc8.ppc" v map;;
885 let v = (parser_4, 3772);;
886 let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
887 let v = (parser_2, 2492);;
888 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc64" v map;;
889 let v = (parser_29, 2880);;
890 let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
891 let v = (parser_16, 1620);;
892 let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
893 let v = (parser_5, 2132);;
894 let map = StringMap.add "2.6.21-1.3144.fc7.ppc64" v map;;
895 let v = (parser_2, 2492);;
896 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
897 let v = (parser_16, 1628);;
898 let map = StringMap.add "2.6.21-1.3218.fc8.ppc" v map;;
899 let v = (parser_7, 3540);;
900 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
901 let v = (parser_4, 3772);;
902 let map = StringMap.add "2.6.21-1.3141.fc7.x86_64" v map;;
903 let v = (parser_16, 1604);;
904 let map = StringMap.add "2.6.21-1.3128.fc7.ppc" v map;;
905 let v = (parser_30, 1928);;
906 let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
907 let v = (parser_16, 1604);;
908 let map = StringMap.add "2.6.21-1.3132.fc7.ppc" v map;;
909 let v = (parser_16, 1584);;
910 let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
911 let v = (parser_27, 3364);;
912 let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
913 let v = (parser_28, 3916);;
914 let map = StringMap.add "2.6.21-1.3242.fc8.x86_64" v map;;
915 let v = (parser_2, 2492);;
916 let map = StringMap.add "2.6.24-9.fc9.ppc64" v map;;
917 let v = (parser_10, 2116);;
918 let map = StringMap.add "2.6.21-1.3221.fc8.ppc64" v map;;
919 let v = (parser_10, 2116);;
920 let map = StringMap.add "2.6.21-1.3218.fc8.ppc64" v map;;
921 let v = (parser_5, 2104);;
922 let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
923 let v = (parser_4, 3780);;
924 let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
925 let v = (parser_1, 1400);;
926 let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
927 let v = (parser_4, 3772);;
928 let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
929 let v = (parser_5, 2112);;
930 let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
931 let v = (parser_3, 1772);;
932 let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.ppc" v map;;
933 let v = (parser_11, 1936);;
934 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
935 let v = (parser_16, 1612);;
936 let map = StringMap.add "2.6.21-1.3209.fc8.ppc" v map;;
937 let v = (parser_4, 1920);;
938 let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
939 let v = (parser_27, 1548);;
940 let map = StringMap.add "2.6.23.14-135.fc8.i686" v map;;
941 let v = (parser_24, 1756);;
942 let map = StringMap.add "2.6.21-1.3242.fc8.ppc" v map;;
943 let v = (parser_31, 2872);;
944 let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
945 let v = (parser_1, 2704);;
946 let map = StringMap.add "2.6.21-1.3132.fc7.i586" v map;;
947 let v = (parser_1, 2704);;
948 let map = StringMap.add "2.6.21-1.3144.fc7.i586" v map;;
949 let v = (parser_4, 1880);;
950 let map = StringMap.add "2.6.21-1.3228.fc7.x86_64" v map;;
951 let v = (parser_5, 2088);;
952 let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
953 let v = (parser_31, 2872);;
954 let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
955 let v = (parser_12, 1736);;
956 let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
957 let v = (parser_7, 3540);;
958 let map = StringMap.add "2.6.24-7.fc9.i586" v map;;
959 let v = (parser_4, 1880);;
960 let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
961 let v = (parser_1, 2712);;
962 let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
963 let v = (parser_16, 1592);;
964 let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
965 let v = (parser_5, 2112);;
966 let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
967 let v = (parser_14, 2276);;
968 let map = StringMap.add "2.6.21-1.3242.fc8.ppc64" v map;;
969 let v = (parser_1, 2704);;
970 let map = StringMap.add "2.6.21-1.3141.fc7.i686" v map;;
971 let v = (parser_1, 2712);;
972 let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
973 let v = (parser_1, 2704);;
974 let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
975 let v = (parser_1, 1400);;
976 let map = StringMap.add "2.6.21-1.3145.fc7.i586" v map;;
977 let v = (parser_1, 1376);;
978 let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
979 let v = (parser_1, 2712);;
980 let map = StringMap.add "2.6.21-1.3209.fc8.i586" v map;;
981 let v = (parser_20, 3756);;
982 let map = StringMap.add "2.6.21-1.3218.fc8.x86_64" v map;;
983 let v = (parser_5, 2088);;
984 let map = StringMap.add "2.6.18-1.2798.fc6.ppc64iseries" v map;;
985 let v = (parser_1, 2704);;
986 let map = StringMap.add "2.6.21-1.3144.fc7.i686" v map;;
987 let v = (parser_4, 3772);;
988 let map = StringMap.add "2.6.21-1.3145.fc7.x86_64" v map;;
989 let v = (parser_12, 1760);;
990 let map = StringMap.add "2.6.23.14-78.fc7.ppc" v map;;
991 let v = (parser_4, 1880);;
992 let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
993 let v = (parser_32, 1796);;
994 let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
995 let v = (parser_28, 3916);;
996 let map = StringMap.add "2.6.21-1.3238.fc8.x86_64" v map;;
997 let v = (parser_7, 3540);;
998 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.i686" v map;;
999 let v = (parser_4, 1920);;
1000 let map = StringMap.add "2.6.20-1.2933.fc6.x86_64" v map;;
1001 let v = (parser_31, 2872);;
1002 let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
1003 let v = (parser_30, 1928);;
1004 let map = StringMap.add "2.6.18-1.2798.fc6.x86_64" v map;;
1005 let v = (parser_7, 3540);;
1006 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
1007 let v = (parser_1, 2712);;
1008 let map = StringMap.add "2.6.21-1.3221.fc8.i686" v map;;
1009 let v = (parser_21, 4468);;
1010 let map = StringMap.add "2.6.23.14-135.fc8.x86_64" v map;;
1011 let v = (parser_24, 1772);;
1012 let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
1013 let v = (parser_4, 3780);;
1014 let map = StringMap.add "2.6.21-1.3144.fc7.x86_64" v map;;
1015 let v = (parser_16, 1608);;
1016 let map = StringMap.add "2.6.20-1.2933.fc6.ppc" v map;;
1017 let v = (parser_31, 2872);;
1018 let map = StringMap.add "2.6.22-0.rc7.2.fc8.i686" v map;;
1019 let v = (parser_7, 3540);;
1020 let map = StringMap.add "2.6.24-7.fc9.i686" v map;;
1021 let v = (parser_21, 2080);;
1022 let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
1023 let v = (parser_7, 3540);;
1024 let map = StringMap.add "2.6.24-9.fc9.i686" v map;;
1025 let v = (parser_1, 2704);;
1026 let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
1027 let v = (parser_33, 1832);;
1028 let map = StringMap.add "2.6.25.11-97.fc9.i686" v map;;
1029 let v = (parser_1, 2704);;
1030 let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
1031 let v = (parser_1, 2704);;
1032 let map = StringMap.add "2.6.21-1.3228.fc7.i686" v map;;
1033 let v = (parser_5, 2112);;
1034 let map = StringMap.add "2.6.21-1.3145.fc7.ppc64" v map;;
1035 let v = (parser_21, 4468);;
1036 let map = StringMap.add "2.6.23.14-78.fc7.x86_64" v map;;
1037 let v = (parser_1, 2704);;
1038 let map = StringMap.add "2.6.21-1.3128.fc7.i686" v map;;
1039 let v = (parser_11, 1936);;
1040 let map = StringMap.add "2.6.24-0.167.rc8.git4.fc9.ppc" v map;;
1041 let v = (parser_16, 1604);;
1042 let map = StringMap.add "2.6.21-1.3144.fc7.ppc" v map;;
1043 let v = (parser_1, 1400);;
1044 let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
1045 let v = (parser_20, 3756);;
1046 let map = StringMap.add "2.6.21-1.3209.fc8.x86_64" v map;;
1047 let v = (parser_24, 1756);;
1048 let map = StringMap.add "2.6.21-1.3238.fc8.ppc" v map;;
1049 let v = (parser_34, 3932);;
1050 let map = StringMap.add "2.6.21-1.3234.fc8.x86_64" v map;;
1051 let v = (parser_32, 1780);;
1052 let map = StringMap.add "2.6.21-1.3234.fc8.ppc" v map;;
1053 let v = (parser_12, 1760);;
1054 let map = StringMap.add "2.6.23.14-135.fc8.ppc" v map;;
1055 let v = (parser_22, 2292);;
1056 let map = StringMap.add "2.6.21-1.3234.fc8.ppc64" v map;;
1057 let v = (parser_24, 1756);;
1058 let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
1059 let v = (parser_1, 1400);;
1060 let map = StringMap.add "2.6.20-1.2933.fc6.i586" v map;;
1061 let v = (parser_4, 3780);;
1062 let map = StringMap.add "2.6.21-1.3132.fc7.x86_64" v map;;
1063 let v = (parser_1, 1400);;
1064 let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
1065 let v = (parser_5, 2104);;
1066 let map = StringMap.add "2.6.18-1.2798.fc6.ppc64" v map;;
1067 let v = (parser_1, 1384);;
1068 let map = StringMap.add "2.6.18-1.2798.fc6.i686" v map;;
1069 let v = (parser_31, 2872);;
1070 let map = StringMap.add "2.6.21-1.3238.fc8.i686" v map;;
1071 let v = (parser_16, 1620);;
1072 let map = StringMap.add "2.6.21-1.3141.fc7.ppc" v map;;
1073 let v = (parser_16, 1560);;
1074 let map = StringMap.add "2.6.21-1.3228.fc7.ppc" v map;;
1075 let v = (parser_18, 2880);;
1076 let map = StringMap.add "2.6.21-1.3236.fc8.i686" v map;;
1077 let v = (parser_6, 1796);;
1078 let map = StringMap.add "2.6.21-1.3236.fc8.ppc" v map;;
1079 let v = (parser_1, 1384);;
1080 let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
1081 let v = (parser_1, 2712);;
1082 let map = StringMap.add "2.6.21-1.3218.fc8.i686" v map;;
1083 let v = (parser_7, 3540);;
1084 let map = StringMap.add "2.6.24-9.fc9.i586" v map;;
1085 let v = (parser_4, 3772);;
1086 let map = StringMap.add "2.6.21-1.3128.fc7.x86_64" v map;;
1087 let v = (parser_29, 2880);;
1088 let map = StringMap.add "2.6.21-1.3234.fc8.i686" v map;;
1089 let v = (parser_15, 2272);;
1090 let map = StringMap.add "2.6.23.14-135.fc8.ppc64" v map;;
1091 let v = (parser_5, 2112);;
1092 let map = StringMap.add "2.6.20-1.2933.fc6.ppc64" v map;;
1093 let v = (parser_11, 1936);;
1094 let map = StringMap.add "2.6.24-9.fc9.ppc" v map;;
1095 let v = (parser_27, 1548);;
1096 let map = StringMap.add "2.6.23.14-78.fc7.i586" v map;;
1097 let v = (parser_24, 1772);;
1098 let map = StringMap.add "2.6.22-0.rc7.2.fc8.ppc" v map;;
1099 let v = (parser_31, 2872);;
1100 let map = StringMap.add "2.6.21-1.3242.fc8.i686" v map;;
1101 let v = (parser_5, 2132);;
1102 let map = StringMap.add "2.6.21-1.3128.fc7.ppc64" v map;;
1103 let v = (parser_11, 1948);;
1104 let map = StringMap.add "2.6.24-7.fc9.ppc" v map;;
1105 let v = (parser_10, 2116);;
1106 let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
1107 let v = (parser_16, 1592);;
1108 let map = StringMap.add "2.6.18-1.2798.fc6.ppc" v map;;
1109 let v = (parser_25, 2856);;
1110 let map = StringMap.add "2.6.22-0.23.rc7.git6.fc8.i686" v map;;
1111 let v = (parser_27, 1548);;
1112 let map = StringMap.add "2.6.23.14-135.fc8.i586" v map;;
1113 let v = (parser_1, 2704);;
1114 let map = StringMap.add "2.6.20-1.2933.fc6.i686" v map;;
1115 let v = (parser_10, 2116);;
1116 let map = StringMap.add "2.6.21-1.3209.fc8.ppc64" v map;;
1117 let v = (parser_1, 2704);;
1118 let map = StringMap.add "2.6.21-1.3132.fc7.i686" v map;;
1119 let v = (parser_16, 1608);;
1120 let map = StringMap.add "2.6.21-1.3145.fc7.ppc" v map;;
1121 let v = (parser_1, 2712);;
1122 let map = StringMap.add "2.6.21-1.3221.fc8.i586" v map;;
1123 type kernel_version = string;;
1124 let task_struct_known version = StringMap.mem version map;;
1125 let task_struct_size version =
1126 let (_, size) = StringMap.find version map in size;;
1127 let task_struct_of_bits version bits =
1128 let (parsefn, _) = StringMap.find version map in parsefn bits;;
1129 let get_task_struct version mem addr =
1130 let (parsefn, size) = StringMap.find version map in
1131 let bytes = Virt_mem_mmap.get_bytes mem addr size in
1132 let bits = Bitstring.bitstring_of_string bytes in parsefn bits;;