paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 16:58:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Christo Crause: combine code paths for avr1 and avrtiny when converting lds/sts to in/out, resolves #36697

Browse Source 
git-svn-id: trunk@44163 -
(cherry picked from commit fd4fb5fa19)
This commit is contained in:
florian 2020-02-12 20:43:13 +00:00
parent 32e17c5114
commit b65e3288aa
1 changed files with 24 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
compiler/avr/aasmcpu.pas
View File

@ -509,61 +509,33 @@ implementation
end;
A_STS:
begin
{ certain cpu types do not support some instructions, so replace them }
case current_settings.cputype of
cpu_avr1:
begin
with taicpu(curtai).oper[0]^ do
if (ref^.base=NR_NO) and (ref^.index=NR_NO) and (ref^.symbol=nil) and (ref^.offset<$40) then
begin
taicpu(curtai).opcode:=A_OUT;
taicpu(curtai).loadconst(0,ref^.offset);
end
else
begin
remove_instruction;
result:=false;
end;
end;
cpu_avrtiny:
begin
with taicpu(curtai).oper[0]^ do
if (ref^.base=NR_NO) and (ref^.index=NR_NO) and (ref^.symbol=nil) and (ref^.offset<$40) then
begin
taicpu(curtai).opcode:=A_OUT;
taicpu(curtai).loadconst(0,ref^.offset);
end;
end;
end;
if current_settings.cputype in [cpu_avrtiny, cpu_avr1] then
with taicpu(curtai).oper[0]^ do
if (ref^.base=NR_NO) and (ref^.index=NR_NO) and (ref^.symbol=nil) and (ref^.offset<$40) then
begin
taicpu(curtai).opcode:=A_OUT;
taicpu(curtai).loadconst(0,ref^.offset);
end
else if current_settings.cputype=cpu_avr1 then
begin
remove_instruction;
result:=false;
end;
end;
A_LDS:
begin
{ certain cpu types do not support some instructions, so replace them }
case current_settings.cputype of
cpu_avr1:
begin
with taicpu(curtai).oper[1]^ do
if (ref^.base=NR_NO) and (ref^.index=NR_NO) and (ref^.symbol=nil) and (ref^.offset<$40) then
begin
taicpu(curtai).opcode:=A_IN;
taicpu(curtai).loadconst(1,ref^.offset)
end
else
begin
remove_instruction;
result:=false;
end;
end;
cpu_avrtiny:
begin
with taicpu(curtai).oper[1]^ do
if (ref^.base=NR_NO) and (ref^.index=NR_NO) and (ref^.symbol=nil) and (ref^.offset<$40) then
begin
taicpu(curtai).opcode:=A_IN;
taicpu(curtai).loadconst(1,ref^.offset)
end;
end;
end;
if current_settings.cputype in [cpu_avrtiny, cpu_avr1] then
with taicpu(curtai).oper[1]^ do
if (ref^.base=NR_NO) and (ref^.index=NR_NO) and (ref^.symbol=nil) and (ref^.offset<$40) then
begin
taicpu(curtai).opcode:=A_IN;
taicpu(curtai).loadconst(1,ref^.offset)
end
else if current_settings.cputype=cpu_avr1 then
begin
remove_instruction;
result:=false;
end;
end;
A_SBIW,
A_MULS,