paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:29:31 +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; EList_nonindexed.Free;
inherited; inherited;
end; end;
procedure TExportLibWin.preparelib(const s:string); procedure TExportLibWin.preparelib(const s:string);
begin begin
if current_asmdata.asmlists[al_exports]=nil then if current_asmdata.asmlists[al_exports]=nil then
current_asmdata.asmlists[al_exports]:=TAsmList.create; current_asmdata.asmlists[al_exports]:=TAsmList.create;
EList_indexed:=tFPList.Create; if EList_indexed=nil then
EList_nonindexed:=tFPList.Create; EList_indexed:=tFPList.Create;
if EList_nonindexed=nil then
EList_nonindexed:=tFPList.Create;
end; end;