From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 23 Mar 2023 14:55:15 +0000 (+0100)
Subject: ada: Reorder components in Ada.Containers.Bounded_Doubly_Linked_Lists
X-Git-Tag: basepoints/gcc-15~8861
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2688795b716b1ec75826e150c2d1dd04c88f3ad6;p=thirdparty%2Fgcc.git

ada: Reorder components in Ada.Containers.Bounded_Doubly_Linked_Lists

gcc/ada/

	* libgnat/a-cbdlli.ads (List): Move Nodes component to the end.
---

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