Commit 62c7d441 by Arnaud Charlet

Minor reformatting.

From-SVN: r247314
parent aaa0a838
...@@ -4745,8 +4745,8 @@ package body Exp_Util is ...@@ -4745,8 +4745,8 @@ package body Exp_Util is
Force_Evaluation (E); Force_Evaluation (E);
if Original_Node (E) /= E then if Original_Node (E) /= E then
Set_Do_Range_Check (E, Set_Do_Range_Check
Do_Range_Check (Original_Node (E))); (E, Do_Range_Check (Original_Node (E)));
end if; end if;
Next (E); Next (E);
......
...@@ -9087,10 +9087,10 @@ package body Sem_Ch13 is ...@@ -9087,10 +9087,10 @@ package body Sem_Ch13 is
if In_Instance then if In_Instance then
return; return;
-- The enclosing scope may have been rewritten during expansion (.e.g. -- The enclosing scope may have been rewritten during expansion (.e.g. a
-- a task body is rewritten as a procedure) after this conformance check -- task body is rewritten as a procedure) after this conformance check
-- has been performed, so do not perform it again (it may not easily -- has been performed, so do not perform it again (it may not easily be
-- be done if full visibility of local entities is not available). -- done if full visibility of local entities is not available).
elsif not Comes_From_Source (Current_Scope) then elsif not Comes_From_Source (Current_Scope) then
return; return;
......
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