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

* patch by Christo Crause to resolve #33098: AVR - LDS assembler instruction with absolute address gives compiler error

Browse Source 
git-svn-id: trunk@38082 -
This commit is contained in:
florian 2018-01-30 20:22:42 +00:00
parent 064e7f391e
commit 10516f21f8
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -15967,6 +15967,7 @@ tests/webtbs/tw33004.pp svneol=native#text/pascal
tests/webtbs/tw3301.pp svneol=native#text/plain
tests/webtbs/tw33086.pp svneol=native#text/pascal
tests/webtbs/tw3309.pp svneol=native#text/plain
tests/webtbs/tw33098.pp svneol=native#text/pascal
tests/webtbs/tw3320.pp svneol=native#text/plain
tests/webtbs/tw3324.pp svneol=native#text/plain
tests/webtbs/tw3327.pp svneol=native#text/plain

3
compiler/avr/raavrgas.pas
View File

@ -373,7 +373,8 @@ Unit raavrgas;
oper.opr.ref.offset:=BuildConstExpression(True,False);
{ absolute memory addresss? }
if (actopcode in [A_LDS,A_STS]) and (actasmtoken<>AS_COMMA) then
if ((actopcode = A_LDS) and (actasmtoken <> AS_SEPARATOR)) or
((actopcode = A_STS) and (actasmtoken <> AS_COMMA)) then
begin
if not(MaybeBuildReference) then
Message(asmr_e_invalid_reference_syntax);

9
tests/webtbs/tw33098.pp Normal file
View File

@ -0,0 +1,9 @@
{ %cpu=avr }
{ %norun }
begin
asm
lds r20, 100
end;
end.