Commit 49f7fe60 by Thomas Quinot Committed by Arnaud Charlet

exp_ch11.adb: Minor reformatting

2008-08-06  Thomas Quinot  <quinot@adacore.com>

	* exp_ch11.adb: Minor reformatting

From-SVN: r138785
parent 49d8b802
......@@ -1386,7 +1386,7 @@ package body Exp_Ch11 is
-- 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,
......@@ -1394,7 +1394,7 @@ package body Exp_Ch11 is
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);
......
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