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

* better check for FindClose

Browse Source
This commit is contained in:
Tomas Hajny 2001-04-10 18:49:40 +00:00
parent 8a7762efb2
commit 64e7256587
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/os2/dos.pas
View File

@ -877,7 +877,7 @@ procedure FindClose (var F: SearchRec);
begin begin
if os_mode = osOS2 then if os_mode = osOS2 then
begin begin
DosError := DosFindClose (F.Handle); if F.Handle <> $FFFFFFFF then DosError := DosFindClose (F.Handle);
Dispose (F.FStat); Dispose (F.FStat);
end; end;
end; end;
@ -1060,7 +1060,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.9 2001-03-11 18:58:42 hajny Revision 1.10 2001-04-10 18:49:40 hajny
* better check for FindClose
Revision 1.9 2001/03/11 18:58:42 hajny
* another Find* problem :-( * another Find* problem :-(
Revision 1.8 2001/03/10 09:57:51 hajny Revision 1.8 2001/03/10 09:57:51 hajny