From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 11 Oct 2010 10:16:51 +0000 (+0200)
Subject: [multiple changes]
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=76b5b0002c9610f6a2a4cb823e09cb60591a5371;p=gcc.git

[multiple changes]

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.

From-SVN: r165296
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 9260f78fcd8..2ffa7fdd436 100644
--- 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 116d801b9af..0d0f0b36316 100644
--- 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 fbd2a6f695d..174a8db1481 100644
--- 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 5a845f47e6e..1a6a39fee02 100644
--- 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;