diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 14:21:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 14:21:29 +0200 |
| commit | 80c3be7a574e2cfeb89eb9d3efd925c92a551607 (patch) | |
| tree | 167561dedc91763d74c98b2048a7d7e26e1d95fc /gcc/ada/sem_res.adb | |
| parent | 3b6d290a25c33ef16565cdd15b08bfd9d8ac527c (diff) | |
| download | gcc-80c3be7a574e2cfeb89eb9d3efd925c92a551607.zip gcc-80c3be7a574e2cfeb89eb9d3efd925c92a551607.tar.gz gcc-80c3be7a574e2cfeb89eb9d3efd925c92a551607.tar.bz2 | |
[multiple changes]
2010-06-22 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb: Additional special-case for VMS.
2010-06-22 Vincent Celier <celier@adacore.com>
* gnatsym.adb: Minor comment fix.
From-SVN: r161167
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 06619cb..e0c4756 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -1444,10 +1444,18 @@ package body Sem_Res is null; + -- Operator may be defined in an extension of system + + elsif Present (System_Aux_Id) + and then Scope (Opnd_Type) = System_Aux_Id + then + null; + else -- Note: we go to First_Subtype here to ensure the message -- has the proper source type name (Typ may be an anonymous -- base type). + -- Could we use Wrong_Type here??? (this would require setting -- Etype (N) to the actual type found where Typ was expected). |