diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-07 12:59:32 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-07 12:59:32 +0200 |
| commit | afbcdf5eaaa2f6ab820ad575884e2d9b515110ad (patch) | |
| tree | 43fa49c2e06a2f4c4e26aa6306e98ea511c873bd /gcc/ada/exp_dist.adb | |
| parent | dc017afa899182a43db9dc5f7b050815846ce98f (diff) | |
| download | gcc-afbcdf5eaaa2f6ab820ad575884e2d9b515110ad.zip gcc-afbcdf5eaaa2f6ab820ad575884e2d9b515110ad.tar.gz gcc-afbcdf5eaaa2f6ab820ad575884e2d9b515110ad.tar.bz2 | |
[multiple changes]
2010-10-07 Robert Dewar <dewar@adacore.com>
* exp_disp.adb, exp_dist.adb, exp_util.ads, exp_util.adb,
exp_ch11.adb: Rename Full_Qualified_Name to Fully_Qualified_Name_String
* sem_util.adb, sem_util.ads (Full_Qualified_Name): Moved to
Exp_Util.Fully_Qualified_Name_String.
2010-10-07 Robert Dewar <dewar@adacore.com>
* rtsfind.ads: Add entry for Ada.Real_Time.Timing_Events.Set_Handler
* sem_res.adb (Resolve_Call): A call to
Ada.Real_Time.Timing_Events.Set_Handler violates restriction
No_Relative_Delay (AI-0211).
2010-10-07 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb: Small change in error message.
From-SVN: r165092
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 36b8c2d..06f32d9 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -5541,7 +5541,7 @@ package body Exp_Dist is -- Name Make_String_Literal (Loc, - Full_Qualified_Name (Desig)), + Fully_Qualified_Name_String (Desig)), -- Handler @@ -5887,7 +5887,7 @@ package body Exp_Dist is Unchecked_Convert_To (RTE (RE_Address), New_Occurrence_Of (RACW_Parameter, Loc)), Make_String_Literal (Loc, - Strval => Full_Qualified_Name + Strval => Fully_Qualified_Name_String (Etype (Designated_Type (RACW_Type)))), Build_Stub_Tag (Loc, RACW_Type), New_Occurrence_Of (Boolean_Literals (Is_RAS), Loc), @@ -6083,7 +6083,7 @@ package body Exp_Dist is Parameter_Associations => New_List ( Unchecked_Convert_To (RTE (RE_Address), Object), Make_String_Literal (Loc, - Strval => Full_Qualified_Name + Strval => Fully_Qualified_Name_String (Etype (Designated_Type (RACW_Type)))), Build_Stub_Tag (Loc, RACW_Type), New_Occurrence_Of (Boolean_Literals (Is_RAS), Loc), |