From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 2 Jul 2020 21:39:06 +0000 (+0200)
Subject: [Ada] Simplify detection of by-copy types
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2e2e6cf16f994a6cabed477ce779656f346a9f76;p=gcc.git

[Ada] Simplify detection of by-copy types

gcc/ada/

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

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)))