paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +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; procedure tcoffexeoutput.CalcPos_Symbols;
var var
i : integer; i : longint;
sym : TExeSymbol; sym : TExeSymbol;
begin begin
nsyms:=0; nsyms:=0;
@ -2047,6 +2047,7 @@ const pemagic : array[0..3] of byte = (
ExeSymbolList.Delete(i); ExeSymbolList.Delete(i);
end; end;
ExeSymbolList.Pack; ExeSymbolList.Pack;
{ Calculating symbols position and size }
nsyms:=ExeSymbolList.Count; nsyms:=ExeSymbolList.Count;
sympos:=CurrDataPos; sympos:=CurrDataPos;
inc(CurrDataPos,sizeof(coffsymbol)*nsyms); inc(CurrDataPos,sizeof(coffsymbol)*nsyms);