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

* fixed memory leaks due to missing frees of temporary tcgpara locations

Browse Source 
git-svn-id: trunk@30854 -
This commit is contained in:
Jonas Maebe 2015-05-14 14:42:35 +00:00
parent ce49f5fb41
commit 32501834c9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgutil.pas
View File

@ -436,6 +436,9 @@ implementation
paramanager.freecgpara(list,paraloc1);
{ perform the fpc_pushexceptaddr call }
pushexceptres:=hlcg.g_call_system_proc(list,pd,[@paraloc1,@paraloc2,@paraloc3],nil);
paraloc1.done;
paraloc2.done;
paraloc3.done;
{ get the result }
location_reset(tmpresloc,LOC_REGISTER,def_cgsize(pushexceptres.def));
@ -451,6 +454,7 @@ implementation
paramanager.freecgpara(list,paraloc1);
{ perform the fpc_setjmp call }
setjmpres:=hlcg.g_call_system_proc(list,pd,[@paraloc1],nil);
paraloc1.done;
location_reset(tmpresloc,LOC_REGISTER,def_cgsize(setjmpres.def));
tmpresloc.register:=hlcg.getintregister(list,setjmpres.def);
hlcg.gen_load_cgpara_loc(list,setjmpres.def,setjmpres,tmpresloc,true);
@ -459,9 +463,6 @@ implementation
longjmp'd back here }
hlcg.a_cmp_const_reg_label(list,setjmpres.def,OC_NE,0,tmpresloc.register,exceptlabel);
setjmpres.resetiftemp;
paraloc1.done;
paraloc2.done;
paraloc3.done;
end;