paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 06:02:07 +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);
helplist.concat(helpins);
list.insertlistafter(pos,helplist)
list.insertlistafter(pos,helplist);
helplist.free;
end
else
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);
var
helpins : tai;
tmpref : treference;
helplist : TAsmList;
hreg : tregister;
@ -149,12 +149,12 @@ implementation
reference_reset_base(tmpref,hreg,0);
tmpref.index:=spilltemp.base;
helpins:=spilling_create_store(tempreg,tmpref);
helplist.concat(helpins);
helplist.concat(spilling_create_store(tempreg,tmpref));
if getregtype(tempreg)=R_INTREGISTER then
ungetregisterinline(helplist,hreg);
list.insertlistafter(pos,helplist)
list.insertlistafter(pos,helplist);
helplist.free;
end
else
inherited do_spill_written(list,pos,spilltemp,tempreg);