diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2025-03-19 18:15:29 +0100 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2025-03-19 18:18:28 +0100 |
| commit | b6953ec3e1ced56b190d95637b966762c09a13b4 (patch) | |
| tree | 831f6fe3e7d5b340feaacc8e7721f1e85d2b3b7e /gcc | |
| parent | abfdab9c7dd6c60641b203bf247bb1b8a1f218ec (diff) | |
| download | gcc-b6953ec3e1ced56b190d95637b966762c09a13b4.zip gcc-b6953ec3e1ced56b190d95637b966762c09a13b4.tar.gz gcc-b6953ec3e1ced56b190d95637b966762c09a13b4.tar.bz2 | |
Fix formatting of version message for gnat driver
Like the main driver (as well as gccgo, gccrs, gcov, etc) the gnat driver
prints the standard version message in response to the --version switch,
but it is not properly formatted.
gcc/ada
* gnatvsn.adb (Gnat_Free_Software): Fix message formatting.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gnatvsn.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/gnatvsn.adb b/gcc/ada/gnatvsn.adb index 5b7b4fb..58f8a1a 100644 --- a/gcc/ada/gnatvsn.adb +++ b/gcc/ada/gnatvsn.adb @@ -41,10 +41,11 @@ package body Gnatvsn is function Gnat_Free_Software return String is begin return - "This is free software; see the source for copying conditions." & + "This is free software; see the source for copying conditions. " & + "There is NO" & ASCII.LF & - "There is NO warranty; not even for MERCHANTABILITY or FITNESS" & - " FOR A PARTICULAR PURPOSE."; + "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR " & + "PURPOSE."; end Gnat_Free_Software; type char_array is array (Natural range <>) of aliased Character; |