diff options
Diffstat (limited to 'gcc/ada/a-cohama.ads')
| -rw-r--r-- | gcc/ada/a-cohama.ads | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/gcc/ada/a-cohama.ads b/gcc/ada/a-cohama.ads index 62773833246..a13d14c2cca 100644 --- a/gcc/ada/a-cohama.ads +++ b/gcc/ada/a-cohama.ads @@ -311,10 +311,19 @@ package Ada.Containers.Hashed_Maps is for Reference_Type'Read use Read; function Constant_Reference - (Container : Map; Key : Key_Type) -- SHOULD BE ALIASED + (Container : aliased Map; Position : Cursor) return Constant_Reference_Type; - function Reference (Container : Map; Key : Key_Type) + function Reference + (Container : aliased in out Map; Position : Cursor) + return Reference_Type; + + function Constant_Reference + (Container : aliased Map; Key : Key_Type) + return Constant_Reference_Type; + + function Reference + (Container : aliased in out Map; Key : Key_Type) return Reference_Type; procedure Iterate |