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

* fixed memory leak due to double allocation of typedconstbuilder and wrong

Browse Source 
free location

git-svn-id: trunk@30853 -
This commit is contained in:
Jonas Maebe 2015-05-14 14:42:32 +00:00
parent d7412fb5c0
commit ce49f5fb41
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/ncgcon.pas
View File

@ -389,7 +389,6 @@ implementation
begin begin
current_asmdata.getglobaldatalabel(lastlabel.lab); current_asmdata.getglobaldatalabel(lastlabel.lab);
datatcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable]);
{ include terminating zero } { include terminating zero }
getmem(pc,len+1); getmem(pc,len+1);
move(value_str^,pc[0],len); move(value_str^,pc[0],len);
@ -408,8 +407,8 @@ implementation
end; end;
else else
internalerror(2013120103); internalerror(2013120103);
datatcb.free;
end; end;
datatcb.free;
lab_str:=lastlabel.lab; lab_str:=lastlabel.lab;
entry^.Data:=lastlabel.lab; entry^.Data:=lastlabel.lab;
end; end;