2
0
Эх сурвалжийг харах

* fix for range check error during compilation

git-svn-id: trunk@1089 -
Tomas Hajny 20 жил өмнө
parent
commit
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
         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,