Commit 76b5b000 by Arnaud Charlet

[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
parent dd386db0
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
......
......@@ -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.
......
......@@ -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);
......
......@@ -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;
......
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