- fun (struct_name,
- (_, _, sflist, _, cflist, _, _, _)) ->
- (struct_name, sflist, cflist)
+ fun (struct_name, (_, all_fields, _, _)) ->
+ (struct_name, all_fields)
+ ) structures
+ ) in
+
+ let implem_offsets, interf_offsets =
+ CG.generate_offsets (
+ List.map (
+ fun (struct_name, (kernels, all_fields, _, _)) ->
+ (struct_name, (kernels, all_fields))
+ ) structures
+ ) in
+
+ let (implem_parsers, interf_parsers), subst_parsers =
+ CG.generate_parsers (
+ List.map (
+ fun (struct_name, (_, all_fields, palist, _)) ->
+ (struct_name, (all_fields, palist))
+ ) structures
+ ) in
+
+ let implem_version_maps, interf_version_maps =
+ CG.generate_version_maps (
+ List.map (
+ fun (struct_name, (kernels, _, _, pahash)) ->
+ (struct_name, (kernels, pahash))
+ ) structures
+ ) in
+
+ let implem_followers, interf_followers =
+ CG.generate_followers good_struct_names (
+ List.map (
+ fun (struct_name, (_, all_fields, _, _)) -> (struct_name, all_fields)