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

[Ada] Minor reformatting

Browse Source 
2018-05-30  Hristian Kirtchev  <kirtchev@adacore.com>

gcc/ada/

	* exp_aggr.adb, exp_unst.adb, freeze.adb, libgnat/a-direct.adb: Minor
	reformatting.

From-SVN: r260948
This commit is contained in:
Hristian Kirtchev 2018-05-30 08:58:51 +00:00 committed by Pierre-Marie de Rodat
parent e00ee732dd
commit 07fb1ef483
5 changed files with 30 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2018-05-30 Hristian Kirtchev <kirtchev@adacore.com>
* exp_aggr.adb, exp_unst.adb, freeze.adb, libgnat/a-direct.adb: Minor
reformatting.
2018-05-30 Ed Schonberg <schonberg@adacore.com>
* exp_unst.adb (Visit_Node): Handle the semantic Procedure_To_Call

2
gcc/ada/exp_aggr.adb
View File

@ -4738,7 +4738,7 @@ package body Exp_Aggr is
if Is_Packed (Etype (N))
or else
(Is_Record_Type (Component_Type (Etype (N)))
and then Has_Discriminants (Component_Type (Etype (N))))
and then Has_Discriminants (Component_Type (Etype (N))))
then
null;
else

12
gcc/ada/exp_unst.adb
View File

@ -720,8 +720,8 @@ package body Exp_Unst is
-- other calls.
when N_Allocator
| N_Free_Statement
| N_Extended_Return_Statement
| N_Free_Statement
| N_Simple_Return_Statement
=>
declare
@ -735,8 +735,8 @@ package body Exp_Unst is
end if;
end;
-- A 'Access reference is a (potential) call.
-- Other attributes require special handling.
-- A 'Access reference is a (potential) call. Other attributes
-- require special handling.
when N_Attribute_Reference =>
declare
@ -795,9 +795,9 @@ package body Exp_Unst is
end case;
end;
-- Component associations in aggregates are either static
-- or else the aggregate will be expanded into assignments,
-- in which case the expression is analyzed later and provides
-- Component associations in aggregates are either static or
-- else the aggregate will be expanded into assignments, in
-- which case the expression is analyzed later and provides
-- no relevant code generation.
when N_Component_Association =>

9
gcc/ada/freeze.adb
View File

@ -3447,12 +3447,11 @@ package body Freeze is
null;
else
Error_Msg_NE
("Thread_Local_Storage variable& is "
& "improperly initialized", Decl, E);
("Thread_Local_Storage variable& is improperly "
& "initialized", Decl, E);
Error_Msg_NE
("\only allowed initialization is explicit "
& "NULL, static expression or static aggregate",
Decl, E);
("\only allowed initialization is explicit NULL, "
& "static expression or static aggregate", Decl, E);
end if;
end if;
end;

25
gcc/ada/libgnat/a-direct.adb
View File

@ -1079,8 +1079,8 @@ package body Ada.Directories is
Test_File : Directory_Entry_Type;
function GNAT_name_case_equivalence return Interfaces.C.int;
pragma Import
(C, GNAT_name_case_equivalence, "__gnat_name_case_equivalence");
pragma Import (C, GNAT_name_case_equivalence,
"__gnat_name_case_equivalence");
begin
-- Check for the invalid case
@ -1101,10 +1101,11 @@ package body Ada.Directories is
-- fall through to a Status_Error where we then take the imprecise
-- default for the host OS.
Start_Search (Search => S,
Directory => To_String (Dir_Path),
Pattern => "",
Filter => (Directory => False, others => True));
Start_Search
(Search => S,
Directory => To_String (Dir_Path),
Pattern => "",
Filter => (Directory => False, others => True));
loop
Get_Next_Entry (S, Test_File);
@ -1112,7 +1113,7 @@ package body Ada.Directories is
-- Check if we have found a "caseable" file
exit when To_Lower (Simple_Name (Test_File)) /=
To_Upper (Simple_Name (Test_File));
To_Upper (Simple_Name (Test_File));
end loop;
End_Search (S);
@ -1160,6 +1161,7 @@ package body Ada.Directories is
return Case_Sensitive;
exception
when Status_Error =>
-- There is no unobtrusive way to check for the directory's casing so
-- return the OS default.
@ -1437,10 +1439,11 @@ package body Ada.Directories is
Case_Sensitive := False;
end if;
Pat := Compile
(Pattern,
Glob => True,
Case_Sensitive => Case_Sensitive);
Pat :=
Compile
(Pattern,
Glob => True,
Case_Sensitive => Case_Sensitive);
exception
when Error_In_Regexp =>
Free (Search.Value);