From 2688795b716b1ec75826e150c2d1dd04c88f3ad6 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 23 Mar 2023 15:55:15 +0100 Subject: [PATCH] ada: Reorder components in Ada.Containers.Bounded_Doubly_Linked_Lists gcc/ada/ * libgnat/a-cbdlli.ads (List): Move Nodes component to the end. --- gcc/ada/libgnat/a-cbdlli.ads | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/libgnat/a-cbdlli.ads b/gcc/ada/libgnat/a-cbdlli.ads index 961a00726c41..b88105364588 100644 --- a/gcc/ada/libgnat/a-cbdlli.ads +++ b/gcc/ada/libgnat/a-cbdlli.ads @@ -276,12 +276,12 @@ private type Node_Array is array (Count_Type range <>) of Node_Type; type List (Capacity : Count_Type) is tagged record - Nodes : Node_Array (1 .. Capacity); Free : Count_Type'Base := -1; First : Count_Type := 0; Last : Count_Type := 0; Length : Count_Type := 0; TC : aliased Tamper_Counts; + Nodes : Node_Array (1 .. Capacity); end record with Put_Image => Put_Image; procedure Put_Image -- 2.47.3