[gcc r15-8444] Fix formatting of version message for gnat driver
Eric Botcazou
ebotcazou@gcc.gnu.org
Wed Mar 19 17:18:55 GMT 2025
https://gcc.gnu.org/g:b6953ec3e1ced56b190d95637b966762c09a13b4
commit r15-8444-gb6953ec3e1ced56b190d95637b966762c09a13b4
Author: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed Mar 19 18:15:29 2025 +0100
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.
Diff:
---
gcc/ada/gnatvsn.adb | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/gcc/ada/gnatvsn.adb b/gcc/ada/gnatvsn.adb
index 5b7b4fb1195c..58f8a1a2060a 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;
More information about the Gcc-cvs
mailing list