Commit 155b4fcc by Robert Dewar Committed by Arnaud Charlet

exp_util.ads, [...]: Minor reformatting and code clean ups.

2014-02-06  Robert Dewar  <dewar@adacore.com>

	* exp_util.ads, checks.adb, sem_prag.adb, prj-util.adb, sem_ch13.adb:
	Minor reformatting and code clean ups.

From-SVN: r207540
parent c366d38c
2014-02-06 Robert Dewar <dewar@adacore.com>
* exp_util.ads, checks.adb, sem_prag.adb, prj-util.adb, sem_ch13.adb:
Minor reformatting and code clean ups.
2014-02-06 Pascal Obry <obry@adacore.com> 2014-02-06 Pascal Obry <obry@adacore.com>
* prj-util.adb (For_Interface_Sources): Skip non compilable languages. * prj-util.adb (For_Interface_Sources): Skip non compilable languages.
......
...@@ -467,10 +467,14 @@ package body Prj.Util is ...@@ -467,10 +467,14 @@ package body Prj.Util is
-- the interface for standalone libraries. -- the interface for standalone libraries.
if Sid.Kind = Spec if Sid.Kind = Spec
and then not Sid.Project.Externally_Built
and then not Sid.Locally_Removed and then not Sid.Locally_Removed
and then (Project.Standalone_Library = No and then (Project.Standalone_Library = No
or else Sid.Declared_In_Interfaces) or else Sid.Declared_In_Interfaces)
and then Sid.Dep_Name /= No_File -- for non compilable languages
-- Handle case of non-compilable languages
and then Sid.Dep_Name /= No_File
then then
Action (Sid); Action (Sid);
......
...@@ -9430,7 +9430,7 @@ package body Sem_Ch13 is ...@@ -9430,7 +9430,7 @@ package body Sem_Ch13 is
Inside_Freezing_Actions := Inside_Freezing_Actions - 1; Inside_Freezing_Actions := Inside_Freezing_Actions - 1;
-- If we have a type with predicates, build predicate function. This -- If we have a type with predicates, build predicate function. This
-- is not needed in the generic casee, and is not needed within TSS -- is not needed in the generic case, and is not needed within TSS
-- subprograms and other predefined primitives. -- subprograms and other predefined primitives.
if Non_Generic_Case if Non_Generic_Case
......
...@@ -1680,7 +1680,7 @@ package body Sem_Prag is ...@@ -1680,7 +1680,7 @@ package body Sem_Prag is
and then Present (Component_Associations (Expr)) and then Present (Component_Associations (Expr))
then then
Error_Msg_N Error_Msg_N
("dependency clause contains extra parenthesis", Expr); ("dependency clause contains extra parentheses", Expr);
-- Otherwise the expression is a malformed construct -- Otherwise the expression is a malformed construct
......
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