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

Avoid memory leak on tppumodule.unitimportsymsderefs

Browse Source 
git-svn-id: trunk@34360 -
This commit is contained in:
pierre 2016-08-21 21:53:02 +00:00
parent 4eea5d9651
commit ea4350d86a
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/fppu.pas
View File

@ -88,6 +88,7 @@ interface
procedure queuecomment(const s:TMsgStr;v,w:longint);
procedure buildderefunitimportsyms;
procedure derefunitimportsyms;
procedure freederefunitimportsyms;
procedure writesourcefiles;
procedure writeusedunit(intf:boolean);
procedure writelinkcontainer(var p:tlinkcontainer;id:byte;strippath:boolean);
@ -155,6 +156,9 @@ var
ppufile:=nil;
comments.free;
comments:=nil;
{ all derefs allocated with new
are dispose'd inside this method }
freederefunitimportsyms;
unitimportsymsderefs.free;
unitimportsymsderefs:=nil;
inherited Destroy;
@ -642,6 +646,18 @@ var
end;
end;
procedure tppumodule.freederefunitimportsyms;
var
i : longint;
deref : pderef;
begin
for i:=0 to unitimportsymsderefs.count-1 do
begin
deref:=pderef(unitimportsymsderefs[i]);
system.dispose(deref);
end;
end;
{**********************************
PPU Reading/Writing Helpers
***********************************}