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

* fixed memory leak in case one tai operand is replaced by another

Browse Source 
git-svn-id: trunk@30424 -
This commit is contained in:
Jonas Maebe 2015-04-04 14:29:00 +00:00
parent 3279cc052a
commit ee7198aa57
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/llvm/aasmllvm.pas
View File

@ -299,8 +299,7 @@ uses
allocate_oper(opidx+1); allocate_oper(opidx+1);
with oper[opidx]^ do with oper[opidx]^ do
begin begin
if typ<>top_tai then clearop(opidx);
clearop(opidx);
ai:=_ai; ai:=_ai;
typ:=top_tai; typ:=top_tai;
end; end;