diff options
Diffstat (limited to 'gcc/ada/a-comutr.ads')
| -rw-r--r-- | gcc/ada/a-comutr.ads | 34 |
1 files changed, 28 insertions, 6 deletions
diff --git a/gcc/ada/a-comutr.ads b/gcc/ada/a-comutr.ads index 6a9cfdecee1..d2291df0ce4 100644 --- a/gcc/ada/a-comutr.ads +++ b/gcc/ada/a-comutr.ads @@ -113,15 +113,37 @@ package Ada.Containers.Multiway_Trees is (Container : Tree; Item : Element_Type) return Cursor; + -- This version of the AI: + -- 10-06-02 AI05-0136-1/07 + -- declares Find_In_Subtree this way: + -- + -- function Find_In_Subtree + -- (Container : Tree; + -- Item : Element_Type; + -- Position : Cursor) return Cursor; + -- + -- It seems that the Container parameter is there by mistake, but we need + -- an official ruling from the ARG. ??? + function Find_In_Subtree - (Container : Tree; - Item : Element_Type; - Position : Cursor) return Cursor; + (Position : Cursor; + Item : Element_Type) return Cursor; + + -- This version of the AI: + -- 10-06-02 AI05-0136-1/07 + -- declares Ancestor_Find this way: + -- + -- function Ancestor_Find + -- (Container : Tree; + -- Item : Element_Type; + -- Position : Cursor) return Cursor; + -- + -- It seems that the Container parameter is there by mistake, but we need + -- an official ruling from the ARG. ??? function Ancestor_Find - (Container : Tree; - Item : Element_Type; - Position : Cursor) return Cursor; + (Position : Cursor; + Item : Element_Type) return Cursor; function Contains (Container : Tree; |