Commit 1cf3727f by Robert Dewar Committed by Arnaud Charlet

make.adb, [...]: Minor reformatting.

2010-06-18  Robert Dewar  <dewar@adacore.com>

	* make.adb, sem_cat.adb: Minor reformatting.
	* sem_eval.adb: Fix typos.

From-SVN: r160991
parent 3d164ffc
2010-06-18 Robert Dewar <dewar@adacore.com>
* make.adb, sem_cat.adb: Minor reformatting.
* sem_eval.adb: Fix typos.
2010-06-18 Pascal Obry <obry@adacore.com> 2010-06-18 Pascal Obry <obry@adacore.com>
* prj-nmsc.adb: Fix source filenames casing in debug output. * prj-nmsc.adb: Fix source filenames casing in debug output.
......
...@@ -6078,7 +6078,7 @@ package body Make is ...@@ -6078,7 +6078,7 @@ package body Make is
exception exception
when others => when others =>
-- Delete the temporary mapping file, if one was created -- Delete the temporary mapping file if one was created
if Mapping_Path /= No_Path then if Mapping_Path /= No_Path then
Delete_Temporary_File (Project_Tree, Mapping_Path); Delete_Temporary_File (Project_Tree, Mapping_Path);
...@@ -6089,7 +6089,7 @@ package body Make is ...@@ -6089,7 +6089,7 @@ package body Make is
raise; raise;
end; end;
-- If -dn was not specified, delete the temporary mapping file, -- If -dn was not specified, delete the temporary mapping file
-- if one was created. -- if one was created.
if Mapping_Path /= No_Path then if Mapping_Path /= No_Path then
......
...@@ -1079,8 +1079,7 @@ package body Sem_Cat is ...@@ -1079,8 +1079,7 @@ package body Sem_Cat is
-- implicit call, and must be treated as such. -- implicit call, and must be treated as such.
if Present (E) if Present (E)
and then and then (Comes_From_Source (E) or else Nkind (E) /= N_Aggregate)
(Comes_From_Source (E) or else Nkind (E) /= N_Aggregate)
then then
null; null;
...@@ -1240,8 +1239,8 @@ package body Sem_Cat is ...@@ -1240,8 +1239,8 @@ package body Sem_Cat is
PEE := Parent (EE); PEE := Parent (EE);
if Nkind (PEE) = N_Full_Type_Declaration if Nkind (PEE) = N_Full_Type_Declaration
and then not Static_Discriminant_Expr and then not Static_Discriminant_Expr
(Discriminant_Specifications (PEE)) (Discriminant_Specifications (PEE))
then then
Error_Msg_N Error_Msg_N
("non-static discriminant in preelaborated unit", ("non-static discriminant in preelaborated unit",
......
...@@ -1805,7 +1805,7 @@ package body Sem_Eval is ...@@ -1805,7 +1805,7 @@ package body Sem_Eval is
--------------------------------- ---------------------------------
-- We can fold to a static expression if the condition and both constituent -- We can fold to a static expression if the condition and both constituent
-- expressions are static. Othewise the only required processing is to do -- expressions are static. Otherwise, the only required processing is to do
-- the check for non-static context for the then and else expressions. -- the check for non-static context for the then and else expressions.
procedure Eval_Conditional_Expression (N : Node_Id) is procedure Eval_Conditional_Expression (N : Node_Id) is
......
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