* for avr1, do not save registers during an interrupt procedure, as it has no memory to store them

git-svn-id: trunk@44139 -
(cherry picked from commit 2135b9b724)

# Conflicts:
#	compiler/msg/errore.msg
#	compiler/msgidx.inc
#	compiler/msgtxt.inc

compiler/avr/aasmcpu.pas

@@ -409,6 +409,7 @@ implementation
           i: Integer;
           hp: tai;
         begin
+          exit;
           taicpu(firstinstruction).opcode:=A_SLEEP;
           for i:=0 to taicpu(firstinstruction).opercnt-1 do
             taicpu(firstinstruction).freeop(i);

compiler/avr/cgcpu.pas

@@ -2229,15 +2229,20 @@ unit cgcpu;
 
             regs:=regs+[getsupreg(GetDefaultTmpReg)];
 
+            if current_settings.cputype=cpu_avr1 then
+              message1(cg_w_interrupt_does_not_save_registers,current_procinfo.procdef.fullprocname(false))
+            else
+              begin
                 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)));
-
                 { Save SREG }
                 cg.getcpuregister(list,GetDefaultTmpReg);
                 list.concat(taicpu.op_reg_const(A_IN, GetDefaultTmpReg, $3F));
                 list.concat(taicpu.op_reg(A_PUSH, GetDefaultTmpReg));
                 cg.ungetcpuregister(list,GetDefaultTmpReg);
+              end;
+
 
             list.concat(taicpu.op_reg(A_CLR,GetDefaultZeroReg));
 
@@ -2315,9 +2320,12 @@ unit cgcpu;
                 { we clear r1 }
                 include(regs,getsupreg(GetDefaultZeroReg));
 
+                if current_settings.cputype<>cpu_avr1 then
+                  begin
                     { Reload SREG }
                     regs:=regs+[getsupreg(GetDefaultTmpReg)];
 
+
                     cg.getcpuregister(list,GetDefaultTmpReg);
                     list.concat(taicpu.op_reg(A_POP, GetDefaultTmpReg));
                     list.concat(taicpu.op_const_reg(A_OUT, $3F, GetDefaultTmpReg));
@@ -2327,6 +2335,7 @@ unit cgcpu;
                       if reg in regs then
                         list.concat(taicpu.op_reg(A_POP,newreg(R_INTREGISTER,reg,R_SUBWHOLE)));
                   end;
+              end;
             list.concat(taicpu.op_none(A_RETI));
           end
         else if not(nostackframe) and not(current_procinfo.procdef.isempty) then

compiler/msg/errore.msg

@@ -2366,7 +2366,7 @@ sym_e_type_must_be_rec_or_object=05098_E_Record or object type expected
 #
 # Codegenerator
 #
-# 06049 is the last used one
+# 06062 is the last used one
 #
 % \section{Code generator messages}
 % This section lists all messages that can be displayed if the code
@@ -2530,6 +2530,10 @@ cg_w_cannot_compile_subroutine=06061_W_The current subroutine "$1" cannot be com
 % Some processors have a very limited instruction set so some routines cannot be compiled for them. As it is not always
 % clear from the beginning if a subroutine can be compiled for a certain CPU or not, the compiler checks afterwards
 % and creates a dummy if it cannot compile the subroutine.
+cg_w_interrupt_does_not_save_registers=06062_W_The target CPU does not support preserving the registers in subroutine "$1"
+% Certain processors have no memory (e.~g. avr1 family), so they do not support storing/restoring the used registers
+% in an interrupt routine. The programmer has to ensure that while there is a chance for the interrupt routine being
+% called that no other code depending on registers being preserved is executed.
 %
 % \end{description}
 # EndOfTeX

compiler/msgidx.inc

@@ -701,6 +701,7 @@ const
   cg_e_case_missing_value=06059;
   cg_w_case_incomplete=06060;
   cg_w_cannot_compile_subroutine=06061;
+  cg_w_interrupt_does_not_save_registers=06062;
   asmr_d_start_reading=07000;
   asmr_d_finish_reading=07001;
   asmr_e_none_label_contain_at=07002;
@@ -1112,9 +1113,9 @@ const
   option_info=11024;
   option_help_pages=11025;
 
-  MsgTxtSize = 83275;
+  MsgTxtSize = 83359;
 
   MsgIdxMax : array[1..20] of longint=(
-    28,106,350,127,99,62,142,34,221,67,
+    28,106,350,127,99,63,142,34,221,67,
     63,20,30,1,1,1,1,1,1,1
   );