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);
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;