diff options
Diffstat (limited to 'gcc/ada/gnatvsn.ads')
-rw-r--r-- | gcc/ada/gnatvsn.ads | 28 |
1 files changed, 5 insertions, 23 deletions
diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads index 7c3c3f06ef6..b15c10c403f 100644 --- a/gcc/ada/gnatvsn.ads +++ b/gcc/ada/gnatvsn.ads @@ -28,24 +28,20 @@ -- covered by the GNU Public License. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- --- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ --- This package spec holds version information for GNAT, GNATBIND and --- GNATMAKE. It is updated whenever the release number is changed. +-- This package spec exports version information for GNAT, GNATBIND and +-- GNATMAKE. package Gnatvsn is - Gnat_Version_String : constant String := "3.3 20020822 (experimental)"; + 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). - -- - -- WARNING: some scripts rely on the format of this string. Any change - -- must be coordinated with a script maintainer. Furthermore, no - -- other variable in this package may have a name starting with - -- Gnat_Version_String. Gnat_Version_Type : constant String := "FSF "; -- This string is set to one of three values: @@ -57,20 +53,6 @@ package Gnatvsn is -- and the bug box generated by Comperr will give information on -- how to report bugs and list the "no warranty" information. -- - -- "GNATPRO" - -- GNAT Professional version. This version of GNAT is supported - -- by Ada Core Technologies. The binder will not output the - -- usual "no warranty" messages, and the bug box generated by - -- package Comperr will give instructions on bug submission - -- that include references to customer number, ftp site etc. - -- - -- "PUBLIC " - -- GNAT Public version. This is a public version of GNAT, released - -- by Ada Core Technologies and intended for educational use. - -- The binder will output informational messages, and the bug box - -- generated by the package Comperr will give appropriate bug - -- submission instructions that do not reference customer number etc. - -- -- These are the only allowable settings for this string Ver_Len_Max : constant := 32; |