diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-12-29 00:42:25 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-03 05:28:25 -0400 |
| commit | 044e51e07bca39f9d5a28144120e80bc42285eb8 (patch) | |
| tree | 80c1c936187fbcc3c7fa5b7af1701c773c14a8e5 /gcc/ada | |
| parent | 3477e0b2473d95d82a128d21aae44db0d353203c (diff) | |
| download | gcc-044e51e07bca39f9d5a28144120e80bc42285eb8.zip gcc-044e51e07bca39f9d5a28144120e80bc42285eb8.tar.gz gcc-044e51e07bca39f9d5a28144120e80bc42285eb8.tar.bz2 | |
[Ada] Remove unused initial values in expansion of distributed calls
gcc/ada/
* exp_dist.adb (Build_From_Any_Call): Remove initial value for
Fnam; fix style.
(Build_To_Any_Call): Remove initial value for Fnam.
(Build_TypeCode_Call): Likewise.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 2d3f75d..ab66744 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -8444,9 +8444,9 @@ package body Exp_Dist is is Loc : constant Source_Ptr := Sloc (N); - U_Type : Entity_Id := Underlying_Type (Typ); + U_Type : Entity_Id := Underlying_Type (Typ); - Fnam : Entity_Id := Empty; + Fnam : Entity_Id; Lib_RE : RE_Id := RE_Null; Result : Node_Id; @@ -8516,7 +8516,7 @@ package body Exp_Dist is -- Integer types elsif U_Type = RTE (RE_Integer_8) then - Lib_RE := RE_FA_I8; + Lib_RE := RE_FA_I8; elsif U_Type = RTE (RE_Integer_16) then Lib_RE := RE_FA_I16; @@ -9243,7 +9243,7 @@ package body Exp_Dist is Typ : Entity_Id := Etype (N); U_Type : Entity_Id; C_Type : Entity_Id; - Fnam : Entity_Id := Empty; + Fnam : Entity_Id; Lib_RE : RE_Id := RE_Null; begin @@ -10101,7 +10101,7 @@ package body Exp_Dist is -- The full view, if Typ is private; the completion, -- if Typ is incomplete. - Fnam : Entity_Id := Empty; + Fnam : Entity_Id; Lib_RE : RE_Id := RE_Null; Expr : Node_Id; |