[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:
parent
9acd1a9c23
commit
81eb625cc8
|
@ -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>
|
2010-10-12 Arnaud Charlet <charlet@adacore.com>
|
||||||
|
|
||||||
* g-comlin.adb (Foreach_Switch): Make this procedure generic to avoid
|
* g-comlin.adb (Foreach_Switch): Make this procedure generic to avoid
|
||||||
using 'Access.
|
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>
|
2010-10-12 Robert Dewar <dewar@adacore.com>
|
||||||
|
|
||||||
* debug.adb: Add comment.
|
* debug.adb: Add comment.
|
||||||
|
|
|
@ -698,7 +698,8 @@ package body Debug is
|
||||||
|
|
||||||
-- df Only output file names, not path names, in log
|
-- 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
|
-- dn Do not delete temporary files created by gnatmake at the end
|
||||||
-- of execution, such as temporary config pragma files, mapping
|
-- of execution, such as temporary config pragma files, mapping
|
||||||
|
|
|
@ -1599,7 +1599,8 @@ package body GNAT.Command_Line is
|
||||||
Add_Switch (Cmd, Sw, Parameter (Parser));
|
Add_Switch (Cmd, Sw, Parameter (Parser));
|
||||||
else
|
else
|
||||||
Add_Switch
|
Add_Switch
|
||||||
(Cmd, Sw, Parameter (Parser), Section.all);
|
(Cmd, Sw, Parameter (Parser),
|
||||||
|
Section => Section.all);
|
||||||
end if;
|
end if;
|
||||||
end if;
|
end if;
|
||||||
end;
|
end;
|
||||||
|
@ -2052,13 +2053,15 @@ package body GNAT.Command_Line is
|
||||||
(Cmd : in out Command_Line;
|
(Cmd : in out Command_Line;
|
||||||
Switch : String;
|
Switch : String;
|
||||||
Parameter : String := "";
|
Parameter : String := "";
|
||||||
|
Separator : Character := ' ';
|
||||||
Section : String := "";
|
Section : String := "";
|
||||||
Add_Before : Boolean := False)
|
Add_Before : Boolean := False)
|
||||||
is
|
is
|
||||||
Success : Boolean;
|
Success : Boolean;
|
||||||
pragma Unreferenced (Success);
|
pragma Unreferenced (Success);
|
||||||
begin
|
begin
|
||||||
Add_Switch (Cmd, Switch, Parameter, Section, Add_Before, Success);
|
Add_Switch (Cmd, Switch, Parameter, Separator,
|
||||||
|
Section, Add_Before, Success);
|
||||||
end Add_Switch;
|
end Add_Switch;
|
||||||
|
|
||||||
----------------
|
----------------
|
||||||
|
@ -2069,10 +2072,13 @@ package body GNAT.Command_Line is
|
||||||
(Cmd : in out Command_Line;
|
(Cmd : in out Command_Line;
|
||||||
Switch : String;
|
Switch : String;
|
||||||
Parameter : String := "";
|
Parameter : String := "";
|
||||||
|
Separator : Character := ' ';
|
||||||
Section : String := "";
|
Section : String := "";
|
||||||
Add_Before : Boolean := False;
|
Add_Before : Boolean := False;
|
||||||
Success : out Boolean)
|
Success : out Boolean)
|
||||||
is
|
is
|
||||||
|
pragma Unreferenced (Separator); -- ??? Should be removed eventually
|
||||||
|
|
||||||
procedure Add_Simple_Switch
|
procedure Add_Simple_Switch
|
||||||
(Simple : String;
|
(Simple : String;
|
||||||
Separator : String;
|
Separator : String;
|
||||||
|
|
|
@ -799,6 +799,7 @@ package GNAT.Command_Line is
|
||||||
(Cmd : in out Command_Line;
|
(Cmd : in out Command_Line;
|
||||||
Switch : String;
|
Switch : String;
|
||||||
Parameter : String := "";
|
Parameter : String := "";
|
||||||
|
Separator : Character := ' ';
|
||||||
Section : String := "";
|
Section : String := "";
|
||||||
Add_Before : Boolean := False);
|
Add_Before : Boolean := False);
|
||||||
-- Add a new switch to the command line, and combine/group it with existing
|
-- 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
|
-- added if not already present. For example, to add the -g switch into the
|
||||||
-- -cargs section, you need to call (Cmd, "-g", Section => "-cargs").
|
-- -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
|
-- Invalid_Section is raised if Section was not defined in the
|
||||||
-- configuration of the command line.
|
-- configuration of the command line.
|
||||||
--
|
--
|
||||||
|
@ -835,6 +839,7 @@ package GNAT.Command_Line is
|
||||||
(Cmd : in out Command_Line;
|
(Cmd : in out Command_Line;
|
||||||
Switch : String;
|
Switch : String;
|
||||||
Parameter : String := "";
|
Parameter : String := "";
|
||||||
|
Separator : Character := ' ';
|
||||||
Section : String := "";
|
Section : String := "";
|
||||||
Add_Before : Boolean := False;
|
Add_Before : Boolean := False;
|
||||||
Success : out Boolean);
|
Success : out Boolean);
|
||||||
|
|
|
@ -863,10 +863,18 @@ begin
|
||||||
Write_Str (" (missing subunits)");
|
Write_Str (" (missing subunits)");
|
||||||
Write_Eol;
|
Write_Eol;
|
||||||
|
|
||||||
|
-- Force generation of ALI file, for backward compatibility
|
||||||
|
|
||||||
|
Opt.Force_ALI_Tree_File := True;
|
||||||
|
|
||||||
elsif Main_Kind = N_Subunit then
|
elsif Main_Kind = N_Subunit then
|
||||||
Write_Str (" (subunit)");
|
Write_Str (" (subunit)");
|
||||||
Write_Eol;
|
Write_Eol;
|
||||||
|
|
||||||
|
-- Force generation of ALI file, for backward compatibility
|
||||||
|
|
||||||
|
Opt.Force_ALI_Tree_File := True;
|
||||||
|
|
||||||
elsif Main_Kind = N_Subprogram_Declaration then
|
elsif Main_Kind = N_Subprogram_Declaration then
|
||||||
Write_Str (" (subprogram spec)");
|
Write_Str (" (subprogram spec)");
|
||||||
Write_Eol;
|
Write_Eol;
|
||||||
|
@ -877,6 +885,10 @@ begin
|
||||||
Write_Str (" (predefined generic)");
|
Write_Str (" (predefined generic)");
|
||||||
Write_Eol;
|
Write_Eol;
|
||||||
|
|
||||||
|
-- Force generation of ALI file, for backward compatibility
|
||||||
|
|
||||||
|
Opt.Force_ALI_Tree_File := True;
|
||||||
|
|
||||||
-- Only other case is a package spec
|
-- Only other case is a package spec
|
||||||
|
|
||||||
else
|
else
|
||||||
|
@ -893,7 +905,14 @@ begin
|
||||||
Errout.Output_Messages;
|
Errout.Output_Messages;
|
||||||
Treepr.Tree_Dump;
|
Treepr.Tree_Dump;
|
||||||
Tree_Gen;
|
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;
|
Namet.Finalize;
|
||||||
Check_Rep_Info;
|
Check_Rep_Info;
|
||||||
|
|
||||||
|
|
|
@ -501,7 +501,7 @@ package body Impunit is
|
||||||
-- Ada 2012 Units --
|
-- 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 := (
|
Non_Imp_File_Names_12 : constant File_List := (
|
||||||
0 => "s-multip"); -- System.Mutiprocessors
|
0 => "s-multip"); -- System.Mutiprocessors
|
||||||
|
|
|
@ -810,6 +810,7 @@ package body Ch9 is
|
||||||
-- [OVERRIDING_INDICATOR]
|
-- [OVERRIDING_INDICATOR]
|
||||||
-- entry DEFINING_IDENTIFIER [(DISCRETE_SUBTYPE_DEFINITION)]
|
-- entry DEFINING_IDENTIFIER [(DISCRETE_SUBTYPE_DEFINITION)]
|
||||||
-- PARAMETER_PROFILE;
|
-- PARAMETER_PROFILE;
|
||||||
|
-- [ASPECT_SPECIFICATIONS];
|
||||||
|
|
||||||
-- The caller has checked that the initial token is ENTRY, NOT or
|
-- The caller has checked that the initial token is ENTRY, NOT or
|
||||||
-- OVERRIDING.
|
-- OVERRIDING.
|
||||||
|
|
|
@ -194,11 +194,11 @@ package body Sem_Ch9 is
|
||||||
return;
|
return;
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
-- In order to process the parameters, we create a defining
|
-- In order to process the parameters, we create a defining identifier
|
||||||
-- identifier that can be used as the name of the scope. The
|
-- that can be used as the name of the scope. The name of the accept
|
||||||
-- name of the accept statement itself is not a defining identifier,
|
-- statement itself is not a defining identifier, and we cannot use
|
||||||
-- and we cannot use its name directly because the task may have
|
-- its name directly because the task may have any number of accept
|
||||||
-- any number of accept statements for the same entry.
|
-- statements for the same entry.
|
||||||
|
|
||||||
if Present (Index) then
|
if Present (Index) then
|
||||||
Accept_Id := New_Internal_Entity
|
Accept_Id := New_Internal_Entity
|
||||||
|
@ -277,7 +277,6 @@ package body Sem_Ch9 is
|
||||||
if Entry_Nam = Scope_Stack.Table (J).Entity then
|
if Entry_Nam = Scope_Stack.Table (J).Entity then
|
||||||
Error_Msg_N ("duplicate accept statement for same entry", N);
|
Error_Msg_N ("duplicate accept statement for same entry", N);
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
declare
|
declare
|
||||||
|
|
|
@ -31,9 +31,7 @@ with Prj; use Prj;
|
||||||
with Prj.Env; use Prj.Env;
|
with Prj.Env; use Prj.Env;
|
||||||
with Table;
|
with Table;
|
||||||
|
|
||||||
pragma Warnings (Off, "*is an Ada 2012 unit");
|
|
||||||
with System.Multiprocessors; use System.Multiprocessors;
|
with System.Multiprocessors; use System.Multiprocessors;
|
||||||
pragma Warnings (On, "*is an Ada 2012 unit");
|
|
||||||
|
|
||||||
package body Switch.M is
|
package body Switch.M is
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue