浏览代码

* range check error fix (patch from Sergey)

carl 23 年之前
父节点
当前提交
3232d937be
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/cutils.pas

+ 5 - 2
compiler/cutils.pas

@@ -333,7 +333,7 @@ uses
       const
         HexTbl : array[0..15] of char='0123456789ABCDEF';
       var
-        i,j : longint;
+        i,j : cardinal;
       begin
         { calculate required length }
         i:=0;
@@ -803,7 +803,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.19  2002-07-07 09:52:32  florian
+  Revision 1.20  2002-07-07 11:13:34  carl
+    * range check error fix (patch from Sergey)
+
+  Revision 1.19  2002/07/07 09:52:32  florian
     * powerpc target fixed, very simple units can be compiled
     * some basic stuff for better callparanode handling, far from being finished