Commit 80c3be7a by Arnaud Charlet

[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
parent 3b6d290a
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> 2010-06-22 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Process_Naming_Scheme): Initialize table Lib_Data_Table. * prj-nmsc.adb (Process_Naming_Scheme): Initialize table Lib_Data_Table.
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -311,7 +311,7 @@ begin ...@@ -311,7 +311,7 @@ begin
Processing.Process (Object_Files.Table (Object_File).all, Success); Processing.Process (Object_Files.Table (Object_File).all, Success);
end loop; end loop;
-- Finalize the object file -- Finalize the symbol file
if Success then if Success then
if Verbose then if Verbose then
......
...@@ -1444,10 +1444,18 @@ package body Sem_Res is ...@@ -1444,10 +1444,18 @@ package body Sem_Res is
null; 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 else
-- Note: we go to First_Subtype here to ensure the message -- Note: we go to First_Subtype here to ensure the message
-- has the proper source type name (Typ may be an anonymous -- has the proper source type name (Typ may be an anonymous
-- base type). -- base type).
-- Could we use Wrong_Type here??? (this would require setting -- Could we use Wrong_Type here??? (this would require setting
-- Etype (N) to the actual type found where Typ was expected). -- Etype (N) to the actual type found where Typ was expected).
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment