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 21f4101be48a..cce8405b289c 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2008-08-20 Arnaud Charlet + + * gnatvsn.ads: Minor reformatting. + 2008-08-20 Arnaud Charlet * a-crbtgk.adb, repinfo.adb, g-traceb.ads, repinfo.ads, diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads index 530731330e0c..4067c983949f 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.47.2