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

* fixed memleak after r31487

Browse Source 
git-svn-id: trunk@31492 -
This commit is contained in:
nickysn 2015-09-03 13:40:00 +00:00
parent 314b5e5eac
commit 672ff1d863
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/agx86nsm.pas
View File

@ -51,6 +51,7 @@ interface
function double2str(d: double): string; override;
function extended2str(e: extended): string; override;
public
destructor Destroy;override;
procedure WriteTree(p:TAsmList);override;
procedure WriteAsmList;override;
procedure WriteExternals;
@ -145,6 +146,14 @@ interface
end;
destructor TX86NasmAssembler.Destroy;
begin
FSectionsUsed.Free;
FSectionsInDGROUP.Free;
inherited Destroy;
end;
function sizestr(s:topsize;dest:boolean):string;
begin
case s of