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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161167 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 30eac7f..93e002b 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+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.
+
 2010-06-22  Vincent Celier  <celier@adacore.com>
 
        * prj-nmsc.adb (Process_Naming_Scheme): Initialize table Lib_Data_Table.

diff --git a/gcc/ada/gnatsym.adb b/gcc/ada/gnatsym.adb
index dec5257..dbea228 100644 (file)
--- a/gcc/ada/gnatsym.adb
+++ b/gcc/ada/gnatsym.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2003-2008, Free Software Foundation, Inc.         --
+--          Copyright (C) 2003-2010, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -311,7 +311,7 @@ begin
          Processing.Process (Object_Files.Table (Object_File).all, Success);
       end loop;
 
-      --  Finalize the object file
+      --  Finalize the symbol file
 
       if Success then
          if Verbose then

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 06619cb..e0c4756 100644 (file)
--- 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).