From c4075a15127d8abf6b3a40e5385f9eb0e2502c25 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 20 Aug 2008 13:58:12 +0000 Subject: [PATCH] Minor reforamatting. From-SVN: r139297 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gnatvsn.ads | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 21f4101..cce8405 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2008-08-20 Arnaud Charlet + * gnatvsn.ads: Minor reformatting. + +2008-08-20 Arnaud Charlet + * a-crbtgk.adb, repinfo.adb, g-traceb.ads, repinfo.ads, system-linux-s390x.ads, s-fatflt.ads, s-parame-ae653.ads, g-spipat.adb, g-spipat.ads, g-tasloc.adb, g-debpoo.adb, g-except.ads, g-debpoo.ads, diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads index 5307313..4067c98 100644 --- a/gcc/ada/gnatvsn.ads +++ b/gcc/ada/gnatvsn.ads @@ -36,15 +36,15 @@ package Gnatvsn is + Gnat_Static_Version_String : constant String := "GNU Ada"; + -- Static string identifying this version, that can be used as an argument + -- to e.g. pragma Ident. + function Gnat_Version_String return String; -- Version output when GNAT (compiler), or its related tools, including -- GNATBIND, GNATCHOP, GNATFIND, GNATLINK, GNATMAKE, GNATXREF, are run -- (with appropriate verbose option switch set). - Gnat_Static_Version_String : constant String := "GNU Ada"; - -- Static string identifying this version, that can be used as an argument - -- to e.g. pragma Ident. - type Gnat_Build_Type is (FSF, GPL); -- See Build_Type below for the meaning of these values. -- 2.7.4