paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 20:32:20 +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

6
compiler/systems/t_win.pas
View File

@ -587,8 +587,10 @@ implementation
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;