2010-10-11 Vincent Celier <celier@adacore.com>

	* gnatcmd.adb (GNATCmd): For all tools other than gnatmake, allow
	shared library projects to import projects that are not shared library
	projects.

2010-10-11  Javier Miranda  <miranda@adacore.com>

	* debug.adb: Document that switch -gnatd.o generates the CIL listing.

2010-10-11  Arnaud Charlet  <charlet@adacore.com>

	* sem_prag.adb (Process_Suppress_Unsuppress): Only ignore
	Suppress/Unsuppress pragmas in codepeer mode on user code.

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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9260f78..2ffa7fd 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,18 @@
+2010-10-11  Vincent Celier  <celier@adacore.com>
+
+       * gnatcmd.adb (GNATCmd): For all tools other than gnatmake, allow
+       shared library projects to import projects that are not shared library
+       projects.
+
+2010-10-11  Javier Miranda  <miranda@adacore.com>
+
+       * debug.adb: Document that switch -gnatd.o generates the CIL listing.
+
+2010-10-11  Arnaud Charlet  <charlet@adacore.com>
+
+       * sem_prag.adb (Process_Suppress_Unsuppress): Only ignore
+       Suppress/Unsuppress pragmas in codepeer mode on user code.
+
 2010-10-11  Javier Miranda  <miranda@adacore.com>
 
        * exp_ch6.adb (Expand_Call): For VM platforms, add missing expansion of

diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb
index 116d801..0d0f0b3 100644 (file)
--- a/gcc/ada/debug.adb
+++ b/gcc/ada/debug.adb
@@ -105,7 +105,7 @@ package body Debug is
    --  d.l  Use Ada 95 semantics for limited function returns
    --  d.m  For -gnatl, print full source only for main unit
    --  d.n  Print source file names
-   --  d.o
+   --  d.o  Generate .NET listing of CIL code
    --  d.p
    --  d.q
    --  d.r  Enable OK_To_Reorder_Components in non-variant records
@@ -531,6 +531,8 @@ package body Debug is
    --       compiler has a bug -- these are the files that need to be included
    --       in a bug report.
 
+   --  d.o  documentation missing ???
+
    --  d.r  Forces the flag OK_To_Reorder_Components to be set in all record
    --       base types that have no discriminants.
 

diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index fbd2a6f..174a8db 100644 (file)
--- a/gcc/ada/gnatcmd.adb
+++ b/gcc/ada/gnatcmd.adb
@@ -1577,6 +1577,13 @@ begin
            Program_Name (Command_List (The_Command).Unixcmd.all, "gnat");
       end if;
 
+      --  For all tools other than gnatmake, allow shared library projects to
+      --  import projects that are not shared library projects.
+
+      if The_Command /= Make then
+         Opt.Unchecked_Shared_Lib_Imports := True;
+      end if;
+
       --  Locate the executable for the command
 
       Exec_Path := Locate_Exec_On_Path (Program.all);

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 5a845f4..1a6a39f 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -4689,10 +4689,10 @@ package body Sem_Prag is
       --  Start of processing for Process_Suppress_Unsuppress
 
       begin
-         --  Ignore pragma Suppress/Unsuppress in codepeer mode: we want to
-         --  generate checks for analysis purposes, as set by -gnatC.
+         --  Ignore pragma Suppress/Unsuppress in codepeer mode on user code:
+         --  we want to generate checks for analysis purposes, as set by -gnatC
 
-         if CodePeer_Mode then
+         if CodePeer_Mode and then Comes_From_Source (N) then
             return;
          end if;