diff options
Diffstat (limited to 'gcc/ada/a-cohase.adb')
| -rw-r--r-- | gcc/ada/a-cohase.adb | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/a-cohase.adb b/gcc/ada/a-cohase.adb index eab8a4056fe..bde87049485 100644 --- a/gcc/ada/a-cohase.adb +++ b/gcc/ada/a-cohase.adb @@ -977,20 +977,19 @@ package body Ada.Containers.Hashed_Sets is (Container : Set; Process : not null access procedure (Position : Cursor)) is - procedure Process_Node (Node : Node_Access); + procedure Process_Node (Node : Node_Access; Position : Hash_Type); pragma Inline (Process_Node); procedure Iterate is - new HT_Ops.Generic_Iteration (Process_Node); + new HT_Ops.Generic_Iteration_With_Position (Process_Node); ------------------ -- Process_Node -- ------------------ - procedure Process_Node (Node : Node_Access) is + procedure Process_Node (Node : Node_Access; Position : Hash_Type) is begin - Process - (Cursor'(Container'Unrestricted_Access, Node, Hash_Type'Last)); + Process (Cursor'(Container'Unrestricted_Access, Node, Position)); end Process_Node; Busy : With_Busy (Container.HT.TC'Unrestricted_Access); |