mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-08 10:26:13 +02:00
+ Fixed memory leak in findfirst/findnext
This commit is contained in:
parent
13e1341858
commit
5076475236
@ -544,6 +544,7 @@ Begin
|
|||||||
{$ELSE}
|
{$ELSE}
|
||||||
closedir(pdir(f.dirptr));
|
closedir(pdir(f.dirptr));
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
Dispose(pdir(f.dirptr)^.buf);
|
||||||
Dispose(pdir(f.dirptr));
|
Dispose(pdir(f.dirptr));
|
||||||
end;
|
end;
|
||||||
End;
|
End;
|
||||||
@ -1043,7 +1044,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.7 1999-01-28 12:10:42 michael
|
Revision 1.8 1999-01-28 12:54:13 michael
|
||||||
|
+ Fixed memory leak in findfirst/findnext
|
||||||
|
|
||||||
|
Revision 1.7 1999/01/28 12:10:42 michael
|
||||||
+ Fixed findclose bug
|
+ Fixed findclose bug
|
||||||
|
|
||||||
Revision 1.6 1998/11/23 12:32:31 peter
|
Revision 1.6 1998/11/23 12:32:31 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user