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

Allow correct parsing of ld [%g1 + %l7], %g1

Browse Source 
git-svn-id: trunk@22473 -
This commit is contained in:
pierre 2012-09-27 15:35:44 +00:00
parent 934980ec62
commit fbd5d13b9f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/sparc/racpugas.pas
View File

@ -130,9 +130,9 @@ Interface
Consume(AS_LBRACKET);
repeat
Case actasmtoken of
AS_PLUS,
AS_INTNUM,
AS_MINUS,
AS_PLUS:
AS_MINUS:
Begin
if hasimm or (regs>1) then
Begin
@ -140,8 +140,13 @@ Interface
RecoverConsume(true);
break;
End;
oper.opr.Ref.Offset:=BuildConstExpression(false,true);
hasimm:=true;
if actasmtoken=AS_PLUS then
Consume(AS_PLUS);
if (actasmtoken=AS_INTNUM) then
begin
oper.opr.Ref.Offset:=BuildConstExpression(false,true);
hasimm:=true;
end;
End;
AS_REGISTER: