Browse Source

* fix for range check error during compilation

git-svn-id: trunk@1088 -
Tomas Hajny 20 years ago
parent
commit
86e2b7f402
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/os2/sysutils.pp

+ 1 - 1
rtl/os2/sysutils.pp

@@ -568,7 +568,7 @@ var SR: PSearchRec;
 
 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, ilStandard);