mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-31 15:31:11 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2009-04-10  Vincent Celier  <celier@adacore.com>

	* prj-nmsc.adb (Check_Naming_Schemes): Initialize local variable Casing
	to avoid gcc warning.

2009-04-10  Robert Dewar  <dewar@adacore.com>

	* g-comlin.adb: Add ??? comment

2009-04-10  Ed Schonberg  <schonberg@adacore.com>

	* sem_warn.adb (Check_Unused_Withs): Do not emit message about
	unreferenced entities for a package with no visible declarations.

2009-04-10  Robert Dewar  <dewar@adacore.com>

	* exp_ch9.adb: Minor reformatting

From-SVN: r145886
This commit is contained in:
Arnaud Charlet 2009-04-10 12:35:01 +02:00
parent be21e9d8c7
commit 2844b33046
5 changed files with 92 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gcc/ada/ChangeLog
View File

@ -1,3 +1,21 @@
2009-04-10 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Check_Naming_Schemes): Initialize local variable Casing
to avoid gcc warning.
2009-04-10 Robert Dewar <dewar@adacore.com>
* g-comlin.adb: Add ??? comment
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* sem_warn.adb (Check_Unused_Withs): Do not emit message about
unreferenced entities for a package with no visible declarations.
2009-04-10 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb: Minor reformatting
2009-04-10 Thomas Quinot <quinot@adacore.com>
* sem_prag.adb: Minor reformatting

27
gcc/ada/exp_ch9.adb
View File

@ -738,22 +738,25 @@ package body Exp_Ch9 is
-- At the end of the statement sequence, Complete_Rendezvous is called.
-- A label skipping the Complete_Rendezvous, and all other accept
-- processing, has already been added for the expansion of requeue
-- statements.
-- statements. The Sloc is copied from the last statement since it
-- is really part of this last statement.
Call := Build_Runtime_Call (Sloc (Last (Statements (Stats))),
RE_Complete_Rendezvous);
Call :=
Build_Runtime_Call
(Sloc (Last (Statements (Stats))), RE_Complete_Rendezvous);
Insert_Before (Last (Statements (Stats)), Call);
Analyze (Call);
-- If exception handlers are present, then append Complete_Rendezvous
-- calls to the handlers, and construct the required outer block.
-- calls to the handlers, and construct the required outer block. As
-- above, the Sloc is copied from the last statement in the sequence.
if Present (Exception_Handlers (Stats)) then
Hand := First (Exception_Handlers (Stats));
while Present (Hand) loop
Call := Build_Runtime_Call (Sloc (Last (Statements (Hand))),
RE_Complete_Rendezvous);
Call :=
Build_Runtime_Call
(Sloc (Last (Statements (Hand))), RE_Complete_Rendezvous);
Append (Call, Statements (Hand));
Analyze (Call);
Next (Hand);
@ -11996,11 +11999,11 @@ package body Exp_Ch9 is
-- side effects.
Append_To (Args,
New_Copy_Tree (
Expression (First (
Pragma_Argument_Associations (
Find_Task_Or_Protected_Pragma
(Tdef, Name_Task_Name))))));
New_Copy_Tree
(Expression (First
(Pragma_Argument_Associations
(Find_Task_Or_Protected_Pragma
(Tdef, Name_Task_Name))))));
else
Append_To (Args, Make_Identifier (Loc, Name_uTask_Name));

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

@ -92,8 +92,9 @@ package body GNAT.Command_Line is
Index_In_Switches : out Integer;
Switch_Length : out Integer;
Param : out Switch_Parameter_Type);
-- return the Longest switch from Switches that matches at least
-- partially Arg. Index_In_Switches is set to 0 if none matches
-- Return the Longest switch from Switches that at least partially
-- partially Arg. Index_In_Switches is set to 0 if none matches.
-- What are other parameters??? in particular Param is not always set???
procedure Unchecked_Free is new Ada.Unchecked_Deallocation
(Argument_List, Argument_List_Access);

14
gcc/ada/prj-nmsc.adb
View File

@ -3280,7 +3280,7 @@ package body Prj.Nmsc is
-- value in the language config.
declare
Dot_Repl : constant Variable_Value :=
Dot_Repl : constant Variable_Value :=
Util.Value_Of
(Name_Dot_Replacement,
Naming.Decl.Attributes, In_Tree);
@ -3291,17 +3291,21 @@ package body Prj.Nmsc is
(Name_Casing,
Naming.Decl.Attributes,
In_Tree);
Casing : Casing_Type;
Casing_Defined : Boolean := False;
Casing : Casing_Type := All_Lower_Case;
-- Casing type (junk initialization to stop bad gcc warning)
Casing_Defined : Boolean := False;
Sep_Suffix : constant Variable_Value :=
Prj.Util.Value_Of
(Variable_Name => Name_Separate_Suffix,
In_Variables => Naming.Decl.Attributes,
In_Tree => In_Tree);
Separate_Suffix : File_Name_Type := No_File;
Lang_Id : Language_Index;
Separate_Suffix : File_Name_Type := No_File;
Lang_Id : Language_Index;
begin
-- Check attribute Dot_Replacement

48
gcc/ada/sem_warn.adb
View File

@ -1887,6 +1887,11 @@ package body Sem_Warn is
-- warn that the context clause could be moved to the body, because
-- the renaming may be intended to re-export the unit.
function Has_Visible_Entities (P : Entity_Id) return Boolean;
-- If a package has no declared entities, inhibit warning because
-- there is nothing to be referenced. The package may be in the
-- context just in order to carry a linker pragma for example.
-------------------------
-- Check_Inner_Package --
-------------------------
@ -2011,6 +2016,47 @@ package body Sem_Warn is
return Empty;
end Find_Package_Renaming;
--------------------------
-- Has_Visible_Entities --
--------------------------
function Has_Visible_Entities (P : Entity_Id) return Boolean is
E : Entity_Id;
begin
-- If unit in context is not a package, it is a subprogram that
-- is not called or a generic unit that is not instantiated
-- in the current unit, and warning is appropriate.
if Ekind (P) /= E_Package then
return True;
end if;
-- If unit comes from a limited_with clause, look for declaration
-- of shadow entities.
if Present (Limited_View (P)) then
E := First_Entity (Limited_View (P));
else
E := First_Entity (P);
end if;
while Present (E)
and then E /= First_Private_Entity (P)
loop
if Comes_From_Source (E)
or else Present (Limited_View (P))
then
return True;
end if;
Next_Entity (E);
end loop;
return False;
end Has_Visible_Entities;
-- Start of processing for Check_One_Unit
begin
@ -2066,7 +2112,7 @@ package body Sem_Warn is
-- Otherwise simple unreferenced message
else
elsif Has_Visible_Entities (Entity (Name (Item))) then
Error_Msg_N
("?unit& is not referenced!", Name (Item));
end if;