diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-17 10:45:18 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 12:45:18 +0200 |
| commit | 092ef350718e36fdb53cdeb2665efcb30486f8cf (patch) | |
| tree | 1525c8d5e724329aa9414a76a7d00427628a949f /gcc/ada/sem_dist.adb | |
| parent | 2287a75d05dc2c3fecee4a40173d67df5f2b7919 (diff) | |
| download | gcc-092ef350718e36fdb53cdeb2665efcb30486f8cf.zip gcc-092ef350718e36fdb53cdeb2665efcb30486f8cf.tar.gz gcc-092ef350718e36fdb53cdeb2665efcb30486f8cf.tar.bz2 | |
exp_fixd.adb, [...]: Use Make_Temporary
2010-06-17 Robert Dewar <dewar@adacore.com>
* exp_fixd.adb, exp_imgv.adb, exp_intr.adb, exp_pakd.adb, exp_prag.adb,
exp_sel.adb, exp_util.adb, sem_ch10.adb, sem_ch12.adb, sem_ch13.adb,
sem_ch3.adb, sem_ch4.adb, sem_ch5.adb, sem_ch8.adb, sem_ch9.adb,
sem_dist.adb, sem_util.adb: Use Make_Temporary
* itypes.ads, tbuild.ads: Minor comment update
* exp_ch9.adb, exp_dist.adb: Minor reformatting
From-SVN: r160897
Diffstat (limited to 'gcc/ada/sem_dist.adb')
| -rw-r--r-- | gcc/ada/sem_dist.adb | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/gcc/ada/sem_dist.adb b/gcc/ada/sem_dist.adb index 111a9d2..64b8575 100644 --- a/gcc/ada/sem_dist.adb +++ b/gcc/ada/sem_dist.adb @@ -451,9 +451,7 @@ package body Sem_Dist is -- True iff this RAS has an access formal parameter (see -- Exp_Dist.Add_RAS_Dereference_TSS for details). - Subpkg : constant Entity_Id := - Make_Defining_Identifier (Loc, - New_Internal_Name ('S')); + Subpkg : constant Entity_Id := Make_Temporary (Loc, 'S'); Subpkg_Decl : Node_Id; Subpkg_Body : Node_Id; Vis_Decls : constant List_Id := New_List; @@ -464,16 +462,14 @@ package body Sem_Dist is New_External_Name (Chars (User_Type), 'R')); Full_Obj_Type : constant Entity_Id := - Make_Defining_Identifier (Loc, - Chars (Obj_Type)); + Make_Defining_Identifier (Loc, Chars (Obj_Type)); RACW_Type : constant Entity_Id := Make_Defining_Identifier (Loc, New_External_Name (Chars (User_Type), 'P')); Fat_Type : constant Entity_Id := - Make_Defining_Identifier (Loc, - Chars (User_Type)); + Make_Defining_Identifier (Loc, Chars (User_Type)); Fat_Type_Decl : Node_Id; |