Преглед изворни кода

* fixed memleak after r31487

git-svn-id: trunk@31492 -
nickysn пре 10 година
родитељ
комит
672ff1d863
1 измењених фајлова са 9 додато и 0 уклоњено
  1. 9 0
      compiler/x86/agx86nsm.pas

+ 9 - 0
compiler/x86/agx86nsm.pas

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