* bindgen.adb (Public_Version_Warning): Remove.
* gnatvsn.ads : Change to match GCC 3.1 version.
* comperr.adb : Change bug box, remove ACT-specific circuitry.
* comperr.ads : Update comments to reflect changed bug message.
From-SVN: r53011
+2002-05-01 Geert Bosch <bosch@gnat.com>
+
+ * bindgen.adb (Public_Version_Warning): Remove.
+
+ * gnatvsn.ads : Change to match GCC 3.1 version.
+
+ * comperr.adb : Change bug box, remove ACT-specific circuitry.
+
+ * comperr.ads : Update comments to reflect changed bug message.
+
2002-04-21 Joseph S. Myers <jsm28@cam.ac.uk>
* gnat_rm.texi: Use @ifnottex instead of @ifinfo.
-- --
-- B o d y --
-- --
--- $Revision$
+-- $Revision: 1.5 $
-- --
--- 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- --
procedure Move_Linker_Option (From : Natural; To : Natural);
-- Move routine for sorting linker options
- procedure Public_Version_Warning;
- -- Emit a warning concerning the use of the Public version under
- -- certain circumstances. See details in body.
-
procedure Set_Char (C : Character);
-- Set given character in Statement_Buffer at the Last + 1 position
-- and increment Last by one to reflect the stored character.
procedure Gen_Output_File (Filename : String) is
- function Public_Version return Boolean;
- -- Return true if the version number contains a 'p'
-
- function Public_Version return Boolean is
- begin
- for J in Gnat_Version_String'Range loop
- if Gnat_Version_String (J) = 'p' then
- return True;
- end if;
- end loop;
-
- return False;
- end Public_Version;
-
-- Start of processing for Gen_Output_File
begin
end if;
end loop;
- -- Get the time stamp of the former bind for public version warning
-
- if Public_Version then
- Record_Time_From_Last_Bind;
- end if;
-
-- Generate output file in appropriate language
if Ada_Bind_File then
Gen_Output_File_C (Filename);
end if;
- -- Periodically issue a warning when the public version is used on
- -- big projects
-
- if Public_Version then
- Public_Version_Warning;
- end if;
end Gen_Output_File;
-------------------------
Linker_Options.Table (To) := Linker_Options.Table (From);
end Move_Linker_Option;
- ----------------------------
- -- Public_Version_Warning --
- ----------------------------
-
- procedure Public_Version_Warning is
-
- Time : Int := Time_From_Last_Bind;
-
- -- Constants to help defining periods
-
- Hour : constant := 60;
- Day : constant := 24 * Hour;
-
- Never : constant := Integer'Last;
- -- Special value indicating no warnings should be given
-
- -- Constants defining when the warning is issued. Programs with more
- -- than Large Units will issue a warning every Period_Large amount of
- -- time. Smaller programs will generate a warning every Period_Small
- -- amount of time.
-
- Large : constant := 20;
- -- Threshold for considering a program small or large
-
- Period_Large : constant := Day;
- -- Periodic warning time for large programs
-
- Period_Small : constant := Never;
- -- Periodic warning time for small programs
-
- Nb_Unit : Int;
-
- begin
- -- Compute the number of units that are not GNAT internal files
-
- Nb_Unit := 0;
- for A in ALIs.First .. ALIs.Last loop
- if not Is_Internal_File_Name (ALIs.Table (A).Sfile) then
- Nb_Unit := Nb_Unit + 1;
- end if;
- end loop;
-
- -- Do not emit the message if the last message was emitted in the
- -- specified period taking into account the number of units.
-
- if Nb_Unit < Large and then Time <= Period_Small then
- return;
-
- elsif Time <= Period_Large then
- return;
- end if;
-
- Write_Eol;
- Write_Str ("IMPORTANT NOTICE:");
- Write_Eol;
- Write_Str (" This version of GNAT is unsupported"
- & " and comes with absolutely no warranty.");
- Write_Eol;
- Write_Str (" If you intend to evaluate or use GNAT for building "
- & "commercial applications,");
- Write_Eol;
- Write_Str (" please consult http://www.gnat.com/ for information");
- Write_Eol;
- Write_Str (" on the GNAT Professional product line.");
- Write_Eol;
- Write_Eol;
- end Public_Version_Warning;
-
----------------------------
-- Resolve_Binder_Options --
----------------------------
-- --
-- B o d y --
-- --
--- $Revision: 1.2 $
+-- $Revision: 1.3 $
-- --
--- 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- --
Write_Eol;
end End_Line;
- Public_Version : constant Boolean := (Gnat_Version_String (5) = 'p');
-
-- Start of processing for Compiler_Abort
begin
else
Write_Str
- ("| Please submit bug report by email to report@gnat.com.");
+ ("| Please submit bug a report, see" &
+ " http://gcc.gnu.org/bugs.html.");
End_Line;
- if not Public_Version then
- Write_Str
- ("| Use a subject line meaningful to you" &
- " and us to track the bug.");
- End_Line;
-
- 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.");
("| (concatenated together with no headers between files).");
End_Line;
- if Public_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;
-- --
-- S p e c --
-- --
--- $Revision: 1.18 $
+-- $Revision: 1.1 $
-- --
--- Copyright (C) 1992-2000 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- --
-- When comperr generates the "bug box". The first two lines contain
-- information on the version number, type of abort, and source location.
- -- Normally the remaining text is one of the following two forms
- -- depending on the version number (p identifies public versions):
-
- -- Please submit bug report by email to report@gnat.com.
- -- Use a subject line meaningful to you and us to track the bug.
- -- (include your customer number #nnn in the subject line).
- -- Include the entire contents of this bug box in the report.
- -- Include the exact gcc or gnatmake command that you entered.
- -- Also include sources listed below in gnatchop format
- -- (concatenated together with no headers between files).
- -- (use plain ASCII or MIME attachment,
- -- or FTP to your customer directory).
- -- See README.GNATPRO for full info on procedure for submitting bugs.
-
- -- or (public version case)
-
- -- Please submit bug report by email to report@gnat.com.
- -- Use a subject line meaningful to you and us to track the bug.
- -- (include your customer number #nnn in the subject line).
+ -- Normally the remaining text is of the following form:
+ -- Please submit bug a report, see http://gcc.gnu.org/bugs.html.
-- Include the entire contents of this bug box in the report.
-- Include the exact gcc or gnatmake command that you entered.
-- Also include sources listed below in gnatchop format
- -- (concatenated together with no headers between files).
- -- See gnatinfo.txt for full info on procedure for submitting bugs.
+ -- concatenated together with no headers between files.
-- However, an alternative mechanism exists for easily substituting
-- different text for this message. Compiler_Abort checks for the
-- --
-- S p e c --
-- --
--- $Revision$
+-- $Revision: 1.2 $
-- --
--- 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- --
package Gnatvsn is
- Gnat_Version_String : constant String := "5.00w (20010924)";
+ Gnat_Version_String : constant String := "3.1 (20020501)";
-- Version output when GNAT (compiler), or its related tools, including
-- GNATBIND, GNATCHOP, GNATFIND, GNATLINK, GNATMAKE, GNATXREF, are run
-- (with appropriate verbose option switch set).
projects / thirdparty / gcc.git / commitdiff
