2008-08-06 Thomas Quinot <quinot@adacore.com>
* exp_ch11.adb: Minor reformatting
From-SVN: r138785
-- Raise_Exception (exception-name'Identity, string);
- -- and there is nothing else to do
+ -- and there is nothing else to do.
if Present (Expression (N)) then
Rewrite (N,
Name => New_Occurrence_Of (RTE (RE_Raise_Exception), Loc),
Parameter_Associations => New_List (
Make_Attribute_Reference (Loc,
- Prefix => Name (N),
+ Prefix => Name (N),
Attribute_Name => Name_Identity),
Expression (N))));
Analyze (N);