paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* clear r1 (and save/restore) in interrupt routines on avr

Browse Source 
+ generate no entry/exit code except ret for empty subroutines

git-svn-id: trunk@38233 -
This commit is contained in:
florian 2018-02-13 17:47:23 +00:00
parent 6c09394d35
commit 291ee4b562
1 changed files with 29 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/avr/cgcpu.pas
View File

@ -1876,6 +1876,8 @@ unit cgcpu;
regs : tcpuregisterset;
reg : tsuperregister;
begin
if current_procinfo.procdef.isempty then
exit;
if po_interrupt in current_procinfo.procdef.procoptions then
begin
{ check if the framepointer is actually used, this is done here because
@ -1898,12 +1900,17 @@ unit cgcpu;
if current_procinfo.framepointer<>NR_NO then
regs:=regs+[RS_R28,RS_R29];
{ we clear r1 }
include(regs,RS_R1);
regs:=regs+[RS_R0];
for reg:=RS_R31 downto RS_R0 do
if reg in regs then
list.concat(taicpu.op_reg(A_PUSH,newreg(R_INTREGISTER,reg,R_SUBWHOLE)));
list.concat(taicpu.op_reg(A_CLR,NR_R1));
{ Save SREG }
list.concat(taicpu.op_reg_const(A_IN, NR_R0, $3F));
list.concat(taicpu.op_reg(A_PUSH, NR_R0));
@ -1963,6 +1970,8 @@ unit cgcpu;
if po_noreturn in current_procinfo.procdef.procoptions then
exit;
if po_interrupt in current_procinfo.procdef.procoptions then
begin
if not(current_procinfo.procdef.isempty) then
begin
regs:=rg[R_INTREGISTER].used_in_proc;
if current_procinfo.framepointer<>NR_NO then
@ -1972,6 +1981,9 @@ unit cgcpu;
a_adjust_sp(list,LocalSize);
end;
{ we clear r1 }
include(regs,RS_R1);
{ Reload SREG }
regs:=regs+[RS_R0];
@ -1981,10 +1993,10 @@ unit cgcpu;
for reg:=RS_R0 to RS_R31 do
if reg in regs then
list.concat(taicpu.op_reg(A_POP,newreg(R_INTREGISTER,reg,R_SUBWHOLE)));
end;
list.concat(taicpu.op_none(A_RETI));
end
else if not(nostackframe) then
else if not(nostackframe) and not(current_procinfo.procdef.isempty) then
begin
regs:=rg[R_INTREGISTER].used_in_proc-paramanager.get_volatile_registers_int(pocall_stdcall);
if current_procinfo.framepointer<>NR_NO then