let reduce_struct_field = function
NormalField n ->
NormalField { n with sf_type = convert_type n.sf_type }
| BitField b ->
BitField { b with
s_bf_fields =
List.map
(fun (i,ty,s,p) -> (i, convert_type ty, s, p))
b.s_bf_fields }