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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,3a6a9f1d654285ba
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news1.google.com!news.glorb.com!news-out.readnews.com!transit3.readnews.com!newsfeed.news2me.com!news.skynet.be!195.238.0.222.MISMATCH!newsspl501.isp.belgacom.be!tjb!not-for-mail
Date: Thu, 03 Sep 2009 15:44:41 +0200
From: Olivier Scalbert <olivier.scalbert@algosyn.com>
User-Agent: Thunderbird 2.0.0.23 (X11/20090817)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Ada Shootout program for K-Nucleotide (patches)
References: <4a743343$0$32674$9b4e6d93@newsspool2.arcor-online.net>
 <3f9f9e21-e088-4fbe-baac-dd43fdf6b911@r38g2000yqn.googlegroups.com>
 <4a757b0d$0$31328$9b4e6d93@newsspool4.arcor-online.net>
In-Reply-To: <4a757b0d$0$31328$9b4e6d93@newsspool4.arcor-online.net>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <4a9fc85a$0$2850$ba620e4c@news.skynet.be>
Organization: -= Belgacom Usenet Service =-
NNTP-Posting-Host: 96f91229.news.skynet.be
X-Trace: 1251985498 news.skynet.be 2850 81.246.238.10:39930
X-Complaints-To: usenet-abuse@skynet.be
Xref: g2news2.google.com comp.lang.ada:8125
Date: 2009-09-03T15:44:41+02:00
List-Id: <comp.lang.ada>

Georg Bauhaus wrote:
> jonathan wrote:
>> I forgot to add I used:
>>
>>   gnatmake -gnatnp -O3 -funroll-all-loops -march=native knucleotide
>>
>> with a running time of (usually)  7.25 sec on the 25Meg data file:
>>
>>     time ./knucleotide < fasta25.dat
> 
> Thanks for running the program, glad to hear how they work.
> 
> Meanwhile I have a tasking version which runs a little (25%)
> faster.  The two new changes are
> 
> 1 - make 3 additional tasks call Write; round robin
> 
> 2 - order the results using a protected Printer object
>  with entry families.  Heck, these entry families have clever
>  features! :-)
> 
> 
> http://home.arcor.de/bauhaus/Ada/knucleotide.tasking.gnat

Hi,

Same result for me !

One question:
I have tried to profile knucleotide, so I have recompile it after 
removing all the inlines and optimization:

gnatmake -gnatNp -march=native -g -pg -f knucleotide.adb -o 
knucleotide.gnat_run

After running it with the 25M file, I have:
$ gprof ./knucleotide.gnat_run -b
Flat profile:

Each sample counts as 0.01 seconds.
   %   cumulative   self              self     total
  time   seconds   seconds    calls   s/call   s/call  name
100.00     19.30    19.30        1    19.30    19.30  _ada_knucleotide
   0.00     19.30     0.00        1     0.00     0.00  adainit


			Call graph


granularity: each sample hit covers 4 byte(s) for 0.05% of 19.30 seconds

index % time    self  children    called     name
                                                  <spontaneous>
[1]    100.0    0.00   19.30                 main [1]
                19.30    0.00       1/1           _ada_knucleotide [2]
                 0.00    0.00       1/1           adainit [3]
-----------------------------------------------
                              279444692             _ada_knucleotide [2]
                19.30    0.00       1/1           main [1]
[2]    100.0   19.30    0.00       1+279444692 _ada_knucleotide [2]
                              279444692             _ada_knucleotide [2]
-----------------------------------------------
                 0.00    0.00       1/1           main [1]
[3]      0.0    0.00    0.00       1         adainit [3]
-----------------------------------------------


Index by function name

    [2] _ada_knucleotide        [3] adainit

Why I do not see all the different functions and procedures ? Should I 
miss something ?

Thanks,

Olivier