From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:a05:622a:34c:: with SMTP id r12mr32589581qtw.196.1625819639453;
        Fri, 09 Jul 2021 01:33:59 -0700 (PDT)
X-Received: by 2002:a25:6b0c:: with SMTP id g12mr40801144ybc.303.1625819639232;
 Fri, 09 Jul 2021 01:33:59 -0700 (PDT)
Path: eternal-september.org!reader02.eternal-september.org!news.mixmin.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 9 Jul 2021 01:33:59 -0700 (PDT)
In-Reply-To: <sc7d65$1kcq$1@gioia.aioe.org>
Injection-Info: google-groups.googlegroups.com; posting-host=89.8.153.148; posting-account=uulyKwoAAAA86DO0ODu--rZtbje8Sytn
NNTP-Posting-Host: 89.8.153.148
References: <cd296b88-2e0a-403f-82c7-973e41fa7331n@googlegroups.com>
 <sc4fuo$8vn$1@gioia.aioe.org> <e9hbeg9014he87s6kbrkinrt4tre1cfgqc@4ax.com>
 <ly8s2iorpl.fsf@pushface.org> <5a1cegtfm5ibqej3ldebpc4g99ujniqt9u@4ax.com>
 <a0080e82-2f52-4fd7-9c44-6bc2d8f0664bn@googlegroups.com> <sc6cgh$9vu$1@dont-email.me>
 <sc6kqh$1sj$1@dont-email.me> <sc6lba$1vma$1@gioia.aioe.org>
 <sc6mit$ddv$1@dont-email.me> <sc7d65$1kcq$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <d4b4342e-b2ef-4ed3-a586-85b4c5c8bd9dn@googlegroups.com>
Subject: Re: Not good for Ada endorsement
From: Egil H H <ehh.public@gmail.com>
Injection-Date: Fri, 09 Jul 2021 08:33:59 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:62364
List-Id: <comp.lang.ada>

On Thursday, July 8, 2021 at 7:38:19 PM UTC+2, Luke A. Guest wrote:
> On 08/07/2021 12:12, Jeffrey R. Carter wrote: 
> 
> >> He also uses clang's -Ofast option to compile for speed over size. 
> > 
> > Going back to 64-bit integers gives 1999; with -gnatp, 2098 
> >
> I've uploaded my version here 
> https://github.com/Lucretia/Primes/tree/add-optimised-ada/PrimeAda/solution_2 
> 
> It's as straight a conversion from the C++ to Ada. I intend to keep 
> optimising it.

On my computer, at least, GNAT is not happy about incrementing Number by 2
in the inner loop. I get a bit better performance by modifying the check to

      if Number mod 2 /= 0 and then Sieve.Bits(Index_Type(Number)) then

and then incrementing Number by 1.

Or even rewriting to a for-loop

         Is_Prime : for Foo in Index_Type (Factor)..Sieve.Size loop
            if Foo mod 2 /= 0 and then Sieve.Bits (Foo) then
               Factor := Integer(Foo);
               exit Is_Prime;
            end if;
         end loop Is_Prime;