diff options
Diffstat (limited to 'src/bundles-containers.adb')
-rw-r--r-- | src/bundles-containers.adb | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/src/bundles-containers.adb b/src/bundles-containers.adb index 8ba0d30..029d7c0 100644 --- a/src/bundles-containers.adb +++ b/src/bundles-containers.adb @@ -20,24 +20,15 @@ package body Bundles.Containers is use type Bundle_Maps.Cursor; use type Bundle_Vectors.Vector; - procedure Update_Bundle - (B : in out Bundle) is - begin - Add (B, Item); - end Update_Bundle; - - procedure Update_Vector - (C : in Candidates.CandidateID; - V : in out Bundle_Vectors.Vector) is - begin - V.Update_Element (V.First_Index, Update_Bundle'Access); - end Update_Vector; - Place : Candidates.CandidateID := Item (Given_Prefs.Preference_Range'First); Current_Cursor : Bundle_Maps.Cursor := BMap.Find (Place); begin if Current_Cursor /= Bundle_Maps.No_Element then - BMap.Update_Element (Current_Cursor, Update_Vector'Access); + declare + Vec_Ref : Bundle_Maps.Reference_Type := BMap.Reference (Current_Cursor); + begin + Add (Vec_Ref.Reference (Vec_Ref.First_Index), Item); + end; else declare New_Bundle : Bundle := Empty_Bundle; |