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

* findclose freemem fixed

Browse Source
This commit is contained in:
peter 1999-08-26 11:02:50 +00:00
parent 0e54531413
commit f65b5aee28
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/go32v2/filutil.inc
View File

@ -208,7 +208,7 @@ begin
Sr := PSearchRec(F.FindHandle);
if Sr <> nil then
//!! Dispose(Sr);
freemem(sr,sizeof(tsearchrec));
freemem(sr,sizeof(searchrec));
F.FindHandle := 0;
end;
@ -454,7 +454,10 @@ end;
{
$Log$
Revision 1.7 1999-08-24 13:14:28 peter
Revision 1.8 1999-08-26 11:02:50 peter
* findclose freemem fixed
Revision 1.7 1999/08/24 13:14:28 peter
* fixed DeleteFile()
Revision 1.6 1999/08/19 14:00:08 pierre