diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-01-04 17:43:22 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-11 13:24:47 +0000 |
| commit | a8d89c45f8731686842f888f52494107bc410007 (patch) | |
| tree | 9ce56f4aaac750032abfca752bc48fd39a4df9af /gcc/ada/inline.adb | |
| parent | f5eb70c2276e94991b453ec07f50e00c5e7dbd36 (diff) | |
| download | gcc-a8d89c45f8731686842f888f52494107bc410007.zip gcc-a8d89c45f8731686842f888f52494107bc410007.tar.gz gcc-a8d89c45f8731686842f888f52494107bc410007.tar.bz2 | |
[Ada] Reuse Make_Temporary where possible
gcc/ada/
* exp_ch7.adb (Set_Block_Elab_Proc, Unnest_Block, Unnest_Loop,
Unnest_Statement_List): Simplify with Make_Temporary.
* exp_put_image.adb (Build_Image_Call): Likewise.
* inline.adb (Generate_Subprogram_Body): Likewise.
* sem_ch13.adb (Build_Predicate_Functions): Likewise.
* sem_util.adb (New_Copy_Separate_List): Likewise.
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 49d034d..da67fd2 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -2189,7 +2189,7 @@ package body Inline is -- conflicts when the non-inlined body N is analyzed. Set_Defining_Unit_Name (Specification (Body_To_Inline), - Make_Defining_Identifier (Sloc (N), New_Internal_Name ('P'))); + Make_Temporary (Sloc (N), 'P')); Set_Corresponding_Spec (Body_To_Inline, Empty); end Generate_Subprogram_Body; |