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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!.POSTED!not-for-mail
From: Paul Rubin <no.email@nospam.invalid>
Newsgroups: comp.lang.ada
Subject: Re: Toy computational "benchmark" in Ada (new blog post)
Date: Thu, 06 Jun 2019 23:42:44 -0700
Organization: A noiseless patient Spider
Message-ID: <87ef45x5ej.fsf@nightsong.com>
References: <55b14350-e255-406c-ab11-b824da77995b@googlegroups.com>
	<qdbt6v$7qa$1@dont-email.me>
	<6776b034-1318-49b3-8ff5-5a2f746fac9c@googlegroups.com>
	<87blzaxnei.fsf@nightsong.com>
	<ee39a5e8-7f11-4ad9-8966-d5d498bab02d@googlegroups.com>
	<87y32evsxm.fsf@nightsong.com>
	<e5547514-d098-4863-b0e4-a726910bcd25@googlegroups.com>
	<87pnnpx6ce.fsf@nightsong.com>
	<79e178f1-3aae-444a-a3d1-8414f9d2434e@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: reader02.eternal-september.org;
 posting-host="b0f0f522fb2e31df244925cac2903ee1";
	logging-data="28822"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+xEr1QEOiCIBkQGF7swpEu"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux)
Cancel-Lock: sha1:EATOZjwIi/TgY6x7mZzzsr9GFeY=
	sha1:Nfz+EP42EbvuugDmlvTjvmoCnU4=
Xref: reader01.eternal-september.org comp.lang.ada:56531
Date: 2019-06-06T23:42:44-07:00
List-Id: <comp.lang.ada>

David Trudgett <dktrudgett@gmail.com> writes:
> If you used the project file, it should be optimised, but it obviously
> isn't, so I don't know what you did. Try GNAT Community 2019 instead,
> perhaps?

With -O3 removed from the .gpr, I see this:

    .L58:
            movq    -72(%rbp), %rax
            cmpq    %rax, -40(%rbp)
            jg      .L69
            movq    -40(%rbp), %rax
            movq    432(%rbx), %rdx
            leaq    0(,%rax,8), %rcx
            subq    $8, %rcx
            addq    %rcx, %rdx
            movq    %rdx, -80(%rbp)
            movq    432(%rbx), %rdx
            movsd   -8(%rdx,%rax,8), %xmm1
            movq    432(%rbx), %rdx
            movsd   -8(%rdx,%rax,8), %xmm0
    .LEHE26:
            mulsd   %xmm1, %xmm0
            movsd   -112(%rbp), %xmm1
            addsd   %xmm1, %xmm0
            movsd   %xmm0, -112(%rbp)
            addq    $1, -40(%rbp)
            jmp     .L58

I probably can't do much more tonight, but might try a newer GNAT
version in the coming days.  I'll also try GCC 9 for the C++ version.