paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 09:11:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* AVR: for avr1 lds/sts must be converted to in/out as well if possible

Browse Source 
git-svn-id: trunk@44138 -
This commit is contained in:
florian 2020-02-09 13:55:25 +00:00
parent 5498835ad8
commit 84cfa8d9b0
1 changed files with 53 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
compiler/avr/aasmcpu.pas
View File

@ -508,33 +508,61 @@ implementation
end;
A_STS:
begin
if current_settings.cputype=cpu_avr1 then
begin
remove_instruction;
result:=false;
end
else if current_settings.cputype=cpu_avrtiny 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;
{ 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;
end;
A_LDS:
begin
if current_settings.cputype=cpu_avr1 then
begin
remove_instruction;
result:=false;
end
else if current_settings.cputype=cpu_avrtiny 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;
{ 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;
end;
A_SBIW,
A_MULS,
@ -548,6 +576,7 @@ implementation
A_POP,
A_PUSH:
begin
{ certain cpu types do not support some instructions, so replace them }
if current_settings.cputype=cpu_avr1 then
begin
remove_instruction;