OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes] 

2010-10-12  Emmanuel Briot  <briot@adacore.com>

	* g-comlin.adb, g-comlin.ads (Define_Switch): Put back (unused)
	parameter Separator for backward compatibility.

2010-10-12  Robert Dewar  <dewar@adacore.com>

	* sem_ch9.adb, par-ch9.adb, impunit.adb: Minor reformatting.

2010-10-12  Emmanuel Briot  <briot@adacore.com>

	* switch-m.adb: Remove pragma Warnings (Off), not needed.

2010-10-12  Vincent Celier  <celier@adacore.com>

	* debug.adb: Put detailed documentation for gnatmake switch -dm.

2010-10-12  Vincent Celier  <celier@adacore.com>

	* gnat1drv.adb: When the compiler is invoked for a spec that needs aw
	body, do not generate an ALI file if neither -gnatc nor -gnatQ is used.

From-SVN: r165375
This commit is contained in:
Arnaud Charlet 2010-10-12 15:05:11 +02:00
parent 9acd1a9c23
commit 81eb625cc8
9 changed files with 60 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gcc/ada/ChangeLog
View File

@ -1,12 +1,26 @@
2010-10-12 Emmanuel Briot <briot@adacore.com>
* g-comlin.adb, g-comlin.ads (Define_Switch): Put back (unused)
parameter Separator for backward compatibility.
2010-10-12 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb, par-ch9.adb, impunit.adb: Minor reformatting.
2010-10-12 Vincent Celier <celier@adacore.com>
* debug.adb: Put detailed documentation for gnatmake switch -dm.
2010-10-12 Vincent Celier <celier@adacore.com>
* gnat1drv.adb: When the compiler is invoked for a spec that needs aw
body, do not generate an ALI file if neither -gnatc nor -gnatQ is used.
2010-10-12 Arnaud Charlet <charlet@adacore.com>
* g-comlin.adb (Foreach_Switch): Make this procedure generic to avoid
using 'Access.
2010-10-12 Emmanuel Briot <briot@adacore.com>
* switch-m.adb: Allow building even in -gnat05 mode.
2010-10-12 Robert Dewar <dewar@adacore.com>
* debug.adb: Add comment.

3
gcc/ada/debug.adb
View File

@ -698,7 +698,8 @@ package body Debug is
-- df Only output file names, not path names, in log
-- dm Needs documentation ???
-- dm Issue a message indicating the maximum number of simultaneous
-- compilations.
-- dn Do not delete temporary files created by gnatmake at the end
-- of execution, such as temporary config pragma files, mapping

10
gcc/ada/g-comlin.adb
View File

@ -1599,7 +1599,8 @@ package body GNAT.Command_Line is
Add_Switch (Cmd, Sw, Parameter (Parser));
else
Add_Switch
(Cmd, Sw, Parameter (Parser), Section.all);
(Cmd, Sw, Parameter (Parser),
Section => Section.all);
end if;
end if;
end;
@ -2052,13 +2053,15 @@ package body GNAT.Command_Line is
(Cmd : in out Command_Line;
Switch : String;
Parameter : String := "";
Separator : Character := ' ';
Section : String := "";
Add_Before : Boolean := False)
is
Success : Boolean;
pragma Unreferenced (Success);
begin
Add_Switch (Cmd, Switch, Parameter, Section, Add_Before, Success);
Add_Switch (Cmd, Switch, Parameter, Separator,
Section, Add_Before, Success);
end Add_Switch;
----------------
@ -2069,10 +2072,13 @@ package body GNAT.Command_Line is
(Cmd : in out Command_Line;
Switch : String;
Parameter : String := "";
Separator : Character := ' ';
Section : String := "";
Add_Before : Boolean := False;
Success : out Boolean)
is
pragma Unreferenced (Separator); -- ??? Should be removed eventually
procedure Add_Simple_Switch
(Simple : String;
Separator : String;

5
gcc/ada/g-comlin.ads
View File

@ -799,6 +799,7 @@ package GNAT.Command_Line is
(Cmd : in out Command_Line;
Switch : String;
Parameter : String := "";
Separator : Character := ' ';
Section : String := "";
Add_Before : Boolean := False);
-- Add a new switch to the command line, and combine/group it with existing
@ -825,6 +826,9 @@ package GNAT.Command_Line is
-- added if not already present. For example, to add the -g switch into the
-- -cargs section, you need to call (Cmd, "-g", Section => "-cargs").
--
-- [Separator] is ignored, and kept for backward compatibility only.
-- ??? It might be removed in future versions.
--
-- Invalid_Section is raised if Section was not defined in the
-- configuration of the command line.
--
@ -835,6 +839,7 @@ package GNAT.Command_Line is
(Cmd : in out Command_Line;
Switch : String;
Parameter : String := "";
Separator : Character := ' ';
Section : String := "";
Add_Before : Boolean := False;
Success : out Boolean);

21
gcc/ada/gnat1drv.adb
View File

@ -863,10 +863,18 @@ begin
Write_Str (" (missing subunits)");
Write_Eol;
-- Force generation of ALI file, for backward compatibility
Opt.Force_ALI_Tree_File := True;
elsif Main_Kind = N_Subunit then
Write_Str (" (subunit)");
Write_Eol;
-- Force generation of ALI file, for backward compatibility
Opt.Force_ALI_Tree_File := True;
elsif Main_Kind = N_Subprogram_Declaration then
Write_Str (" (subprogram spec)");
Write_Eol;
@ -877,6 +885,10 @@ begin
Write_Str (" (predefined generic)");
Write_Eol;
-- Force generation of ALI file, for backward compatibility
Opt.Force_ALI_Tree_File := True;
-- Only other case is a package spec
else
@ -893,7 +905,14 @@ begin
Errout.Output_Messages;
Treepr.Tree_Dump;
Tree_Gen;
Write_ALI (Object => False);
-- Generate ALI file if specially requested, or for missing subunits,
-- subunits or predefined generic.
if Opt.Force_ALI_Tree_File then
Write_ALI (Object => False);
end if;
Namet.Finalize;
Check_Rep_Info;

2
gcc/ada/impunit.adb
View File

@ -501,7 +501,7 @@ package body Impunit is
-- Ada 2012 Units --
--------------------
-- The following units should be used only in Ada 05 mode
-- The following units should be used only in Ada 2012 mode
Non_Imp_File_Names_12 : constant File_List := (
0 => "s-multip"); -- System.Mutiprocessors

1
gcc/ada/par-ch9.adb
View File

@ -810,6 +810,7 @@ package body Ch9 is
-- [OVERRIDING_INDICATOR]
-- entry DEFINING_IDENTIFIER [(DISCRETE_SUBTYPE_DEFINITION)]
-- PARAMETER_PROFILE;
-- [ASPECT_SPECIFICATIONS];
-- The caller has checked that the initial token is ENTRY, NOT or
-- OVERRIDING.

11
gcc/ada/sem_ch9.adb
View File

@ -194,11 +194,11 @@ package body Sem_Ch9 is
return;
end if;
-- In order to process the parameters, we create a defining
-- identifier that can be used as the name of the scope. The
-- name of the accept statement itself is not a defining identifier,
-- and we cannot use its name directly because the task may have
-- any number of accept statements for the same entry.
-- In order to process the parameters, we create a defining identifier
-- that can be used as the name of the scope. The name of the accept
-- statement itself is not a defining identifier, and we cannot use
-- its name directly because the task may have any number of accept
-- statements for the same entry.
if Present (Index) then
Accept_Id := New_Internal_Entity
@ -277,7 +277,6 @@ package body Sem_Ch9 is
if Entry_Nam = Scope_Stack.Table (J).Entity then
Error_Msg_N ("duplicate accept statement for same entry", N);
end if;
end loop;
declare

2
gcc/ada/switch-m.adb
View File

@ -31,9 +31,7 @@ with Prj; use Prj;
with Prj.Env; use Prj.Env;
with Table;
pragma Warnings (Off, "*is an Ada 2012 unit");
with System.Multiprocessors; use System.Multiprocessors;
pragma Warnings (On, "*is an Ada 2012 unit");
package body Switch.M is