From f89a0ac4c12e60bb8bb313443dd9e05732b014a4 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sun, 5 Nov 2006 19:47:24 +0000
Subject: [PATCH] * small fix for previous commit.

git-svn-id: trunk@5252 -
---
 compiler/ogcoff.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/ogcoff.pas b/compiler/ogcoff.pas
index 435ecd0621..940913de6b 100644
--- a/compiler/ogcoff.pas
+++ b/compiler/ogcoff.pas
@@ -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);