瀏覽代碼

* changed "crc" variable from longint to cardinal to avoid (harmless) range
check errors

git-svn-id: trunk@21257 -

Jonas Maebe 13 年之前
父節點
當前提交
24be42d509
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/pgenutil.pas

+ 2 - 1
compiler/pgenutil.pas

@@ -73,7 +73,8 @@ uses
         first,
         err : boolean;
         i,
-        gencount,crc : longint;
+        gencount : longint;
+        crc : cardinal;
         genericdef,def : tstoreddef;
         generictype : ttypesym;
         genericdeflist : TFPObjectList;