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

[Ada] Couple of formatting and stylistic fixes

Browse Source 
2020-06-16  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* freeze.adb (Freeze_Expression): Use consistent style and
	formatting in a couple of cases.
This commit is contained in:
Eric Botcazou 2020-04-08 09:49:01 +02:00 committed by Pierre-Marie de Rodat
parent 0951b918ca
commit 9d2e727e9a
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/freeze.adb
View File

@ -7624,11 +7624,8 @@ package body Freeze is
-- case of array types.
when N_Expression_With_Actions =>
if Is_List_Member (P)
and then List_Containing (P) = Actions (Parent_P)
then
exit;
end if;
exit when Is_List_Member (P)
and then List_Containing (P) = Actions (Parent_P);
-- N_Loop_Statement is a special case: a type that appears in
-- the source can never be frozen in a loop (this occurs only
@ -7641,7 +7638,8 @@ package body Freeze is
when N_Loop_Statement
| N_If_Expression
| N_Case_Expression =>
| N_Case_Expression
=>
exit when not Comes_From_Source (Etype (N))
and then (No (Nam) or else not Comes_From_Source (Nam));