From 2e2e6cf16f994a6cabed477ce779656f346a9f76 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 2 Jul 2020 23:39:06 +0200 Subject: [PATCH] [Ada] Simplify detection of by-copy types gcc/ada/ * exp_ch6.adb (Expand_Actuals): Simplify condition for by-copy types. --- gcc/ada/exp_ch6.adb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 38d4c81141d..c059ee6276e 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))) -- 2.30.2