diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:16:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-11 10:16:51 +0000 |
| commit | 56a41191a9e5f7d6a10aebe012b625ce38b09bf1 (patch) | |
| tree | 20c3032aa10e4dffe4e3cbf5ec4a3a7a4c684369 /gcc/ada | |
| parent | a828619e5b823d18ca5333eaa58f2d5d1cf2206e (diff) | |
| download | gcc-56a41191a9e5f7d6a10aebe012b625ce38b09bf1.tar.gz | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 15 | ||||
| -rw-r--r-- | gcc/ada/debug.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 7 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 6 |
4 files changed, 28 insertions, 4 deletions
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; |