rtl/inc/exeinfo.pp

512   DosHeader: TDosHeader;
517   if E.Size < SizeOf (DosHeader) then
519   BlockRead (E.F, DosHeader, SizeOf (DosHeader), BRead);
520   if BRead <> SizeOf (DosHeader) then
522   if DosHeader.E_Magic = $5A4D then
524    E.ImgOffset := DosHeader.e_cp * ParagraphSize;
525    if DosHeader.e_cblp > 0 then
526     E.ImgOffset := E.ImgOffset + DosHeader.e_cblp - ParagraphSize;
709  DosHeader: TDosHeader;
722  if E.Size > SizeOf (DosHeader) then
724   BlockRead (E.F, DosHeader, SizeOf (TDosHeader));
726   WriteLn (StdErr, 'DosHeader.E_CParHdr = ', DosHeader.E_cParHdr);
728   if E.Size > DosHeader.e_cparhdr shl 4 + SizeOf (TEmxHeader) then
730    Seek (E.F, DosHeader.e_cparhdr shl 4);
1004   DosHeader : tdosheader;
1011   if E.Size < SizeOf (DosHeader) then
1013   BlockRead (E.F, DosHeader, SizeOf (DosHeader), BRead);
1014   if BRead <> SizeOf (DosHeader) then
1016   if DosHeader.E_Magic = $5A4D then
1018    E.ImgOffset := LongWord(DosHeader.e_cp) * ParagraphSize;
1019    if DosHeader.e_cblp > 0 then
1020     E.ImgOffset := E.ImgOffset + DosHeader.e_cblp - ParagraphSize;