diff options
| author | Robert Dewar <dewar@adacore.com> | 2013-10-14 12:46:56 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 14:46:56 +0200 |
| commit | f7ea2603f6c28fa91fbf2bf5f79cb2d04cec61c7 (patch) | |
| tree | 521cc5a951ec20a69d31327e26acb2a6ff597154 /gcc/ada/checks.adb | |
| parent | 688a9b51c97414c7957825865a8ebc7458c15ebd (diff) | |
| download | gcc-f7ea2603f6c28fa91fbf2bf5f79cb2d04cec61c7.zip gcc-f7ea2603f6c28fa91fbf2bf5f79cb2d04cec61c7.tar.gz gcc-f7ea2603f6c28fa91fbf2bf5f79cb2d04cec61c7.tar.bz2 | |
exp_attr.adb (Expand_N_Attribute_Reference): Add error entry for Library_Level attribute (which should not survive to expansion)
2013-10-14 Robert Dewar <dewar@adacore.com>
* exp_attr.adb (Expand_N_Attribute_Reference): Add error
entry for Library_Level attribute (which should not survive
to expansion)
* gnat_rm.texi: Document attribute Library_Level
* sem_attr.adb (Analyze_Attribute, case Library_Level): Implement
this new attribute (Set_Boolean_Result): Replaces Set_Result
(Check_Standard_Prefix): Document that Check_E0 is called
(Check_System_Prefix): New procedure
* snames.ads-tmpl: Add entry for Library_Level attribute
2013-10-14 Robert Dewar <dewar@adacore.com>
* exp_ch6.adb, sinfo.ads: Minor reformatting.
* checks.adb (Overlap_Check): Use identifier casing in messages.
From-SVN: r203528
Diffstat (limited to 'gcc/ada/checks.adb')
| -rw-r--r-- | gcc/ada/checks.adb | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 29a1859..f968e20 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -24,6 +24,7 @@ ------------------------------------------------------------------------------ with Atree; use Atree; +with Casing; use Casing; with Debug; use Debug; with Einfo; use Einfo; with Errout; use Errout; @@ -2189,7 +2190,9 @@ package body Checks is Formal_2 : Entity_Id; Check : in out Node_Id) is - Cond : Node_Id; + Cond : Node_Id; + ID_Casing : constant Casing_Type := + Identifier_Casing (Source_Index (Current_Sem_Unit)); begin -- Generate: @@ -2220,9 +2223,17 @@ package body Checks is end if; Store_String_Chars ("aliased parameters, actuals for """); - Store_String_Chars (Get_Name_String (Chars (Formal_1))); + + Get_Name_String (Chars (Formal_1)); + Set_Casing (ID_Casing); + Store_String_Chars (Name_Buffer (1 .. Name_Len)); + Store_String_Chars (""" and """); - Store_String_Chars (Get_Name_String (Chars (Formal_2))); + + Get_Name_String (Chars (Formal_2)); + Set_Casing (ID_Casing); + Store_String_Chars (Name_Buffer (1 .. Name_Len)); + Store_String_Chars (""" overlap"); Insert_Action (Call, |