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

The message scan_f_illegal_char seems to have gained additional parameters since it was

Browse Source 
introduced. Take that into account to avoid an access violation.

git-svn-id: trunk@22749 -
This commit is contained in:
svenbarth 2012-10-18 20:12:28 +00:00
parent 2ada9a528b
commit ca6ca31953
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/m68k/ra68kmot.pas
View File

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