paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 05:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: fixed parsing of absolute addresses in the assembler reader

Browse Source 
git-svn-id: trunk@47418 -
This commit is contained in:
Károly Balogh 2020-11-15 03:43:26 +00:00
parent 1635d04b7b
commit a82a587a1b
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/m68k/ra68kmot.pas
View File

@ -1148,10 +1148,17 @@ const
end;
else
begin
if actasmtoken in [AS_COMMA,AS_SEPARATOR] then
begin
{ no longer in an expression }
if not ErrorFlag then
BuildRefExpression := CalculateExpression(expr);
exit;
end;
{ write error only once. }
if not errorflag then
Message(asmr_e_invalid_constant_expression);
if actasmtoken in [AS_COMMA,AS_SEPARATOR] then exit;
{ consume tokens until we find COMMA or SEPARATOR }
errorflag := true;
end;
@ -1421,7 +1428,7 @@ const
Message(asmr_e_invalid_operand_type);
{ identifiers are handled by BuildExpression }
oper.opr.typ := OPR_CONSTANT;
l:=BuildExpression(true,@tempstr);
l:=BuildExpression(true,@tempstr);
oper.opr.val :=aint(l);
if tempstr<>'' then
begin
@ -1432,13 +1439,13 @@ const
end;
end;
{ // Constant memory offset . // }
{ // This must absolutely be followed by ( // }
AS_HEXNUM,AS_INTNUM,
AS_BINNUM,AS_OCTALNUM,AS_PLUS:
begin
Oper.InitRef;
oper.opr.ref.offset:=BuildRefExpression;
BuildReference(oper);
if actasmtoken = AS_LPAREN then
BuildReference(oper);
end;
{ // A constant expression, or a Variable ref. // }
AS_ID: begin