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> 2010-10-11 Javier Miranda <miranda@adacore.com>
* exp_ch6.adb (Expand_Call): For VM platforms, add missing expansion of * exp_ch6.adb (Expand_Call): For VM platforms, add missing expansion of
......
...@@ -105,7 +105,7 @@ package body Debug is ...@@ -105,7 +105,7 @@ package body Debug is
-- d.l Use Ada 95 semantics for limited function returns -- d.l Use Ada 95 semantics for limited function returns
-- d.m For -gnatl, print full source only for main unit -- d.m For -gnatl, print full source only for main unit
-- d.n Print source file names -- d.n Print source file names
-- d.o -- d.o Generate .NET listing of CIL code
-- d.p -- d.p
-- d.q -- d.q
-- d.r Enable OK_To_Reorder_Components in non-variant records -- d.r Enable OK_To_Reorder_Components in non-variant records
...@@ -531,6 +531,8 @@ package body Debug is ...@@ -531,6 +531,8 @@ package body Debug is
-- compiler has a bug -- these are the files that need to be included -- compiler has a bug -- these are the files that need to be included
-- in a bug report. -- in a bug report.
-- d.o documentation missing ???
-- d.r Forces the flag OK_To_Reorder_Components to be set in all record -- d.r Forces the flag OK_To_Reorder_Components to be set in all record
-- base types that have no discriminants. -- base types that have no discriminants.
......
...@@ -1577,6 +1577,13 @@ begin ...@@ -1577,6 +1577,13 @@ begin
Program_Name (Command_List (The_Command).Unixcmd.all, "gnat"); Program_Name (Command_List (The_Command).Unixcmd.all, "gnat");
end if; 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 -- Locate the executable for the command
Exec_Path := Locate_Exec_On_Path (Program.all); Exec_Path := Locate_Exec_On_Path (Program.all);
......
...@@ -4689,10 +4689,10 @@ package body Sem_Prag is ...@@ -4689,10 +4689,10 @@ package body Sem_Prag is
-- Start of processing for Process_Suppress_Unsuppress -- Start of processing for Process_Suppress_Unsuppress
begin begin
-- Ignore pragma Suppress/Unsuppress in codepeer mode: we want to -- Ignore pragma Suppress/Unsuppress in codepeer mode on user code:
-- generate checks for analysis purposes, as set by -gnatC. -- 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; return;
end if; 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