Source position: real48utils.pp line 20
type TDoubleRec = bitpacked record
F2: TBit20;
F1: TBit32;
E: TBit11;
S: TBit01;
end;