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

* AVR: couple of fixes for CPUs with only 16 registers

Browse Source 
git-svn-id: trunk@44177 -
(cherry picked from commit fc50edfe31)
This commit is contained in:
florian 2020-02-14 21:27:43 +00:00
parent 265783c4b5
commit 9872a8a57a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/avr/cpupara.pas
View File

@ -170,7 +170,7 @@ unit cpupara;
result:=not(def.size in [1,2,4]);
}
else
if (def.size > 8) then
if (def.size > 8) or ((CPUAVR_16_REGS in cpu_capabilities[current_settings.cputype]) and (def.size > 4)) then
result:=true
else
result:=inherited ret_in_param(def,pd);
@ -343,7 +343,8 @@ unit cpupara;
case loc of
LOC_REGISTER:
begin
if nextintreg>=RS_R8 then
if ((nextintreg>=RS_R8) and not(CPUAVR_16_REGS in cpu_capabilities[current_settings.cputype])) or
(nextintreg>=RS_R20) then
begin
paraloc^.loc:=LOC_REGISTER;
paraloc^.size:=OS_8;