From 1adf30f4a855256e8720d25d027ad89f3ff49e15 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 7 Jul 2017 01:09:41 +1000 Subject: Experimental multithreaded version of Read_Bundles added --- src/bundles-containers.ads | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/bundles-containers.ads') diff --git a/src/bundles-containers.ads b/src/bundles-containers.ads index 8caf263..1361026 100644 --- a/src/bundles-containers.ads +++ b/src/bundles-containers.ads @@ -8,6 +8,7 @@ with generic Min_Valid : Candidates.CandidateID; Max_Valid : Candidates.CandidateID; + Num_Threads : Positive := 2; package Bundles.Containers is @@ -26,6 +27,15 @@ package Bundles.Containers is Result : out Bundle_Collection); + -- Current implementation slightly faster, but not worth it. + -- Probably needs to be reworked to read in the entire file at once for decent + -- increase in speed, but that would involve approx doubling memory usage, + -- which is unacceptable. + procedure Read_Bundles_Threaded + (Filename : in String; + Result : out Bundle_Collection); + + end Bundles.Containers; -- cgit