paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 03:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* partial fix for Win64 (CoffSymbol not resolved yet - is it equal in PE32 and PE32PLUS?)

Browse Source 
git-svn-id: trunk@9806 -
This commit is contained in:
Tomas Hajny 2008-01-20 11:49:41 +00:00
parent c743711f40
commit 00b342301a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/exeinfo.pp
View File

@ -518,11 +518,11 @@ var
begin begin
result:=false; result:=false;
{ read and check header } { read and check header }
if filesize(f)<sizeof(dosheader) then if E.Size<sizeof(dosheader) then
exit; exit;
blockread(f,dosheader,sizeof(tdosheader)); blockread(E.F,dosheader,sizeof(tdosheader));
seek(f,dosheader.e_lfanew); seek(E.F,dosheader.e_lfanew);
blockread(f,peheader,sizeof(tpeheader)); blockread(E.F,peheader,sizeof(tpeheader));
if peheader.pemagic<>$4550 then if peheader.pemagic<>$4550 then
exit; exit;
e.sechdrofs:=filepos(e.f); e.sechdrofs:=filepos(e.f);