Re: Gnu Emacs Ada mode 7.1.6 released.

[Stephen Leake <stephen_leake@stephe-leake.org>]

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