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.8 required=5.0 tests=BAYES_00,PLING_QUERY
	autolearn=no autolearn_force=no version=3.4.4
Path: 
 border1.nntp.dca3.giganews.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!nx02.iad01.newshosting.com!newshosting.com!217.73.144.44.MISMATCH!ecngs!feeder.ecngs.de!sequencer.elbracht.net!news6.united-newsserver.de!not-for-mail
From: Michael Erdmann <michael.erdmann@snafu.de>
Subject: Re: Q: Binding tasks to CPU's seems not to work with Task_Info
 pragma?!
Newsgroups: comp.lang.ada
References: <52067edc$0$82030$afc38c87@news5.united-newsserver.de>
 <9330a5a6-8740-436e-bb75-e990ce565038@googlegroups.com>
 <520699bb$0$2256$afc38c87@news6.united-newsserver.de>
 <kubgti$lei$1@loke.gir.dk>
User-Agent: Pan/0.139 (Sexual Chocolate; GIT bf56508 git://git.gnome.org/pan2)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Date: 13 Aug 2013 04:29:29 GMT
Message-ID: <5209b629$0$92294$afc38c87@news6.united-newsserver.de>
Organization: united-newsserver, Premium-Usenet
NNTP-Posting-Date: 13 Aug 2013 06:29:29 CEST
NNTP-Posting-Host: 72750c39.news6.united-newsserver.de
X-Trace: DXC=CW\F4XFZoJEkd2\S5ASi]IK=DUJ=O8K_@`P[ek5W0_<GG76QG[<BD;
 E]FBMChn=lgDcdJ2fea>`FKAI; he6:; 7TM\5FO>ka9MMN
X-Complaints-To: abuse@united-newsserver.de
X-Original-Bytes: 3226
Xref: number.nntp.dca.giganews.com comp.lang.ada:183000
Date: 2013-08-13T06:29:29+02:00
List-Id: <comp.lang.ada>

On Mon, 12 Aug 2013 15:34:58 -0500, Randy Brukardt wrote:

> Why are you using that rather than the Ada 2012 pragma (or better yet, 
> aspect) CPU?
I did not now it; GPS does not show this Pargma; anyway the following
construct

     task type Task_Type( id : Natural ) with CPU => CPU_Range(Id) ;
      type Task_Access is access all Task_Type;

      task body Task_Type is 
      begin
 
         while true loop
            null;
         end loop;
         
         Put_Line("Terminated");
      end;

yields constant the utilization below:

Cpu0  :100.0%us,  0.0%sy,  0.0%ni,  0.0%id,  0.0%wa,  0.0%hi,  0.0%si,  0.0%st
Cpu1  :100.0%us,  0.0%sy,  0.0%ni,  0.0%id,  0.0%wa,  0.0%hi,  0.0%si,  0.0%st
Cpu2  :100.0%us,  0.0%sy,  0.0%ni,  0.0%id,  0.0%wa,  0.0%hi,  0.0%si,  0.0%st
Cpu3  :100.0%us,  0.0%sy,  0.0%ni,  0.0%id,  0.0%wa,  0.0%hi,  0.0%si,  0.0%st
Cpu4  :  0.0%us,  0.0%sy,  0.0%ni,100.0%id,  0.0%wa,  0.0%hi,  0.0%si,  0.0%st
Cpu5  :  0.0%us,  0.0%sy,  0.0%ni,100.0%id,  0.0%wa,  0.0%hi,  0.0%si,  0.0%st
Cpu6  :  0.0%us,  0.0%sy,  0.0%ni, 99.7%id,  0.0%wa,  0.0%hi,  0.0%si,  0.3%st
Cpu7  :  0.0%us,  0.3%sy,  0.0%ni, 99.7%id,  0.0%wa,  0.0%hi,  0.0%si,  0.0%st
Mem:   3981796k total,   738592k used,  3243204k free,      860k buffers

Thanxs
   /Michael



> 
>      task type Task_Type (Id : Ada.Multiprocessors.CPU) is
>          pragma Priority(4);
>          pragma CPU(Id);
>       end Task_Type;
> 
> or better still:
> 
>      task type Task_Type (Id : Ada.Multiprocessors.CPU)
>        with Priority => 4, CPU => Id is
>      end Task_Type;
> 
>                              Randy.
> 
> "Michael Erdmann" <michael.erdmann@snafu.de> wrote in message 
> news:520699bb$0$2256$afc38c87@news6.united-newsserver.de...
>> On Sat, 10 Aug 2013 12:17:03 -0700, AdaMagica wrote:
>>
>>> Pragma Task_Info is not standard Ada. Must be GNAT specific.
>>
>> Yes; it is GNAT specific:
>>
>> http://gcc.gnu.org/onlinedocs/gnat_rm/Pragma-Task_005fInfo.html
>>
>>
>> /Michael
>>