Commit 62c7d441 by Arnaud Charlet

Minor reformatting.

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