diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-26 08:08:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-26 08:08:03 +0000 |
| commit | 8dbe2c06f03a68c3cfd40284fc7b0e76626c17df (patch) | |
| tree | 529415daf1214f9cb6bb79ad644b75095121f187 /gcc/ada/sem_util.adb | |
| parent | bbd127e81478d9dc688833397005312b34bbe1c6 (diff) | |
| download | gcc-8dbe2c06f03a68c3cfd40284fc7b0e76626c17df.tar.gz | |
2015-05-26 Gary Dismukes <dismukes@adacore.com>
* einfo.ads, sem_util.adb, sem_ch4.adb: Minor reformatting.
2015-05-26 Robert Dewar <dewar@adacore.com>
* exp_unst.adb, exp_unst.ads: Change to using Subps table index for
making AREC entity names unique.
2015-05-26 Ed Schonberg <schonberg@adacore.com>
* sem_cat.adb (Has_Stream_Attribute_Definition): If the type
has aspect specifications, examine the corresponding list of
representation items to determine whether there is a visible
stream operation. The attribute definition clause generated from
the aspect will be inserted at the freeze point of the type,
which may be in the private part and not directly visible,
but the aspect makes the operation available to a client.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223663 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index b823d8006d1..57ec05c5698 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -2119,10 +2119,10 @@ package body Sem_Util is then return Skip; - -- For now we skip aggregate discriminants since they require + -- For now we skip aggregate discriminants, since they require -- performing the analysis in two phases to identify conflicts: -- first one analyzing discriminants and second one analyzing - -- the rest of components (since at runtime discriminants are + -- the rest of components (since at run time, discriminants are -- evaluated prior to components): too much computation cost -- to identify a corner case??? @@ -2191,8 +2191,8 @@ package body Sem_Util is -- Report the error on the second occurrence of the -- identifier. We cannot assume that N is the second - -- occurrence since traverse_func walks through Field2 - -- last (see comment in the body of traverse_func). + -- occurrence, since Traverse_Func walks through Field2 + -- last (see comment in the body of Traverse_Func). declare Elmt : Elmt_Id; |