From 52eb6622ee81c50dd41cfbc8ba53cc210c0e9b1e Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 5 Jul 2017 21:52:49 +1000 Subject: Simplified Bundle_Containers to use an array instead of a Map --- src/preferences.ads | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/preferences.ads') diff --git a/src/preferences.ads b/src/preferences.ads index d38b6ec..05ef3e1 100644 --- a/src/preferences.ads +++ b/src/preferences.ads @@ -10,13 +10,12 @@ private with generic - Pref_Size : Positive; Above_Ballot : Candidates.Containers.Above_Line_Ballot; Below_Ballot : Candidates.Containers.Below_Line_Ballot; package Preferences is - subtype Preference_Range is Positive range 1 .. Pref_Size; + subtype Preference_Range is Positive range 1 .. Integer (Below_Ballot.Length); type Preference_Array is array (Preference_Range) -- cgit