diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2022-05-03 14:13:13 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-06-01 08:43:20 +0000 |
commit | d12465419650114202b4f3e72838c2878db1b6b3 (patch) | |
tree | 2adcb22c8ffbc37b98ccab4091445e358de4d61c /gcc/ada/par-util.adb | |
parent | da85f3f2c696977c8b0864b650e9606e05a61c1f (diff) | |
download | gcc-d12465419650114202b4f3e72838c2878db1b6b3.zip gcc-d12465419650114202b4f3e72838c2878db1b6b3.tar.gz gcc-d12465419650114202b4f3e72838c2878db1b6b3.tar.bz2 |
[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.
Diffstat (limited to 'gcc/ada/par-util.adb')
-rw-r--r-- | gcc/ada/par-util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index 2eabc58..3f1247a 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -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; |