Commit 1b73408a by Robert Dewar Committed by Arnaud Charlet

freeze.adb: Minor reformatting.

2012-10-29  Robert Dewar  <dewar@adacore.com>

	* freeze.adb: Minor reformatting.

From-SVN: r192930
parent a5a809b2
2012-10-29 Robert Dewar <dewar@adacore.com> 2012-10-29 Robert Dewar <dewar@adacore.com>
* freeze.adb: Minor reformatting.
2012-10-29 Robert Dewar <dewar@adacore.com>
* xr_tabls.adb, xr_tabls.ads, exp_ch9.adb, snames.adb-tmpl, * xr_tabls.adb, xr_tabls.ads, exp_ch9.adb, snames.adb-tmpl,
snames.ads-tmpl, exp_ch3.adb: Minor reformatting. snames.ads-tmpl, exp_ch3.adb: Minor reformatting.
......
...@@ -4652,7 +4652,7 @@ package body Freeze is ...@@ -4652,7 +4652,7 @@ package body Freeze is
-- this is where we analye the expression (after the type is frozen, -- this is where we analye the expression (after the type is frozen,
-- since in the case of Default_Value, we are analyzing with the -- since in the case of Default_Value, we are analyzing with the
-- type itself, and we treat Default_Component_Value similarly for -- type itself, and we treat Default_Component_Value similarly for
-- the sake of uniformity. -- the sake of uniformity).
if Is_First_Subtype (E) and then Has_Default_Aspect (E) then if Is_First_Subtype (E) and then Has_Default_Aspect (E) then
declare declare
......
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