From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.36.17.151 with SMTP id 145mr4563630itf.35.1508704282948; Sun, 22 Oct 2017 13:31:22 -0700 (PDT) X-Received: by 10.157.41.135 with SMTP id n7mr390321otb.5.1508704282924; Sun, 22 Oct 2017 13:31:22 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!paganini.bofh.team!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!k70no3693171itk.0!news-out.google.com!p6ni2272itp.0!nntp.google.com!l196no3686292itl.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Sun, 22 Oct 2017 13:31:22 -0700 (PDT) In-Reply-To: <6GNGB.8746$pB6.5265@fx46.am4> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=217.226.43.121; posting-account=5zx--goAAAD06H29EnWQGKTO-gctuXHl NNTP-Posting-Host: 217.226.43.121 References: <498648ad-7a60-4847-b272-772383d197d0@googlegroups.com> <6GNGB.8746$pB6.5265@fx46.am4> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <6f8044ec-b448-4b48-a896-6fac1d13dfbf@googlegroups.com> Subject: Re: Poor performance after upgrate to xubuntu 17.10 From: Charly Injection-Date: Sun, 22 Oct 2017 20:31:22 +0000 Content-Type: text/plain; charset="UTF-8" Xref: news.eternal-september.org comp.lang.ada:48568 Date: 2017-10-22T13:31:22-07:00 List-Id: > > I had a little look at your code. The main part is > > declare > > Worker : Ta_Parallel.Processes > (1 .. Ta_Types_Pkg.Proc_Id_Type(Task_Count)); > > begin > > Ta_Parallel.Initialize(Verbose_Level); > > for Idx in Worker'Range loop > > Worker (Idx).Start (Idx); > > end loop; > > for Idx in Worker'Range loop > > Worker (Idx).Wait (Res); > > end loop; > > end; > > The problem here is the Wait line. After you start the tasks you then > wait for each one to complete *in order*. So you are at the mercy of > the scheduling algorithm in how it schedules the first task. Maybe when > N=4 it starts 1, 2 3, 4 but completes 4, 3, 2, 1! > > When you exit the block all tasks will have completed so you don't > really need the Wait. > > Chris > > -- > sig pending (since 1995) Hi Chris, I tried your suggestion, but I didn't have any noticeable effekt. Charly