diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-07 10:59:32 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-07 10:59:32 +0000 |
commit | c6a30f2489b134cf27f871e24d29bf6c1199e079 (patch) | |
tree | 43fa49c2e06a2f4c4e26aa6306e98ea511c873bd /gcc/ada/exp_disp.adb | |
parent | 9ba5850fbd72c449de250be4dbb22e05712e5305 (diff) | |
download | ppe42-gcc-c6a30f2489b134cf27f871e24d29bf6c1199e079.tar.gz ppe42-gcc-c6a30f2489b134cf27f871e24d29bf6c1199e079.zip |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165092 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_disp.adb')
-rw-r--r-- | gcc/ada/exp_disp.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 7e0cba54a0d..c38bbe8bf5d 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -4483,8 +4483,7 @@ package body Exp_Disp is end loop; end if; - -- Get the _tag entity and the number of primitives of its dispatch - -- table. + -- Get the _tag entity and number of primitives of its dispatch table DT_Ptr := Node (First_Elmt (Access_Disp_Table (Typ))); Nb_Prim := UI_To_Int (DT_Entry_Count (First_Tag_Component (Typ))); @@ -4654,7 +4653,7 @@ package body Exp_Disp is Object_Definition => New_Reference_To (Standard_String, Loc), Expression => Make_String_Literal (Loc, - Full_Qualified_Name (First_Subtype (Typ))))); + Fully_Qualified_Name_String (First_Subtype (Typ))))); Set_Is_Statically_Allocated (Exname); Set_Is_True_Constant (Exname); @@ -4768,7 +4767,7 @@ package body Exp_Disp is New_External_Name (Tname, 'A')); Full_Name : constant String_Id := - Full_Qualified_Name (First_Subtype (Typ)); + Fully_Qualified_Name_String (First_Subtype (Typ)); Str1_Id : String_Id; Str2_Id : String_Id; |