paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* spaces inserted

Browse Source 
git-svn-id: trunk@5074 -
This commit is contained in:
florian 2006-10-29 21:45:00 +00:00
parent 35aa1e150e
commit beb1c6b72d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/lineinfo.pp
View File

@ -398,7 +398,7 @@ begin
if peheader.pemagic<>$4550 then if peheader.pemagic<>$4550 then
exit; exit;
{ read section info } { read section info }
for i:=1to peheader.NumberOfSections do for i:=1 to peheader.NumberOfSections do
begin begin
blockread(f,coffsec,sizeof(tcoffsechdr)); blockread(f,coffsec,sizeof(tcoffsechdr));
if (coffsec.name[4]='b') and if (coffsec.name[4]='b') and
@ -516,7 +516,7 @@ begin
if peheader.pemagic<>$4550 then if peheader.pemagic<>$4550 then
exit; exit;
{ read section info } { read section info }
for i:=1to peheader.NumberOfSections do for i:=1 to peheader.NumberOfSections do
begin begin
blockread(f,coffsec,sizeof(tcoffsechdr)); blockread(f,coffsec,sizeof(tcoffsechdr));
if (coffsec.name[4]='b') and if (coffsec.name[4]='b') and