diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-04-19 22:39:38 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-06-13 09:31:43 +0200 |
| commit | af10c962b79c17291250df314d2adb17f11e2355 (patch) | |
| tree | 930bfdfdf38d4058959b2d6160ac165fd927010d /gcc/tree-ssa-loop-ivopts.h | |
| parent | f02be8fc6e1d9679d507faa7fd72155addc69ab1 (diff) | |
| download | gcc-af10c962b79c17291250df314d2adb17f11e2355.zip gcc-af10c962b79c17291250df314d2adb17f11e2355.tar.gz gcc-af10c962b79c17291250df314d2adb17f11e2355.tar.bz2 | |
ada: Factor out tag assignments from type in expander
They are performed in a few different places during expansion.
gcc/ada/
* exp_util.ads (Make_Tag_Assignment_From_Type): Declare.
* exp_util.adb (Make_Tag_Assignment_From_Type): New function.
* exp_aggr.adb (Build_Record_Aggr_Code): Call the above function.
(Initialize_Simple_Component): Likewise.
* exp_ch3.adb (Build_Record_Init_Proc.Build_Assignment): Likewise.
(Build_Record_Init_Proc.Build_Init_Procedure ): Likewise.
(Make_Tag_Assignment): Likewise. Rename local variable and call
Unqualify to go through qualified expressions.
* exp_ch4.adb (Expand_Allocator_Expression): Likewise.
Diffstat (limited to 'gcc/tree-ssa-loop-ivopts.h')
0 files changed, 0 insertions, 0 deletions