diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-09 07:54:40 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-09 07:54:40 +0000 |
| commit | 134f52b9c4f45076efe6a3c345e6e01e95998cc1 (patch) | |
| tree | d36a6a4e5eaaf93560edebb716059d624b4a5735 /gcc/ada/sem_spark.adb | |
| parent | 0ce858310c2bba03fc030f34f4217cb405020bcf (diff) | |
| download | gcc-134f52b9c4f45076efe6a3c345e6e01e95998cc1.zip gcc-134f52b9c4f45076efe6a3c345e6e01e95998cc1.tar.gz gcc-134f52b9c4f45076efe6a3c345e6e01e95998cc1.tar.bz2 | |
[Ada] Minor reformatting
2019-07-09 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_ch9.adb, exp_util.adb, repinfo.adb, sem_ch12.adb,
sem_prag.adb, sem_res.adb, sem_spark.adb, sem_util.adb: Minor
reformatting.
From-SVN: r273282
Diffstat (limited to 'gcc/ada/sem_spark.adb')
| -rw-r--r-- | gcc/ada/sem_spark.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/sem_spark.adb b/gcc/ada/sem_spark.adb index bbd7279..70953b5 100644 --- a/gcc/ada/sem_spark.adb +++ b/gcc/ada/sem_spark.adb @@ -1612,7 +1612,7 @@ package body Sem_SPARK is Move_Expression_List (Expressions (Expr)); - -- Handle the named components next. + -- Handle the named components next while Present (Assoc) loop CL := Choices (Assoc); @@ -1636,8 +1636,9 @@ package body Sem_SPARK is if Is_Deep (Etype (Expression (Assoc))) and then not Is_Singleton_Choice (CL) then - Error_Msg_F ("singleton choice required" - & " to prevent aliasing", First (CL)); + Error_Msg_F + ("singleton choice required to prevent aliasing", + First (CL)); end if; -- The subexpressions of an aggregate are moved as part |