From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 85B7D398B864; Thu, 8 Jul 2021 13:36:49 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 85B7D398B864 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-2151] [Ada] Skip types in error for test to compute array size X-Act-Checkin: gcc X-Git-Author: Yannick Moy X-Git-Refname: refs/heads/master X-Git-Oldrev: cd4341ef953bc5697917b3e6e43c59be03da0bee X-Git-Newrev: 6cb2bcba3f31c6ec93fe76ff5e0f67db43556ef7 Message-Id: <20210708133649.85B7D398B864@sourceware.org> Date: Thu, 8 Jul 2021 13:36:49 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 08 Jul 2021 13:36:49 -0000 https://gcc.gnu.org/g:6cb2bcba3f31c6ec93fe76ff5e0f67db43556ef7 commit r12-2151-g6cb2bcba3f31c6ec93fe76ff5e0f67db43556ef7 Author: Yannick Moy Date: Wed May 26 14:54:02 2021 +0200 [Ada] Skip types in error for test to compute array size gcc/ada/ * layout.adb (Layout_Type): Do not call Number_Dimensions if the type does not have First_Index set. Diff: --- gcc/ada/layout.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index ee8e281785e..de731932d32 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -498,6 +498,7 @@ package body Layout is -- in GNAT, i.e. when Packed_Array_Impl_Type is set. if Is_Array_Type (E) + and then Present (First_Index (E)) -- Skip types in error and then Number_Dimensions (E) = 1 and then not Present (Packed_Array_Impl_Type (E)) and then Has_Pragma_Pack (E)