mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 18:09:30 +02:00
* free the temporary assembler writer created for writing the code of pure
assembler routines git-svn-id: trunk@34887 -
This commit is contained in:
parent
b28221349e
commit
bdfd588b47
@ -1295,6 +1295,7 @@ implementation
|
||||
a.WriteTree(current_asmdata.asmlists[hal]);
|
||||
writer.decorator:=nil;
|
||||
decorator.free;
|
||||
a.free;
|
||||
end;
|
||||
writer.AsmWriteLn(asminfo^.comment+'End asmlist '+AsmlistTypeStr[hal]);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user