X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fgnatvsn.ads;h=d16f981ac4ec658a9bd29c10cf6349186e9fe234;hb=3519b107e5738996490ac79b6443ba74c1106e78;hp=8ece1042f806c3070917eb5b966e83f8e3a44e97;hpb=b1eae4a4bd7d5cb81b0082053227f67f40136772;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads index 8ece1042f80..d16f981ac4e 100644 --- a/gcc/ada/gnatvsn.ads +++ b/gcc/ada/gnatvsn.ads @@ -6,81 +6,78 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2009 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- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- --- MA 02111-1307, USA. -- +-- or FITNESS FOR A PARTICULAR PURPOSE. -- +-- -- +-- As a special exception under Section 7 of GPL version 3, you are granted -- +-- additional permissions described in the GCC Runtime Library Exception, -- +-- version 3.1, as published by the Free Software Foundation. -- -- -- --- As a special exception, if other files instantiate generics from this -- --- unit, or you link this unit with other files to produce an executable, -- --- this unit does not by itself cause the resulting executable to be -- --- covered by the GNU General Public License. This exception does not -- --- however invalidate any other reasons why the executable file might be -- --- covered by the GNU Public License. -- +-- You should have received a copy of the GNU General Public License and -- +-- a copy of the GCC Runtime Library Exception along with this program; -- +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- +-- . -- -- -- -- 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 20020913 (experimental)"; + 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). - -- - -- 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: + type Gnat_Build_Type is (FSF, GPL); + -- See Build_Type below for the meaning of these values. + + Build_Type : constant Gnat_Build_Type := FSF; + -- Kind of GNAT build: -- - -- "FSF " + -- 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. + -- Foundation release of the GNU Compiler Collection (GCC). The bug + -- box generated by Comperr gives information on how to report bugs + -- and list the "no warranty" information. -- - -- "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 + -- GPL + -- GNAT GPL Edition. This is a special version of GNAT, released by + -- Ada Core Technologies and intended for academic users, and free + -- software developers. The bug box generated by the package Comperr + -- gives appropriate bug submission instructions that do not reference + -- customer number etc. + + function Gnat_Free_Software return String; + -- Text to be displayed by the different GNAT tools when switch --version + -- is used. This text depends on the GNAT build type. + + function Copyright_Holder return String; + -- Return the name of the Copyright holder to be displayed by the different + -- GNAT tools when switch --version is used. - Ver_Len_Max : constant := 32; + Ver_Len_Max : constant := 64; -- Longest possible length for Gnat_Version_String in this or any -- other version of GNAT. This is used by the binder to establish -- space to store any possible version string value for checks. This -- 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 := "4.5"; -- 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. @@ -88,4 +85,10 @@ package Gnatvsn is -- Note: Makefile.in relies on the precise format of the library version -- string in order to correctly 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 := "2009"; + -- Used in printing copyright messages + end Gnatvsn;