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