comp.lang.ada
 help / color / mirror / Atom feed
From: Charly <carl.weierstrass@googlemail.com>
Subject: Re: Poor performance after upgrate to xubuntu 17.10
Date: Sun, 22 Oct 2017 13:31:22 -0700 (PDT)
Date: 2017-10-22T13:31:22-07:00	[thread overview]
Message-ID: <6f8044ec-b448-4b48-a896-6fac1d13dfbf@googlegroups.com> (raw)
In-Reply-To: <6GNGB.8746$pB6.5265@fx46.am4>

> 
> 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


  reply	other threads:[~2017-10-22 20:31 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-10-21 10:41 Poor performance after upgrate to xubuntu 17.10 Charly
2017-10-21 19:58 ` Chris M Moore
2017-10-22 20:31   ` Charly [this message]
2017-10-22 22:04 ` Robert Eachus
2017-10-23  6:11   ` Luke A. Guest
2017-10-23  8:00     ` Mark Lorenzen
2017-10-25 18:56   ` Charly
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox