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