paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for range check error during compilation

Browse Source 
git-svn-id: trunk@1088 -
This commit is contained in:
Tomas Hajny 2005-09-15 20:36:51 +00:00
parent 6b01da4f65
commit 86e2b7f402
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/os2/sysutils.pp
View File

@ -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);