소스 검색

* 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
         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,