paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 21:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed memory leaks

Browse Source 
* cleaned up some stuff

git-svn-id: trunk@6025 -
This commit is contained in:
florian 2007-01-17 14:00:36 +00:00
parent f2b07704b5
commit 2fabc692fa
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparc/rgcpu.pas
View File

@ -115,7 +115,8 @@ implementation
helpins:=spilling_create_load(tmpref,tempreg); helpins:=spilling_create_load(tmpref,tempreg);
helplist.concat(helpins); helplist.concat(helpins);
list.insertlistafter(pos,helplist) list.insertlistafter(pos,helplist);
helplist.free;
end end
else else
inherited do_spill_read(list,pos,spilltemp,tempreg); inherited do_spill_read(list,pos,spilltemp,tempreg);
@ -124,7 +125,6 @@ implementation
procedure trgcpu.do_spill_written(list:TAsmList;pos:tai;const spilltemp:treference;tempreg:tregister); procedure trgcpu.do_spill_written(list:TAsmList;pos:tai;const spilltemp:treference;tempreg:tregister);
var var
helpins : tai;
tmpref : treference; tmpref : treference;
helplist : TAsmList; helplist : TAsmList;
hreg : tregister; hreg : tregister;
@ -149,12 +149,12 @@ implementation
reference_reset_base(tmpref,hreg,0); reference_reset_base(tmpref,hreg,0);
tmpref.index:=spilltemp.base; tmpref.index:=spilltemp.base;
helpins:=spilling_create_store(tempreg,tmpref); helplist.concat(spilling_create_store(tempreg,tmpref));
helplist.concat(helpins);
if getregtype(tempreg)=R_INTREGISTER then if getregtype(tempreg)=R_INTREGISTER then
ungetregisterinline(helplist,hreg); ungetregisterinline(helplist,hreg);
list.insertlistafter(pos,helplist) list.insertlistafter(pos,helplist);
helplist.free;
end end
else else
inherited do_spill_written(list,pos,spilltemp,tempreg); inherited do_spill_written(list,pos,spilltemp,tempreg);