diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-04-08 09:49:01 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-16 09:07:16 -0400 |
| commit | 9d2e727e9a0de219f60b8f2f1221e88879f06116 (patch) | |
| tree | 1d3a1d0052992d8e3227239a16ed613c1b25a578 | |
| parent | 0951b918ca3d9a600f6732e985117520f203e501 (diff) | |
| download | gcc-9d2e727e9a0de219f60b8f2f1221e88879f06116.zip gcc-9d2e727e9a0de219f60b8f2f1221e88879f06116.tar.gz gcc-9d2e727e9a0de219f60b8f2f1221e88879f06116.tar.bz2 | |
[Ada] Couple of formatting and stylistic fixes
2020-06-16 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* freeze.adb (Freeze_Expression): Use consistent style and
formatting in a couple of cases.
| -rw-r--r-- | gcc/ada/freeze.adb | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 47a063a..0f6739f 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -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)); |