From: Arnaud Charlet Date: Fri, 22 May 2015 13:06:34 +0000 (+0000) Subject: gnatvsn.ads: Minor code reorg to remember more easily to update variables. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=84238eb02a86bb7b3c458b5914c849df82fa9aad;p=gcc.git gnatvsn.ads: Minor code reorg to remember more easily to update variables. * gnatvsn.ads: Minor code reorg to remember more easily to update variables. From-SVN: r223566 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 7482e0ccc5d..1b35fd8f91d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2015-05-22 Arnaud Charlet + + * gnatvsn.ads: Minor code reorg to remember more easily to update + variables. + 2015-05-22 Ed Schonberg * sem_ch10.adb (Analyze_With_Clause): In ASIS_Mode, a diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads index c6c5dc378ba..d3ac70a738f 100644 --- a/gcc/ada/gnatvsn.ads +++ b/gcc/ada/gnatvsn.ads @@ -38,6 +38,19 @@ package Gnatvsn is -- Static string identifying this version, that can be used as an argument -- to e.g. pragma Ident. + Library_Version : constant String := "6"; + -- Library version. It needs to be updated whenever the major or + -- minor version number is changed. + -- + -- Note: Makefile.in uses the library version string to construct the + -- soname value. + + Current_Year : constant String := "2015"; + -- Used in printing copyright messages + + Verbose_Library_Version : constant String := "GNAT Lib v" & Library_Version; + -- Version string stored in e.g. ALI files + function Gnat_Version_String return String; -- Version output when GNAT (compiler), or its related tools, including -- GNATBIND, GNATCHOP, GNATFIND, GNATLINK, GNATMAKE, GNATXREF, are run @@ -82,17 +95,4 @@ package Gnatvsn is -- Prefix generated by binder. If it is changed, be sure to change -- GNAT.Compiler_Version.Ver_Prefix as well. - Library_Version : constant String := "6"; - -- Library version. This value must be updated when the compiler - -- version number Gnat_Static_Version_String is updated. - -- - -- Note: Makefile.in uses the library version string to construct the - -- soname value. - - Verbose_Library_Version : constant String := "GNAT Lib v" & Library_Version; - -- Version string stored in e.g. ALI files - - Current_Year : constant String := "2015"; - -- Used in printing copyright messages - end Gnatvsn;