Browse Source

m68k: fix the assembler reader to bail out earlier on a failed parsing of a constant expression

Karoly Balogh 1 year ago
parent
commit
53e7006d56
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/m68k/ra68kmot.pas

+ 1 - 0
compiler/m68k/ra68kmot.pas

@@ -982,6 +982,7 @@ const
       else
       else
         begin
         begin
           Message(asmr_e_syntax_error);
           Message(asmr_e_syntax_error);
+          Consume(actasmtoken);
         end;
         end;
       end; { end case }
       end; { end case }
     until actasmtoken = AS_SEPARATOR;
     until actasmtoken = AS_SEPARATOR;