diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-07-31 09:37:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 11:37:12 +0200 |
| commit | 1fb63e89dfeff6b42792967c764df89d0ca1d8c6 (patch) | |
| tree | 1ba101c6fc76662edeaaf29a4db8af79dec2ade7 /gcc/ada/sem_ch13.adb | |
| parent | 2fe258bf9315fa25f620860f99462faa8ade3b68 (diff) | |
| download | gcc-1fb63e89dfeff6b42792967c764df89d0ca1d8c6.zip gcc-1fb63e89dfeff6b42792967c764df89d0ca1d8c6.tar.gz gcc-1fb63e89dfeff6b42792967c764df89d0ca1d8c6.tar.bz2 | |
exp_ch5.adb, [...]: Minor reformatting.
2014-07-31 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, sem_ch3.adb, exp_ch7.adb, exp_util.adb, exp_ch9.adb,
sem_ch7.adb, checks.adb, s-exctra.adb, exp_ch6.adb, exp_disp.adb,
exp_dist.adb, sem_ch13.adb, exp_strm.adb, exp_ch3.adb: Minor
reformatting.
From-SVN: r213325
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index bbbf712..2ae6ef9 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -169,10 +169,10 @@ package body Sem_Ch13 is Nam : TSS_Name_Type); -- Create a subprogram renaming of a given stream attribute to the -- designated subprogram and then in the tagged case, provide this as a - -- primitive operation, or in the non-tagged case make an appropriate TSS + -- primitive operation, or in the untagged case make an appropriate TSS -- entry. This is more properly an expansion activity than just semantics, - -- but the presence of user-defined stream functions for limited types is a - -- legality check, which is why this takes place here rather than in + -- but the presence of user-defined stream functions for limited types + -- is a legality check, which is why this takes place here rather than in -- exp_ch13, where it was previously. Nam indicates the name of the TSS -- function to be generated. -- @@ -11206,7 +11206,7 @@ package body Sem_Ch13 is return True; - -- Check for case of non-tagged derived type whose parent either has + -- Check for case of untagged derived type whose parent either has -- primitive operations, or is a by reference type (RM 13.1(10)). In -- this case we do not output a Too_Late message, since there is no -- earlier point where the rep item could be placed to make it legal. |