diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 12:38:39 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 12:38:39 +0200 |
commit | 7730df143ca83fef65f64299856c8072bf21a453 (patch) | |
tree | 15546ab6dcc6d4203794b6884877c87ebe68aa07 /gcc/ada/sem_aux.adb | |
parent | c775c2094bfdd9b85ad67e451a3fe690780e84d4 (diff) | |
download | gcc-7730df143ca83fef65f64299856c8072bf21a453.zip gcc-7730df143ca83fef65f64299856c8072bf21a453.tar.gz gcc-7730df143ca83fef65f64299856c8072bf21a453.tar.bz2 |
[multiple changes]
2010-10-12 Thomas Quinot <quinot@adacore.com>
* a-exetim.ads: Minor reformatting.
* g-socket.ads (Port_Type): Better definition corresponding to the
actual standard range.
* exp_ch5.adb: Add comment.
* sem_aux.adb: Minor reformatting.
2010-10-12 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Copy_Generic_Node): If node is a string literal, remove
string_literal_subtype so that a new one can be constructed in the
scope of the instance.
From-SVN: r165357
Diffstat (limited to 'gcc/ada/sem_aux.adb')
-rwxr-xr-x | gcc/ada/sem_aux.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 7bda710..656692f 100755 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -204,8 +204,7 @@ package body Sem_Aux is begin pragma Assert - (Has_Discriminants (Typ) - or else Has_Unknown_Discriminants (Typ)); + (Has_Discriminants (Typ) or else Has_Unknown_Discriminants (Typ)); Ent := First_Entity (Typ); |