2
0
Эх сурвалжийг харах

* m68k assembler reader: call tscannerfile.illegal_char instead of reimplementing it.

git-svn-id: trunk@32819 -
sergei 9 жил өмнө
parent
commit
b1ee3dd5e5

+ 1 - 5
compiler/m68k/ra68kmot.pas

@@ -237,7 +237,6 @@ const
   var
    token: tasmtoken;
    forcelabel: boolean;
-   s : string;
   begin
     forcelabel := FALSE;
     actasmpattern :='';
@@ -525,10 +524,7 @@ const
                             actasmtoken:=AS_SEPARATOR;
                            end;
             else
-             begin
-               s:=c;
-               Message2(scan_f_illegal_char,s,'$'+hexstr(ord(c),2));
-             end;
+             current_scanner.illegal_char(c);
 
       end; { end case }
     end; { end else if }