diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2020-07-02 23:39:06 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-19 05:53:37 -0400 |
commit | 2e2e6cf16f994a6cabed477ce779656f346a9f76 (patch) | |
tree | fbb834ba4ce7af5877e9b371582e0228f82a99fd /gcc/ada | |
parent | fa366a96d003a3868dd33dd6a3c36eda3240a659 (diff) | |
download | gcc-2e2e6cf16f994a6cabed477ce779656f346a9f76.zip gcc-2e2e6cf16f994a6cabed477ce779656f346a9f76.tar.gz gcc-2e2e6cf16f994a6cabed477ce779656f346a9f76.tar.bz2 |
[Ada] Simplify detection of by-copy types
gcc/ada/
* exp_ch6.adb (Expand_Actuals): Simplify condition for by-copy
types.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/exp_ch6.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 38d4c81..c059ee6 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -2366,9 +2366,7 @@ package body Exp_Ch6 is elsif Nkind (Actual) = N_Type_Conversion and then - (Is_Numeric_Type (E_Formal) - or else Is_Access_Type (E_Formal) - or else Is_Enumeration_Type (E_Formal) + (Is_Elementary_Type (E_Formal) or else Is_Bit_Packed_Array (Etype (Formal)) or else Is_Bit_Packed_Array (Etype (Expression (Actual))) |