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=-1.9 required=3.0 tests=BAYES_00,FREEMAIL_FROM,
	T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:a05:620a:44d0:b0:74e:37dd:6197 with SMTP id y16-20020a05620a44d000b0074e37dd6197mr5247224qkp.8.1685858959274;
        Sat, 03 Jun 2023 23:09:19 -0700 (PDT)
X-Received: by 2002:a81:ad06:0:b0:565:bf4b:de20 with SMTP id
 l6-20020a81ad06000000b00565bf4bde20mr2389005ywh.2.1685858958989; Sat, 03 Jun
 2023 23:09:18 -0700 (PDT)
Path: eternal-september.org!news.eternal-september.org!border-1.nntp.ord.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 3 Jun 2023 23:09:18 -0700 (PDT)
In-Reply-To: <u54a6t$1tlq7$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=2a02:1210:2e90:8100:3889:c279:77ac:9df9;
 posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG
NNTP-Posting-Host: 2a02:1210:2e90:8100:3889:c279:77ac:9df9
References: <ed019b00-8ca1-4d26-ba6d-4059c8f6679fn@googlegroups.com>
 <u52vvf$2nb$1@shakotay.alphanet.ch> <beb0109b-0674-4ac4-a9ac-1b57fbf2bba4n@googlegroups.com>
 <u54a6t$1tlq7$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9a893d03-ccf9-46cb-b7f0-1e46263cf8b0n@googlegroups.com>
Subject: Re: Ann: GWindows release, 29-May-2023
From: Gautier write-only address <gautier_niouzes@hotmail.com>
Injection-Date: Sun, 04 Jun 2023 06:09:19 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Xref: news.eternal-september.org comp.lang.ada:65288
List-Id: <comp.lang.ada>

On Tuesday, May 30, 2023 at 9:56:17=E2=80=AFAM UTC+2, Jeffrey R.Carter wrot=
e:

> I took a quick look. Wouldn't all of Gnatcom need to be replaced?=20

Good question.
When I compile a project using GWindows, GNAT uses 10 of the 53 GNATCOM pac=
kages.
One GNATism is 4x 'Unrestricted_Access in GNATCOM.Types, for accesses such =
as:

   VARIANT_MISSING : aliased constant VARIANT :=3D
     (VT_ERROR, 0, 0, 0, u =3D> (Which =3D> 8, scode =3D> DISP_E_PARAMNOTFO=
UND));
   PVARIANT_MISSING : Pointer_To_VARIANT :=3D
      VARIANT_MISSING'Unrestricted_Access;

that could be either resolved into a standard Ada form or exiled into anoth=
er package (GWindows doesn't need them).
Something thougher is a couple of intrinsic imports (sync_add_and_fetch, sy=
nc_sub_and_fetch):
   function sync_add_and_fetch
     (Ref : access Interfaces.Unsigned_32;
      Add : Interfaces.Unsigned_32)
      return Interfaces.Unsigned_32
     with
       Import,
       Convention =3D> Intrinsic,
       External_Name =3D> "__sync_add_and_fetch_4";

which seems to be specific to GCC (and actually, not even all versions of G=
CC...)