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