diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:43:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:43:24 +0000 |
| commit | 5e8a2a99d4a054068ff5ba4e6d9192e7c88546b6 (patch) | |
| tree | cc56ad2870547da06116c5f927b552a16d94614f /gcc/ada/comperr.adb | |
| parent | 63740d1a0b295bd19f3e92ee45b817cc932b5c4a (diff) | |
| download | gcc-5e8a2a99d4a054068ff5ba4e6d9192e7c88546b6.tar.gz | |
* ug_words, gnat_ugn.texi: Added alpha-ivms transitioning section to
porting guide chapter (vms version).
Revised doc title (removed "for native platforms") and subtitle.
Add discussion on warning flag for obsolescent features. First we
note that it applies to obsolete GNAT features, which was previously
omitted. Second we contrast the behavior with that of the new
Ada 2005 AI-368 restriction No_Obsolescent_Features.
Preliminary rewriting of GNAT & libraries chapter in order to take
into account default project locations & new project manager
capabilities.
* cstand.adb (Create_Operators): Clean up format and documentation of
unary and binary operator result tables. No change in code, just
reformatting and addition of comments.
* errout.ads, gnatfind.adb, s-maccod.ads, sem.adb,
sem_ch2.adb: Minor reformatting
* atree.ads, elists.ads, lib.ads, namet.ads, nlists.ads, repinfo.ads,
sinput.ads, stringt.ads, uintp.ads, urealp.ads: Minor clarification to
comments for Tree_Read and Tree_Write.
* exp_attr.ads: Minor reformatting.
* comperr.adb (Compiler_Abort): Add specialized message for GAP
versions.
* exp_pakd.adb (Create_Packed_Array_Type): Add a guard to check
whether the ancestor type is private, as may be the case with nested
instantiations.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92852 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/comperr.adb')
| -rw-r--r-- | gcc/ada/comperr.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 69302f77171..17258902df2 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004 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- -- @@ -95,6 +95,7 @@ package body Comperr is Is_Public_Version : constant Boolean := Get_Gnat_Build_Type = Public; Is_FSF_Version : constant Boolean := Get_Gnat_Build_Type = FSF; + Is_GAP_Version : constant Boolean := Get_Gnat_Build_Type = GAP; -- Start of processing for Compiler_Abort @@ -314,6 +315,16 @@ package body Comperr is "for submitting bugs."); End_Line; + elsif Is_GAP_Version then + Write_Str + ("| (use plain ASCII or MIME attachment, or FTP " + & "to your GAP account.)."); + End_Line; + + Write_Str + ("| Please use your GAP account to report this."); + End_Line; + elsif not Is_FSF_Version then Write_Str ("| (use plain ASCII or MIME attachment, or FTP " |