mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-14 13:01:23 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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
This commit is contained in:
Arnaud Charlet 2010-06-22 14:21:29 +02:00
parent 3b6d290a25
commit 80c3be7a57
3 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

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

4
gcc/ada/gnatsym.adb
View File

@ -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

8
gcc/ada/sem_res.adb
View File

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