From cd3f5933f6028245d42787430400fde9fe900a3a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Laurent=20Th=C3=A9venoux?= Date: Mon, 11 Dec 2023 12:26:04 +0100 Subject: [PATCH] Adapt to libadalang API change In part of the work to support the GNAT experimental feature allowing to have fixed lower bounds for array types and subtypes in libadalang, `UnconstrainedArrayIndex.F_Subtype_Indication` (an Expr node) has been renamed to `UnconstrainedArrayIndex.F_Subtype_Name` (a Name node) in order to fix a bug in the Ada grammar description of libadalang. --- src/tgen/tgen-types-translation.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/tgen/tgen-types-translation.adb b/src/tgen/tgen-types-translation.adb index 94c90647..3258bac5 100644 --- a/src/tgen/tgen-types-translation.adb +++ b/src/tgen/tgen-types-translation.adb @@ -1444,7 +1444,8 @@ package body TGen.Types.Translation is declare Index_Type : constant Translation_Result := Translate - (Index.F_Subtype_Indication.As_Type_Expr, Verbose_Diag); + (Index.F_Subtype_Name.As_Name.P_Name_Designated_Type, + Verbose_Diag); begin if Index_Type.Success then Res_Typ.Index_Types (Current_Index_Type) := Index_Type.Res;