diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-05 13:35:04 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-05 15:35:04 +0200 |
| commit | 9aff36e9f183e2f4590a9e03d79ee1e3d21724a2 (patch) | |
| tree | ceb05eff07864148731708854889873363c69eb4 /gcc/ada/sem_util.ads | |
| parent | 406935b64c887e2e7bb2882f4db5d2fa2e451b73 (diff) | |
| download | gcc-9aff36e9f183e2f4590a9e03d79ee1e3d21724a2.zip gcc-9aff36e9f183e2f4590a9e03d79ee1e3d21724a2.tar.gz gcc-9aff36e9f183e2f4590a9e03d79ee1e3d21724a2.tar.bz2 | |
exp_ch7.ads, [...]: Minor reformatting.
2011-08-05 Robert Dewar <dewar@adacore.com>
* exp_ch7.ads, sem_type.adb, make.adb, sem_prag.adb, sem_util.adb,
sem_util.ads, sem_attr.adb, restrict.ads, sem_ch6.adb, prj-conf.adb,
prj-conf.ads, s-atocou.ads, s-atocou.adb, s-atocou-x86.adb,
s-atocou-builtin.adb: Minor reformatting.
From-SVN: r177433
Diffstat (limited to 'gcc/ada/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index ae04cc4..1b9babd 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -25,14 +25,14 @@ -- Package containing utility procedures used throughout the semantics -with Einfo; use Einfo; +with Einfo; use Einfo; with Exp_Tss; use Exp_Tss; -with Namet; use Namet; -with Nmake; use Nmake; -with Snames; use Snames; -with Types; use Types; -with Uintp; use Uintp; -with Urealp; use Urealp; +with Namet; use Namet; +with Nmake; use Nmake; +with Snames; use Snames; +with Types; use Types; +with Uintp; use Uintp; +with Urealp; use Urealp; package Sem_Util is @@ -1379,10 +1379,11 @@ package Sem_Util is -- Return the accessibility level of Typ function Type_Without_Stream_Operation - (T : Entity_Id; Op : TSS_Name_Type := TSS_Null) return Entity_Id; - -- AI05-0161 : if the restriction No_Default_Stream_Attributes is active - -- then we cannot generate stream subprograms for composite types with - -- elementary subcomponents that lack user-defined stream subprograms. + (T : Entity_Id; + Op : TSS_Name_Type := TSS_Null) return Entity_Id; + -- AI05-0161: In Ada 2012, if the restriction No_Default_Stream_Attributes + -- is active then we cannot generate stream subprograms for composite types + -- with elementary subcomponents that lack user-defined stream subprograms. -- This predicate determines whether a type has such an elementary -- subcomponent. If Op is TSS_Null, a type that lacks either Read or Write -- prevents the construction of a composite stream operation. If Op is |