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

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

Browse Source 
git-svn-id: trunk@32819 -
This commit is contained in:
sergei 2016-01-01 10:49:38 +00:00
parent bdde398a98
commit b1ee3dd5e5
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/ra68kmot.pas
View File

@ -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 }