2009-07-13 Robert Dewar <dewar@adacore.com>

	* prj.ads, prj-dect.adb, prj-err.ads, prj-err.adb, prj-nmsc.adb,
	prj-strt.ads: Minor reformatting

2009-07-13  Thomas Quinot  <quinot@adacore.com>

	* exp_dist.adb (Build_From_Any_Call): For the case of a generic type,
	set the type of the From_Any call to the base type.

2009-07-13  Doug Rupp  <rupp@adacore.com>

	* symbols-processing-vms-ia64.adb (Process): Add variables and
	constants to retrieve and check for symbol visibility.

2009-07-13  Javier Miranda  <miranda@adacore.com>

	* exp_ch4.adb (Expand_N_Unchecked_Type_Conversion): If conversion is to
	the identical type we remove the conversion completely because
	it is useless.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149575 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 3 insertions, 1 deletions

diff --git a/gcc/ada/prj-err.adb b/gcc/ada/prj-err.adb
index c0fa09b220c..8e0d5627a67 100644
--- a/gcc/ada/prj-err.adb
+++ b/gcc/ada/prj-err.adb
@@ -99,9 +99,11 @@ package body Prj.Err is
       end if;
 
       if Real_Location = No_Location then
+
          --  If still null, we are parsing a project that was created in-memory
          --  so we shouldn't report errors for projects that the user has no
          --  access to in any case.
+
          return;
       end if;
 
@@ -115,7 +117,7 @@ package body Prj.Err is
       if Flags.Report_Error /= null then
          Flags.Report_Error
            (Project,
-            Is_Warning => Msg (Msg'First) = '?' or Msg (Msg'First) = '<');
+            Is_Warning => Msg (Msg'First) = '?' or else Msg (Msg'First) = '<');
       end if;
    end Error_Msg;