Browse Source

The message scan_f_illegal_char seems to have gained additional parameters since it was
introduced. Take that into account to avoid an access violation.

git-svn-id: trunk@22749 -

svenbarth 12 years ago
parent
commit
ca6ca31953
1 changed files with 3 additions and 1 deletions
  1. 3 1
      compiler/m68k/ra68kmot.pas

+ 3 - 1
compiler/m68k/ra68kmot.pas

@@ -221,6 +221,7 @@ const
   var
   var
    token: tasmtoken;
    token: tasmtoken;
    forcelabel: boolean;
    forcelabel: boolean;
+   s : string;
   begin
   begin
     forcelabel := FALSE;
     forcelabel := FALSE;
     actasmpattern :='';
     actasmpattern :='';
@@ -504,7 +505,8 @@ const
                            end;
                            end;
             else
             else
              begin
              begin
-               Message(scan_f_illegal_char);
+               s:=c;
+               Message2(scan_f_illegal_char,s,'$'+hexstr(ord(c),2));
              end;
              end;
 
 
       end; { end case }
       end; { end case }