From 6cb2bcba3f31c6ec93fe76ff5e0f67db43556ef7 Mon Sep 17 00:00:00 2001 From: Yannick Moy Date: Wed, 26 May 2021 14:54:02 +0200 Subject: [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. --- gcc/ada/layout.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc') diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index ee8e281..de73193 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) -- cgit v1.1