Selaa lähdekoodia

* fixed memleak after r31487

git-svn-id: trunk@31492 -
nickysn 10 vuotta sitten
vanhempi
commit
672ff1d863
1 muutettua tiedostoa jossa 9 lisäystä ja 0 poistoa
  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 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