diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-21 12:47:50 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-21 12:47:50 +0200 |
| commit | cc68dfe2e83fcbdedba5e627e15045ed43f12655 (patch) | |
| tree | 6bb53643f72daadf61e9c440a12bb4beb6f1cd4c /gcc/ada/sem_ch5.adb | |
| parent | 4f2cae4a92d1135ededcecdffd84e1c4c394b083 (diff) | |
| download | gcc-cc68dfe2e83fcbdedba5e627e15045ed43f12655.zip gcc-cc68dfe2e83fcbdedba5e627e15045ed43f12655.tar.gz gcc-cc68dfe2e83fcbdedba5e627e15045ed43f12655.tar.bz2 | |
Minor reformatting.
From-SVN: r223476
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 34cc18e..eb74243 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -2139,7 +2139,6 @@ package body Sem_Ch5 is begin if Iter_Kind = N_Selected_Component then Obj := Prefix (Original_Node (Iter_Name)); - elsif Iter_Kind = N_Function_Call then Obj := First_Actual (Original_Node (Iter_Name)); end if; @@ -2148,8 +2147,8 @@ package body Sem_Ch5 is and then Is_Dependent_Component_Of_Mutable_Object (Obj) then Error_Msg_N - ("container cannot be a discriminant-dependent " & - "component of a mutable object", N); + ("container cannot be a discriminant-dependent " + & "component of a mutable object", N); end if; end; end if; |