paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 01:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed findclose bug

Browse Source
This commit is contained in:
michael 1999-01-28 12:10:42 +00:00
parent 17216fee04
commit 13e1341858
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/linux/dos.pp
View File

@ -544,6 +544,7 @@ Begin
{$ELSE}
closedir(pdir(f.dirptr));
{$ENDIF}
Dispose(pdir(f.dirptr));
end;
End;
end;
@ -1042,7 +1043,10 @@ End.
{
$Log$
Revision 1.6 1998-11-23 12:32:31 peter
Revision 1.7 1999-01-28 12:10:42 michael
+ Fixed findclose bug
Revision 1.6 1998/11/23 12:32:31 peter
* fix for findclose from the mailinglist
Revision 1.5 1998/11/05 14:24:08 peter