diff options
Diffstat (limited to 'gcc/ada/a-crbltr.ads')
| -rw-r--r-- | gcc/ada/a-crbltr.ads | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/gcc/ada/a-crbltr.ads b/gcc/ada/a-crbltr.ads index c3ce433ed6b..30ceff71cc9 100644 --- a/gcc/ada/a-crbltr.ads +++ b/gcc/ada/a-crbltr.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2010, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -48,4 +48,21 @@ package Ada.Containers.Red_Black_Trees is end record; end Generic_Tree_Types; + generic + type Node_Type is private; + package Generic_Bounded_Tree_Types is + type Nodes_Type is array (Count_Type range <>) of Node_Type; + + type Tree_Type (Capacity : Count_Type) is tagged record + First : Count_Type := 0; + Last : Count_Type := 0; + Root : Count_Type := 0; + Length : Count_Type := 0; + Busy : Natural := 0; + Lock : Natural := 0; + Free : Count_Type'Base := -1; + Nodes : Nodes_Type (1 .. Capacity); + end record; + end Generic_Bounded_Tree_Types; + end Ada.Containers.Red_Black_Trees; |