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

* Fixed mem-leaks

Browse Source 
git-svn-id: trunk@35754 -
This commit is contained in:
joost 2017-04-07 22:41:02 +00:00
parent 39b780c3e3
commit cb402adf32
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fppkg/src/pkgoptions.pp
View File

@ -350,6 +350,7 @@ begin
IncludeFile(FileDir+SR.Name); IncludeFile(FileDir+SR.Name);
until FindNext(SR)<>0; until FindNext(SR)<>0;
end; end;
FindClose(SR);
end end
else else
log(llWarning, SLogIncludeFileMaskDoesNotExist, [FileDir, AFileNameMask]); log(llWarning, SLogIncludeFileMaskDoesNotExist, [FileDir, AFileNameMask]);

2
packages/fppkg/src/pkguninstalledsrcsrepo.pp
View File

@ -143,7 +143,7 @@ begin
FindClose(SRF); FindClose(SRF);
until FindNext(SRD)<>0; until FindNext(SRD)<>0;
end; end;
FindClose(SRF); FindClose(SRD);
Result:=true; Result:=true;
end; end;