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-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=0.8 required=3.0 tests=BAYES_50,FREEMAIL_FROM,
	T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:a05:620a:489:b0:6fe:c76e:2ad9 with SMTP id 9-20020a05620a048900b006fec76e2ad9mr4701813qkr.35.1670325229325;
        Tue, 06 Dec 2022 03:13:49 -0800 (PST)
X-Received: by 2002:a05:622a:1386:b0:3a6:18ff:c6c1 with SMTP id
 o6-20020a05622a138600b003a618ffc6c1mr64497873qtk.683.1670325229081; Tue, 06
 Dec 2022 03:13:49 -0800 (PST)
Path: eternal-september.org!reader01.eternal-september.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 6 Dec 2022 03:13:48 -0800 (PST)
Injection-Info: google-groups.googlegroups.com; posting-host=184.98.49.135; posting-account=x5rpZwoAAABMN2XPwcebPWPkebpwQNJG
NNTP-Posting-Host: 184.98.49.135
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <dc9f378b-d21b-48a1-b28c-c47e64eea9bcn@googlegroups.com>
Subject: New compiler error with new compiler
From: Jerry <list_email@icloud.com>
Injection-Date: Tue, 06 Dec 2022 11:13:49 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2529
Xref: reader01.eternal-september.org comp.lang.ada:64675
List-Id: <comp.lang.ada>

As mentioned in a recent post, I changed from a 2015 GNAT on Mac Intel to 2=
022 compiler on Mac ARM.

I don't know if this is of interest but I am now getting a compiler error t=
hat I never got before. It is in the Ada bindings to MPFR https://www.mpfr.=
org/. The problematic code is in this SVN checkout that I have never laid e=
yes on but which worked well in the past, certainly without compiler errors=
.

The error that I am now getting is=20

mpfr-floats.adb:788:27: error: duplication of choice value: 15 at line 787

Here are lines around the referenced lines from that file. The first line (=
function...) is numbered 783.

   function Generic_Round (X : MPFR_Float) return F
   is begin
      case F'Base'Digits is
      when Float'Digits           =3D> return F(mpfr_get_flt(X.Value, defau=
lt_rounding_mode));
      when Long_Float'Digits      =3D> return F(mpfr_get_d  (X.Value, defau=
lt_rounding_mode));
      when Long_Long_Float'Digits =3D> return F(mpfr_get_ld (X.Value, defau=
lt_rounding_mode));
      when others                 =3D> raise Constraint_Error;
      end case;
   end Generic_Round;

When I comment out line 788 the error does not appear. I have not used this=
 binding for a long time and have not tested it today so I don't know the e=
ffect of this modification. The file is several years old and I don't know =
if the current code base for the bindings is the same--my concern here is t=
he new Ada compiler complaint.

Jerry