paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* again didn't manage to read docu for DosFindFirst properly :-(

Browse Source
This commit is contained in:
Tomas Hajny 1999-09-13 18:21:02 +00:00
parent 2040a216bb
commit 2d015b9e80
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/os2/dos.pas
View File

@ -211,6 +211,7 @@ begin
New (FStat); New (FStat);
ND := NewDir + Path; ND := NewDir + Path;
Handle := $FFFFFFFF; Handle := $FFFFFFFF;
Count := 1;
RC := DosFindFirst (ND, Handle, $37, FStat, SizeOf (FStat^), RC := DosFindFirst (ND, Handle, $37, FStat, SizeOf (FStat^),
Count, ilStandard); Count, ilStandard);
DosFindClose (Handle); DosFindClose (Handle);
@ -1000,7 +1001,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-09-13 17:56:26 hajny Revision 1.16 1999-09-13 18:21:02 hajny
* again didn't manage to read docu for DosFindFirst properly :-(
Revision 1.15 1999/09/13 17:56:26 hajny
* another correction to FSearch fix - mistyping * another correction to FSearch fix - mistyping
Revision 1.14 1999/09/13 17:35:15 hajny Revision 1.14 1999/09/13 17:35:15 hajny