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

* Fixed hang while linking in some cases.

Browse Source 
git-svn-id: trunk@11508 -
This commit is contained in:
yury 2008-08-03 21:19:33 +00:00
parent f206a6421f
commit 23da33b75a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogbase.pas
View File

@ -2168,8 +2168,8 @@ implementation
mergedstabstrsec : TObjSection;
hstabreloc,
currstabreloc : TObjRelocation;
i,j : longint;
currstabrelocidx,
i,j,
mergestabcnt,
stabcnt : longword;
skipstab : boolean;
@ -2233,12 +2233,12 @@ implementation
begin
currstabreloc:=TObjRelocation(currstabsec.ObjRelocations[currstabrelocidx]);
if assigned(currstabreloc) and
(currstabreloc.dataoffset>=j*sizeof(TObjStabEntry)+stabrelocofs) then
(currstabreloc.dataoffset>=longword(j)*sizeof(TObjStabEntry)+stabrelocofs) then
break;
inc(currstabrelocidx);
end;
if assigned(currstabreloc) and
(currstabreloc.dataoffset=j*sizeof(TObjStabEntry)+stabrelocofs) then
(currstabreloc.dataoffset=longword(j)*sizeof(TObjStabEntry)+stabrelocofs) then
begin
hstabReloc:=currstabReloc;
inc(currstabrelocidx);