diff options
| author | neroden <neroden@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-11-15 01:45:29 +0000 |
|---|---|---|
| committer | neroden <neroden@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-11-15 01:45:29 +0000 |
| commit | c87be58c4927111cb4ed51c87e7b86f8574539ad (patch) | |
| tree | c17bf3e2056b7d66f52f1a34206e30e55490ecd9 /gcc/ada/comperr.adb | |
| parent | 66bc87dbe1928c819d5bfcfd2562dda954237c54 (diff) | |
| download | gcc-c87be58c4927111cb4ed51c87e7b86f8574539ad.tar.gz | |
2002-11-14 Nathanael Nerode <neroden@gcc.gnu.org>
Closes PR ada/5856 and PR ada/6919 !
* bindgen.adb: Remove all references to Public_Version.
* comperr.adb: Remove all references to Public_Version and
GNATPRO_Version; correct bug reporting instructions.
* comperr.ads: Change to match bug box.
* gnatvsn.ads: Remove all references to Public version and
GNATPRO version.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@59115 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/comperr.adb')
| -rw-r--r-- | gcc/ada/comperr.adb | 58 |
1 files changed, 5 insertions, 53 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 8d3eb512169..71368e68fa7 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- -- --- 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- -- @@ -78,14 +78,7 @@ package body Comperr is -- The procedures below output a "bug box" with information about -- the cause of the compiler abort and about the preferred method -- of reporting bugs. The default is a bug box appropriate for - -- the FSF version of GNAT, but there are specializations for - -- the GNATPRO and Public releases by Ada Core Technologies. - - Public_Version : constant Boolean := Gnat_Version_Type = "PUBLIC "; - -- Set True for the public version of GNAT - - GNATPRO_Version : constant Boolean := Gnat_Version_Type = "GNATPRO"; - -- Set True for the GNATPRO version of GNAT + -- the FSF version of GNAT. procedure End_Line; -- Add blanks up to column 76, and then a final vertical bar @@ -265,31 +258,11 @@ package body Comperr is -- Otherwise we use the standard fixed text else - if Public_Version or GNATPRO_Version then - Write_Str - ("| Please submit bug report by email " & - "to report@gnat.com."); - End_Line; - - else - Write_Str - ("| Please submit bug report by email " & - "to gcc-bugs@gcc.gnu.org."); - End_Line; - end if; - Write_Str - ("| Use a subject line meaningful to you" & - " and us to track the bug."); + ("| Please submit a bug report; see" & + " http://gcc.gnu.org/bugs.html."); End_Line; - if GNATPRO_Version then - Write_Str - ("| (include your customer number #nnn " & - "in the subject line)."); - End_Line; - end if; - Write_Str ("| Include the entire contents of this bug " & "box in the report."); @@ -305,30 +278,9 @@ package body Comperr is End_Line; Write_Str - ("| (concatenated together with no headers between files)."); + ("| concatenated together with no headers between files."); End_Line; - if not GNATPRO_Version then - Write_Str - ("| (use plain ASCII or MIME attachment)."); - End_Line; - - Write_Str - ("| See gnatinfo.txt for full info on procedure " & - "for submitting bugs."); - End_Line; - - else - Write_Str - ("| (use plain ASCII or MIME attachment, or FTP " - & "to your customer directory)."); - End_Line; - - Write_Str - ("| See README.GNATPRO for full info on procedure " & - "for submitting bugs."); - End_Line; - end if; end if; end; |