浏览代码

utils: use LongInt instead of Integer to prevent overflow

git-svn-id: trunk@26394 -
paul 11 年之前
父节点
当前提交
75fecf9e96
共有 1 个文件被更改,包括 1 次插入1 次删除
  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;