Explorar o código

* fix for range check error during compilation

git-svn-id: trunk@1089 -
Tomas Hajny %!s(int64=20) %!d(string=hai) anos
pai
achega
ea7f415a97
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/emx/sysutils.pp

+ 1 - 1
rtl/emx/sysutils.pp

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