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

* actually, with lds/sts avrtiny can load addresses up to 191

Browse Source 
git-svn-id: trunk@44104 -
This commit is contained in:
florian 2020-02-02 20:41:28 +00:00
parent 36058ca4d4
commit 640fe9c290
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/avr/cgcpu.pas
View File

@ -2521,7 +2521,7 @@ unit cgcpu;
SrcQuickRef:=false;
DestQuickRef:=false;
if ((CPUAVR_16_REGS in cpu_capabilities[current_settings.cputype]) and
not((source.Base=NR_NO) and (source.Index=NR_NO) and (source.symbol=nil) and (source.Offset in [0..64-len]))) or
not((source.Base=NR_NO) and (source.Index=NR_NO) and (source.symbol=nil) and (source.Offset in [0..192-len]))) or
(
not((source.addressmode=AM_UNCHANGED) and
(source.symbol=nil) and
@ -2543,7 +2543,7 @@ unit cgcpu;
end;
if ((CPUAVR_16_REGS in cpu_capabilities[current_settings.cputype]) and
not((dest.Base=NR_NO) and (dest.Index=NR_NO) and (dest.symbol=nil) and (dest.Offset in [0..64-len]))) or
not((dest.Base=NR_NO) and (dest.Index=NR_NO) and (dest.symbol=nil) and (dest.Offset in [0..192-len]))) or
(
not((dest.addressmode=AM_UNCHANGED) and
(dest.symbol=nil) and