Explorar o código

utils: use LongInt instead of Integer to prevent overflow

git-svn-id: trunk@26394 -
paul %!s(int64=11) %!d(string=hai) anos
pai
achega
75fecf9e96
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      utils/creumap.pp

+ 1 - 1
utils/creumap.pp

@@ -44,7 +44,7 @@ const
     var
     var
        nef, oef : File of Byte;
        nef, oef : File of Byte;
        h, th : TSerializedMapHeader;
        h, th : TSerializedMapHeader;
-       k : Integer;
+       k : Longint;
        um : tunicodecharmapping;
        um : tunicodecharmapping;
        pum : punicodecharmapping;
        pum : punicodecharmapping;
        rm : treversecharmapping;
        rm : treversecharmapping;