Commit 97ce3a14 by Robert Dewar Committed by Arnaud Charlet

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

2012-11-06  Robert Dewar  <dewar@adacore.com>

	* exp_attr.adb, sem_attr.adb: Minor reformatting.

From-SVN: r193230
parent ff97910d
2012-11-06 Robert Dewar <dewar@adacore.com>
* exp_attr.adb, sem_attr.adb: Minor reformatting.
2012-11-06 Gary Dismukes <dismukes@adacore.com>
* exp_attr.adb (Expand_N_Attribute_Reference): Apply a predicate
......
......@@ -5627,6 +5627,9 @@ package body Exp_Attr is
-- function, then issue a warning that this will cause infinite
-- recursion.
-- Do we have to issue these warnings in the expander rather
-- than during analysis (means they are skipped in -gnatc???).
if Current_Scope = Pred_Func then
Error_Msg_N
("attribute Valid requires a predicate check?", N);
......
......@@ -7235,6 +7235,8 @@ package body Sem_Attr is
-- Loop_Entry --
----------------
-- This null processing requires an explanatory comment???
when Attribute_Loop_Entry =>
null;
......
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