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

+ some reference handling fixes

Browse Source 
git-svn-id: branches/z80@44806 -
This commit is contained in:
nickysn 2020-04-18 23:32:39 +00:00
parent 47bfe41766
commit a512b0cc99
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/z80/raz80asm.pas
View File

@ -1487,9 +1487,9 @@ Unit raz80asm;
cse_in_flags: tconstsymbolexpressioninputflags;
cse_out_flags: tconstsymbolexpressionoutputflags;
begin
if actasmtoken=AS_LBRACKET then
if actasmtoken=AS_LPAREN then
begin
Consume(AS_LBRACKET);
Consume(AS_LPAREN);
BracketlessReference:=false;
end
else
@ -1893,28 +1893,28 @@ Unit raz80asm;
GotStar:=(prevasmtoken=AS_STAR);
end;
AS_LBRACKET :
begin
if (GotPlus and Negative) or GotStar then
Message(asmr_e_invalid_reference_syntax);
tmpoper:=Tz80Operand.create;
BuildReference(tmpoper);
AddReferences(oper,tmpoper);
tmpoper.Free;
GotPlus:=false;
GotStar:=false;
end;
//AS_LBRACKET :
// begin
// if (GotPlus and Negative) or GotStar then
// Message(asmr_e_invalid_reference_syntax);
// tmpoper:=Tz80Operand.create;
// BuildReference(tmpoper);
// AddReferences(oper,tmpoper);
// tmpoper.Free;
// GotPlus:=false;
// GotStar:=false;
// end;
AS_RBRACKET :
AS_RPAREN :
begin
if GotPlus or GotStar or BracketlessReference then
Message(asmr_e_invalid_reference_syntax);
Consume(AS_RBRACKET);
Consume(AS_RPAREN);
if actasmtoken=AS_LBRACKET then
if actasmtoken=AS_LPAREN then
begin
tmpoper:=Tz80Operand.create;
BuildReference(tmpoper);