[Ada] Simplify detection of by-copy types
authorPiotr Trojanek <trojanek@adacore.com>
Thu, 2 Jul 2020 21:39:06 +0000 (23:39 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 19 Oct 2020 09:53:37 +0000 (05:53 -0400)
gcc/ada/

* exp_ch6.adb (Expand_Actuals): Simplify condition for by-copy
types.

gcc/ada/exp_ch6.adb

index 38d4c81141d4575b763ec4015155e2b88d35612a..c059ee6276e596b6a8647cef56f2914bd97bd65c 100644 (file)
@@ -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)))