[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

gcc/ada/ChangeLog

+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.

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

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).