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

* small fix for previous commit.

Browse Source 
git-svn-id: trunk@5252 -
This commit is contained in:
yury 2006-11-05 19:47:24 +00:00
parent aa9c217f6b
commit f89a0ac4c1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ogcoff.pas
View File

@ -2032,7 +2032,7 @@ const pemagic : array[0..3] of byte = (
procedure tcoffexeoutput.CalcPos_Symbols;
var
i : integer;
i : longint;
sym : TExeSymbol;
begin
nsyms:=0;
@ -2047,6 +2047,7 @@ const pemagic : array[0..3] of byte = (
ExeSymbolList.Delete(i);
end;
ExeSymbolList.Pack;
{ Calculating symbols position and size }
nsyms:=ExeSymbolList.Count;
sympos:=CurrDataPos;
inc(CurrDataPos,sizeof(coffsymbol)*nsyms);