Commit aeae67ed by Robert Dewar Committed by Arnaud Charlet

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

2011-09-05  Robert Dewar  <dewar@adacore.com>

	* sem_ch3.adb, sem_res.adb, par.adb, par-ch6.adb, g-comlin.adb,
	exp_ch6.adb, lib-xref-alfa.adb: Minor reformatting.

From-SVN: r178536
parent d72e7628
2011-09-05 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_res.adb, par.adb, par-ch6.adb, g-comlin.adb,
exp_ch6.adb, lib-xref-alfa.adb: Minor reformatting.
2011-09-05 Gary Dismukes <dismukes@adacore.com> 2011-09-05 Gary Dismukes <dismukes@adacore.com>
* exp_ch7.adb, exp_ch6.adb: Minor reformatting. * exp_ch7.adb, exp_ch6.adb: Minor reformatting.
......
...@@ -179,7 +179,7 @@ package body Exp_Ch6 is ...@@ -179,7 +179,7 @@ package body Exp_Ch6 is
procedure Expand_Non_Function_Return (N : Node_Id); procedure Expand_Non_Function_Return (N : Node_Id);
-- Called by Expand_N_Simple_Return_Statement in case we're returning from -- Called by Expand_N_Simple_Return_Statement in case we're returning from
-- a procedure body, entry body, accept statement, or extended return -- a procedure body, entry body, accept statement, or extended return
-- statement. Note that all non-function returns are simple return -- statement. Note that all non-function returns are simple return
-- statements. -- statements.
function Expand_Protected_Object_Reference function Expand_Protected_Object_Reference
...@@ -564,7 +564,7 @@ package body Exp_Ch6 is ...@@ -564,7 +564,7 @@ package body Exp_Ch6 is
-- The return type in the function declaration may have been a limited -- The return type in the function declaration may have been a limited
-- view, and the extra formals for the function were not generated at -- view, and the extra formals for the function were not generated at
-- that point. At the point of call the full view must be available and -- that point. At the point of call the full view must be available and
-- the extra formals can be created. -- the extra formals can be created.
if No (Extra_Formal) then if No (Extra_Formal) then
......
...@@ -902,7 +902,7 @@ package body GNAT.Command_Line is ...@@ -902,7 +902,7 @@ package body GNAT.Command_Line is
Parser.Section (Parser.Current_Argument); Parser.Section (Parser.Current_Argument);
end if; end if;
-- Until we have the start of another section -- Exit from loop if we have the start of another section
if Index = Parser.Section'Last if Index = Parser.Section'Last
or else Parser.Section (Index + 1) /= 0 or else Parser.Section (Index + 1) /= 0
......
...@@ -618,6 +618,8 @@ package body Alfa is ...@@ -618,6 +618,8 @@ package body Alfa is
-- verification, and should therefore never appear in frame -- verification, and should therefore never appear in frame
-- conditions. -- conditions.
-- What about E_Loop_Parameter???
when E_In_Parameter | E_Constant => when E_In_Parameter | E_Constant =>
return False; return False;
......
...@@ -682,15 +682,14 @@ package body Ch6 is ...@@ -682,15 +682,14 @@ package body Ch6 is
if Token_Is_At_Start_Of_Line then if Token_Is_At_Start_Of_Line then
declare declare
-- The enclosing scope entry is a subprogram spec
-- The enclosing scope entry is a subprogram spec.
Spec_Node : constant Node_Id := Spec_Node : constant Node_Id :=
Parent (Scope.Table (Scope.Last).Labl); Parent
(Scope.Table (Scope.Last).Labl);
Lib_Node : Node_Id := Spec_Node; Lib_Node : Node_Id := Spec_Node;
begin begin
-- Check whether there is an enclosing scope that -- Check whether there is an enclosing scope that
-- is a package declaration. -- is a package declaration.
...@@ -706,7 +705,6 @@ package body Ch6 is ...@@ -706,7 +705,6 @@ package body Ch6 is
Nkind (Spec_Node) = N_Function_Specification Nkind (Spec_Node) = N_Function_Specification
then then
null; null;
else else
return False; return False;
end if; end if;
......
...@@ -473,9 +473,11 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is ...@@ -473,9 +473,11 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is
-- program unit name. For task declarations and bodies, protected types -- program unit name. For task declarations and bodies, protected types
-- and bodies, and accept statements the field hold the name of the type -- and bodies, and accept statements the field hold the name of the type
-- or operation. For if-statements, case-statements, and selects, the -- or operation. For if-statements, case-statements, and selects, the
-- field is initialized to Error, indicating that it is an error to have -- field is initialized to Error.
-- a label on the end line.
-- (this is really a misuse of Error since there is no Error ???) -- Note: this is a bit of an odd (mis)use of Error, since there is no
-- Error, but we use this value as a place holder to indicate that it
-- is an error to have a label on the end line.
-- Whenever the field is a name, it is attached to the parent node of -- Whenever the field is a name, it is attached to the parent node of
-- the construct being parsed. Thus the parent node indicates the kind -- the construct being parsed. Thus the parent node indicates the kind
......
...@@ -3320,6 +3320,8 @@ package body Sem_Ch3 is ...@@ -3320,6 +3320,8 @@ package body Sem_Ch3 is
-- In SPARK, a declaration of unconstrained type is allowed -- In SPARK, a declaration of unconstrained type is allowed
-- only for constants of type string. -- only for constants of type string.
-- Isn't following check the wrong way round???
if Nkind (E) = N_String_Literal then if Nkind (E) = N_String_Literal then
Check_SPARK_Restriction Check_SPARK_Restriction
("declaration of object of unconstrained type not allowed", ("declaration of object of unconstrained type not allowed",
......
...@@ -7174,6 +7174,7 @@ package body Sem_Res is ...@@ -7174,6 +7174,7 @@ package body Sem_Res is
then then
Arg1 := Convert_Operand (Left_Opnd (N)); Arg1 := Convert_Operand (Left_Opnd (N));
-- Unchecked_Convert_To (Btyp, Left_Opnd (N)); -- Unchecked_Convert_To (Btyp, Left_Opnd (N));
-- What on earth is this commented out fragment of code???
if Nkind (N) = N_Op_Expon then if Nkind (N) = N_Op_Expon then
Arg2 := Unchecked_Convert_To (Standard_Integer, Right_Opnd (N)); Arg2 := Unchecked_Convert_To (Standard_Integer, Right_Opnd (N));
......
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