aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2010-06-22 14:21:29 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-06-22 14:21:29 +0200
commit80c3be7a574e2cfeb89eb9d3efd925c92a551607 (patch)
tree167561dedc91763d74c98b2048a7d7e26e1d95fc /gcc
parent3b6d290a25c33ef16565cdd15b08bfd9d8ac527c (diff)
downloadgcc-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')
-rw-r--r--gcc/ada/ChangeLog8
-rw-r--r--gcc/ada/gnatsym.adb4
-rw-r--r--gcc/ada/sem_res.adb8
3 files changed, 18 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 30eac7f..93e002b 100644
--- 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
--- 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
--- 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).