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 autolearn=ham
	autolearn_force=no version=3.4.6
Path: eternal-september.org!reader02.eternal-september.org!aioe.org!9CzwYWWlKVx8RMZd/VcwFg.user.46.165.242.75.POSTED!not-for-mail
From: Stephen Leake <stephen_leake@stephe-leake.org>
Newsgroups: comp.lang.ada
Subject: Re: Gnu Emacs Ada mode 7.1.6 released.
Date: Mon, 09 Aug 2021 14:18:41 -0700
Organization: Aioe.org NNTP Server
Message-ID: <86lf5a9v0u.fsf@stephe-leake.org>
References: <86tukal9h6.fsf@stephe-leake.org> <seg6p4$ui0$1@gioia.aioe.org>
	<ly8s1g1d5r.fsf@pushface.org> <lyh7g4f1o8.fsf@pushface.org>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: gioia.aioe.org; logging-data="58616"; posting-host="9CzwYWWlKVx8RMZd/VcwFg.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (windows-nt)
Cancel-Lock: sha1:wUbZHkM5Viq+MsDkLndRxdHjOuM=
X-Notice: Filtered by postfilter v. 0.9.2
Xref: reader02.eternal-september.org comp.lang.ada:62494
List-Id: <comp.lang.ada>

Simon Wright <simon@pushface.org> writes:

>
> I got a successful build with macOS GNAT CE 2021. However, using it
> failed with
>
> Execution of /Users/simon/.emacs.d/elpa/ada-mode-7.1.6/gpr_query
> terminated by unhandled exception
> raised PROGRAM_ERROR : gnatcoll-sql_impl.adb:198 accessibility check failed
>
> which is an unfortunate bleeding-edge interaction between the compiler
> and gnatcoll-db:v21.0.0 (there are mutterings in the source at this line
> about "GNAT bug OB03-009").

I tried to attach a patch for that, but nntp.aioe.org says "441 Invalid
Content type" even for text/plain. So I include it inline below; it
applies to the 21.2 release branch of gnatcoll-sql from github AdaCore.
I guess I should have included it in 3.1.8.

> Which version of gnatcoll-db did you use, Fernando? The ada-mode README
> isn't very prescriptive.

ada-mode.info has more detail in the Install section.

-------------- gnatcoll-2021-sql.patch -----------------
--- sql/gnatcoll-sql_impl.adb.orig	2021-05-20 01:25:55.000000000 -0700
+++ sql/gnatcoll-sql_impl.adb	2021-06-21 09:44:09.437292100 -0700
@@ -188,15 +188,9 @@
         (Self         : Field;
          To           : in out SQL_Field_List'Class;
          Is_Aggregate : in out Boolean)
-      is
-         FC : access SQL_Field_Internal'Class;
-      begin
+      is begin
          if not Self.Data.Is_Null then
-            --  !!! Could not use Element call result in the
-            --  Append_If_Not_Aggregate parameter because of GNAT bug OB03-009
-
-            FC := Self.Data.Get.Element;
-            Append_If_Not_Aggregate (FC, To, Is_Aggregate);
+            Append_If_Not_Aggregate (Self.Data.Get.Element, To, Is_Aggregate);
          end if;
       end Append_If_Not_Aggregate;
    end Data_Fields;
---------------------------

-- 
-- Stephe