Parcourir la source

utils: use LongInt instead of Integer to prevent overflow

git-svn-id: trunk@26394 -
paul il y a 11 ans
Parent
commit
75fecf9e96
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      utils/creumap.pp

+ 1 - 1
utils/creumap.pp

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