diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-23 11:58:14 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-23 11:58:14 +0100 |
| commit | 3d0c15cf4fb4f967e487d7562e60a021744bd918 (patch) | |
| tree | f35e05061518106fa9b351aa86f423b50bc8703a /gcc/ada/exp_imgv.adb | |
| parent | 95160516ff06f6d2dfa2533e5367ef89cfad3c3b (diff) | |
| download | gcc-3d0c15cf4fb4f967e487d7562e60a021744bd918.zip gcc-3d0c15cf4fb4f967e487d7562e60a021744bd918.tar.gz gcc-3d0c15cf4fb4f967e487d7562e60a021744bd918.tar.bz2 | |
[multiple changes]
2011-11-23 Pascal Obry <obry@adacore.com>
* impunit.adb: Add g-exptty and g-tty units.
2011-11-23 Robert Dewar <dewar@adacore.com>
* exp_imgv.adb: Minor code reorganization (use Make_Temporary).
From-SVN: r181656
Diffstat (limited to 'gcc/ada/exp_imgv.adb')
| -rw-r--r-- | gcc/ada/exp_imgv.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index 14443b0..b819a36 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -1191,10 +1191,7 @@ package body Exp_Imgv is if Discard_Names (Rtyp) then declare - Tnn : constant Entity_Id := - Make_Defining_Identifier (Loc, - Chars => New_Internal_Name ('T')); - + Tnn : constant Entity_Id := Make_Temporary (Loc, 'T'); Cexpr : Node_Id; P : Int; M : Int; |