paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 05:10:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only freetemp when there were registers saved

Browse Source 
git-svn-id: trunk@8531 -
This commit is contained in:
peter 2007-09-17 20:52:51 +00:00
parent 2f044481ae
commit 58e9fc0368
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cgobj.pas
View File

@ -3618,11 +3618,13 @@ implementation
procedure tcg.g_restore_standard_registers(list:TAsmList);
var
href : treference;
r : integer;
hreg : tregister;
href : treference;
r : integer;
hreg : tregister;
freetemp : boolean;
begin
{ Copy registers from temp }
freetemp:=false;
href:=current_procinfo.save_regs_ref;
for r:=low(saved_standard_registers) to high(saved_standard_registers) do
if saved_standard_registers[r] in rg[R_INTREGISTER].used_in_proc then
@ -3632,8 +3634,10 @@ implementation
a_reg_alloc(list,hreg);
a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,hreg);
inc(href.offset,sizeof(aint));
freetemp:=true;
end;
tg.UnGetTemp(list,current_procinfo.save_regs_ref);
if freetemp then
tg.UnGetTemp(list,current_procinfo.save_regs_ref);
end;