diff options
author | Robert Dewar <dewar@adacore.com> | 2012-01-30 11:50:52 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 12:50:52 +0100 |
commit | 37da997b17c1352e72d661f1426d78aa488c3399 (patch) | |
tree | d142f637db09aa859f72a46fdd034128fa1bb9a5 /gcc/ada/einfo.adb | |
parent | 7873037fd8ad42ad0494cb2f5d7044309381183c (diff) | |
download | gcc-37da997b17c1352e72d661f1426d78aa488c3399.zip gcc-37da997b17c1352e72d661f1426d78aa488c3399.tar.gz gcc-37da997b17c1352e72d661f1426d78aa488c3399.tar.bz2 |
a-strhas.ads, [...]: Minor reformatting/code reorganization.
2012-01-30 Robert Dewar <dewar@adacore.com>
* a-strhas.ads, einfo.adb, einfo.ads, exp_ch7.adb, exp_ch9.adb,
freeze.adb, prj.adb, prj.ads, prj-nmsc.adb, prj-proc.adb, s-llflex.ads,
s-ransee.adb, s-ransee.ads, sem_ch13.adb, sem_dim.adb, sem_prag.adb:
Minor reformatting/code reorganization.
From-SVN: r183710
Diffstat (limited to 'gcc/ada/einfo.adb')
-rw-r--r-- | gcc/ada/einfo.adb | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 255a2b6..d5cbc22b 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -161,8 +161,8 @@ package body Einfo is -- Body_Entity Node19 -- Corresponding_Discriminant Node19 - -- Default_Aspect_Value Node19 -- Default_Aspect_Component_Value Node19 + -- Default_Aspect_Value Node19 -- Extra_Accessibility_Of_Result Node19 -- Parent_Subtype Node19 -- Size_Check_Code Node19 @@ -775,18 +775,18 @@ package body Einfo is return Node25 (Id); end Debug_Renaming_Link; - function Default_Aspect_Value (Id : E) return N is - begin - pragma Assert (Is_Scalar_Type (Id)); - return Node19 (Id); - end Default_Aspect_Value; - function Default_Aspect_Component_Value (Id : E) return N is begin pragma Assert (Is_Array_Type (Id)); return Node19 (Id); end Default_Aspect_Component_Value; + function Default_Aspect_Value (Id : E) return N is + begin + pragma Assert (Is_Scalar_Type (Id)); + return Node19 (Id); + end Default_Aspect_Value; + function Default_Expr_Function (Id : E) return E is begin pragma Assert (Is_Formal (Id)); @@ -3276,18 +3276,18 @@ package body Einfo is Set_Node25 (Id, V); end Set_Debug_Renaming_Link; - procedure Set_Default_Aspect_Value (Id : E; V : E) is - begin - pragma Assert (Is_Scalar_Type (Id)); - Set_Node19 (Id, V); - end Set_Default_Aspect_Value; - procedure Set_Default_Aspect_Component_Value (Id : E; V : E) is begin pragma Assert (Is_Array_Type (Id)); Set_Node19 (Id, V); end Set_Default_Aspect_Component_Value; + procedure Set_Default_Aspect_Value (Id : E; V : E) is + begin + pragma Assert (Is_Scalar_Type (Id)); + Set_Node19 (Id, V); + end Set_Default_Aspect_Value; + procedure Set_Default_Expr_Function (Id : E; V : E) is begin pragma Assert (Is_Formal (Id)); |