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 }