let mkStructSingleton ?(padding=0) stname finame fitype =
let compinfo =
mkCompInfo true stname
(fun _ -> [finame,fitype,None,[],CurrentLoc.get ()]) []
in
let fi = get_unique_field (TComp(compinfo,empty_size_cache (),[])) in
fi.fsize_in_bits <- Some (bitsSizeOf fitype);
fi.foffset_in_bits <- Some 0;
fi.fpadding_in_bits <- Some padding;
compinfo