let cil_field_info f = 
    let t = tcomp_of_comp (f.fcomp) in
      try
        let offset = Field (f, NoOffsetin
          Cil.bitsOffset t offset 
      with Cil.SizeOfError (msg,t) -> 
        unsupported "sizeof %a : %s for field '%s'"
          !Ast_printer.d_type t msg f.fname