From 80c3be7a574e2cfeb89eb9d3efd925c92a551607 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 22 Jun 2010 14:21:29 +0200 Subject: [PATCH] [multiple changes] 2010-06-22 Ed Schonberg * sem_res.adb: Additional special-case for VMS. 2010-06-22 Vincent Celier * gnatsym.adb: Minor comment fix. From-SVN: r161167 --- gcc/ada/ChangeLog | 8 ++++++++ gcc/ada/gnatsym.adb | 4 ++-- gcc/ada/sem_res.adb | 8 ++++++++ 3 files changed, 18 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 30eac7fbb1d..93e002bcf30 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2010-06-22 Ed Schonberg + + * sem_res.adb: Additional special-case for VMS. + +2010-06-22 Vincent Celier + + * gnatsym.adb: Minor comment fix. + 2010-06-22 Vincent Celier * prj-nmsc.adb (Process_Naming_Scheme): Initialize table Lib_Data_Table. diff --git a/gcc/ada/gnatsym.adb b/gcc/ada/gnatsym.adb index dec5257f45c..dbea228ebbe 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 06619cb9aeb..e0c475604b0 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). -- 2.30.2