paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 02:18:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid memory leak in TExportLibWin.preparelib

Browse Source 
git-svn-id: trunk@5546 -
This commit is contained in:
pierre 2006-12-05 22:51:04 +00:00
parent 8c4f672954
commit f7da7486a3
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/systems/t_win.pas
View File

@ -581,14 +581,16 @@ implementation
EList_nonindexed.Free;
inherited;
end;
procedure TExportLibWin.preparelib(const s:string);
begin
if current_asmdata.asmlists[al_exports]=nil then
current_asmdata.asmlists[al_exports]:=TAsmList.create;
EList_indexed:=tFPList.Create;
EList_nonindexed:=tFPList.Create;
if EList_indexed=nil then
EList_indexed:=tFPList.Create;
if EList_nonindexed=nil then
EList_nonindexed:=tFPList.Create;
end;