Bläddra i källkod

* small fix for previous commit.

git-svn-id: trunk@5252 -
yury 19 år sedan
förälder
incheckning
f89a0ac4c1
1 ändrade filer med 2 tillägg och 1 borttagningar
  1. 2 1
      compiler/ogcoff.pas

+ 2 - 1
compiler/ogcoff.pas

@@ -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);