浏览代码

* fix for range check error during compilation

git-svn-id: trunk@1089 -
Tomas Hajny 20 年之前
父节点
当前提交
ea7f415a97
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/emx/sysutils.pp

+ 1 - 1
rtl/emx/sysutils.pp

@@ -582,7 +582,7 @@ begin
     if os_mode = osOS2 then
     if os_mode = osOS2 then
         begin
         begin
             New (FStat);
             New (FStat);
-            Rslt.FindHandle := $FFFFFFFF;
+            Rslt.FindHandle := THandle ($FFFFFFFF);
             Count := 1;
             Count := 1;
             Err := DosFindFirst (PChar (Path), Rslt.FindHandle,
             Err := DosFindFirst (PChar (Path), Rslt.FindHandle,
                    Attr and FindResvdMask, FStat, SizeOf (FStat^), Count,
                    Attr and FindResvdMask, FStat, SizeOf (FStat^), Count,