aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Botcazou <ebotcazou@adacore.com>2023-03-23 15:55:15 +0100
committerMarc Poulhiès <poulhies@adacore.com>2023-05-26 09:29:18 +0200
commit2688795b716b1ec75826e150c2d1dd04c88f3ad6 (patch)
tree4043b429e6005dc0c179293c64470f5bbac34d0a
parent1ad8da08d62f5e3293a8b2506b1397009c483630 (diff)
downloadgcc-2688795b716b1ec75826e150c2d1dd04c88f3ad6.zip
gcc-2688795b716b1ec75826e150c2d1dd04c88f3ad6.tar.gz
gcc-2688795b716b1ec75826e150c2d1dd04c88f3ad6.tar.bz2
ada: Reorder components in Ada.Containers.Bounded_Doubly_Linked_Lists
gcc/ada/ * libgnat/a-cbdlli.ads (List): Move Nodes component to the end.
-rw-r--r--gcc/ada/libgnat/a-cbdlli.ads2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/libgnat/a-cbdlli.ads b/gcc/ada/libgnat/a-cbdlli.ads
index 961a007..b881053 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