diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:41:46 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:41:46 +0000 |
| commit | d92885db43bc83b3ab33ade861813c88e0d786ca (patch) | |
| tree | c6f6dd10e9c3e6978354a61ce48fdb5c9e6a3be9 /gcc/ada/gnatvsn.ads | |
| parent | 887413106eb05d49c4a5155cc529c021a3f93145 (diff) | |
| download | gcc-d92885db43bc83b3ab33ade861813c88e0d786ca.tar.gz | |
2007-04-06 Arnaud Charlet <charlet@adacore.com>
Eric Botcazou <botcazou@adacore.com>
* gnatvsn.ads, comperr.adb (Get_Gnat_build_Type): Renamed Build_Type
and made constant.
* comperr.ads, comperr.adb (Compiler_Abort): Add third parameter
Fallback_Loc. Use it as the sloc info when Current_Error_Node doesn't
carry any.
* fe.h (Compiler_Abort): Add third parameter.
* misc.c (internal_error_function): Build third argument from current
input location and pass it to Compiler_Abort.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123610 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatvsn.ads')
| -rw-r--r-- | gcc/ada/gnatvsn.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/gnatvsn.ads b/gcc/ada/gnatvsn.ads index 009dbee1052..2cfa3b09146 100644 --- a/gcc/ada/gnatvsn.ads +++ b/gcc/ada/gnatvsn.ads @@ -46,10 +46,10 @@ package Gnatvsn is -- to e.g. pragma Ident. type Gnat_Build_Type is (FSF, GPL); - -- See Get_Gnat_Build_Type below for the meaning of these values. + -- See Build_Type below for the meaning of these values. - function Get_Gnat_Build_Type return Gnat_Build_Type; - -- This function returns one of the following values of Gnat_Build_Type: + Build_Type : constant Gnat_Build_Type := FSF; + -- Kind of GNAT build: -- -- FSF -- GNAT FSF version. This version of GNAT is part of a Free Software |