[Ada] Fix missing space in error message
On illegal code like: type T is new Positive in range 1..5; the compiler was emitting message: error: extra "in"ignored ^^ which lacked a space character. A tiny diagnostic improvement; spotted while mistakenly typing an illegal test. gcc/ada/ * par-util.adb (Ignore): Add missing space to message string.
This commit is contained in:
parent
da85f3f2c6
commit
d124654196
1 changed files with 1 additions and 1 deletions
|
@ -462,7 +462,7 @@ package body Util is
|
|||
declare
|
||||
Tname : constant String := Token_Type'Image (Token);
|
||||
begin
|
||||
Error_Msg_SC ("|extra " & Tname (5 .. Tname'Last) & "ignored");
|
||||
Error_Msg_SC ("|extra " & Tname (5 .. Tname'Last) & " ignored");
|
||||
end;
|
||||
end if;
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue