diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-07-05 22:12:59 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-05 22:12:59 +1000 |
| commit | 36a5b38d4602aab2ab8607069282afc7ce0c392b (patch) | |
| tree | 8907ed02fce539bd6e4ca6e9f27cb46899729195 /src/bundles-containers.ads | |
| parent | 52eb6622ee81c50dd41cfbc8ba53cc210c0e9b1e (diff) | |
Removed extraneous Candidate_Range type in Bundles.Containers
Diffstat (limited to 'src/bundles-containers.ads')
| -rw-r--r-- | src/bundles-containers.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/bundles-containers.ads b/src/bundles-containers.ads index 1982693..8caf263 100644 --- a/src/bundles-containers.ads +++ b/src/bundles-containers.ads @@ -6,19 +6,19 @@ with generic - type Candidate_Range is range <>; + Min_Valid : Candidates.CandidateID; + Max_Valid : Candidates.CandidateID; package Bundles.Containers is package Bundle_Vectors is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => Bundle); - - subtype Bundle_Vector is Bundle_Vectors.Vector; - type Bundle_Collection is array (Candidate_Range) of Bundle_Vector; + subtype Valid_CandidateID is Candidates.CandidateID range Min_Valid .. Max_Valid; + type Bundle_Collection is array (Valid_CandidateID) of Bundle_Vector; procedure Read_Bundles |