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

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

Browse Source 
assembler routines

git-svn-id: trunk@34887 -
This commit is contained in:
Jonas Maebe 2016-11-13 16:06:17 +00:00
parent b28221349e
commit bdfd588b47
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/llvm/agllvm.pas
View File

@ -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;