Browse Source

m68k: fix references like <symbol>(An) to parse properly in the assembler reader

git-svn-id: trunk@47356 -
Károly Balogh 4 years ago
parent
commit
53928dc0ed
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/m68k/ra68kmot.pas

+ 2 - 0
compiler/m68k/ra68kmot.pas

@@ -1522,6 +1522,8 @@ const
                         end
                         end
                        else
                        else
                         begin
                         begin
+                          if actasmtoken = AS_LPAREN then
+                            oper.initref;
                           if not oper.SetupVar(expr,false) then
                           if not oper.SetupVar(expr,false) then
                             begin
                             begin
                               { not a variable, check special variables.. }
                               { not a variable, check special variables.. }