paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 21:31:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed memory leak with temp. variables, fixes #7282

Browse Source 
git-svn-id: trunk@4998 -
This commit is contained in:
florian 2006-10-22 08:14:06 +00:00
parent 01afee1f73
commit dde9ad4755
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgbas.pas
View File

@ -376,6 +376,9 @@ interface
begin
location_reset(tempinfo^.location,LOC_REFERENCE,def_cgsize(tempinfo^.restype.def));
tg.GetTempTyped(current_asmdata.CurrAsmList,tempinfo^.restype.def,tempinfo^.temptype,tempinfo^.location.reference);
{ the temp could have been used previously either because the memory location was reused or
because we're in a loop }
cg.g_finalize(current_asmdata.CurrAsmList,tempinfo^.restype.def,tempinfo^.location.reference);
end
else if tempinfo^.may_be_in_reg then
begin