Browse Source

* free the temporary assembler writer created for writing the code of pure
assembler routines

git-svn-id: trunk@34887 -

Jonas Maebe 8 years ago
parent
commit
bdfd588b47
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/llvm/agllvm.pas

+ 1 - 0
compiler/llvm/agllvm.pas

@@ -1295,6 +1295,7 @@ implementation
                 a.WriteTree(current_asmdata.asmlists[hal]);
                 a.WriteTree(current_asmdata.asmlists[hal]);
                 writer.decorator:=nil;
                 writer.decorator:=nil;
                 decorator.free;
                 decorator.free;
+                a.free;
               end;
               end;
             writer.AsmWriteLn(asminfo^.comment+'End asmlist '+AsmlistTypeStr[hal]);
             writer.AsmWriteLn(asminfo^.comment+'End asmlist '+AsmlistTypeStr[hal]);
           end;
           end;