Daily bump.

[pf3gnuchains/gcc-fork.git] / gcc / ada / gnatvsn.ads

diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads
index a6f27cd..f5fcb01 100644 (file)
--- a/gcc/ada/gnatvsn.ads
+++ b/gcc/ada/gnatvsn.ads
@@ -6,9 +6,8 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                            $Revision: 1.2068 $
 --                                                                          --
---          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2002 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -38,14 +37,41 @@
 
 package Gnatvsn is
 
-   Gnat_Version_String : constant String := "5.00w (20010924)";
+   Gnat_Version_String : constant String := "3.2 20020705 (experimental)";
    --  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 gnatmail scripts (at least make-bin and corcs) rely on
-   --  the format of this string. Any change must be coordinated with
-   --  a gnatmail maintainer.
+   --  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:
+   --
+   --    "FSF    "
+   --       GNAT FSF version. This version of GNAT is part of a Free Software
+   --       Foundation release of the GNU Compiler Collection (GCC). The binder
+   --       will not output informational messages regarding intended use.
+   --       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;
    --  Longest possible length for Gnat_Version_String in this or any
@@ -54,7 +80,7 @@ package Gnatvsn is
    --  value should never be decreased in the future, but it would be
    --  OK to increase it if absolutely necessary.
 
-   Library_Version : constant String := "GNAT Lib v3.15 ";
+   Library_Version : constant String := "GNAT Lib v3.15";
    --  Library version. This value must be updated whenever any change to the
    --  compiler affects the library formats in such a way as to obsolete
    --  previously compiled library modules.