From dfa1e1e8029dee2959742b73ed8a0fc96e22c8de Mon Sep 17 00:00:00 2001 From: Alejandro R Mosteo Date: Tue, 26 May 2020 17:36:09 +0200 Subject: [PATCH] Fixes for GNAT CE 2020 (#423) The images for CentOS (unsupported Linux) and debian+community have been upgraded to use GNAT CE 2020. A few minor errors newly detected have been fixed, related to anonymous access types and explicit aliased arguments. --- deps/aaa | 2 +- deps/gnatcoll-slim | 2 +- src/alire/alire-releases.adb | 7 ++++++- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/deps/aaa b/deps/aaa index 39ff3bfd..2812d257 160000 --- a/deps/aaa +++ b/deps/aaa @@ -1 +1 @@ -Subproject commit 39ff3bfde5abb1f426848e0001f3fa3e39122cf2 +Subproject commit 2812d2572da77f9d9d5e6900905585a7bfdc4c3d diff --git a/deps/gnatcoll-slim b/deps/gnatcoll-slim index 7f30f267..e14248fd 160000 --- a/deps/gnatcoll-slim +++ b/deps/gnatcoll-slim @@ -1 +1 @@ -Subproject commit 7f30f2678d53f2528f53b74d75582582e63ff763 +Subproject commit e14248fd9b750f997080f94580aae68df2773c64 diff --git a/src/alire/alire-releases.adb b/src/alire/alire-releases.adb index 12363988..ba98d480 100644 --- a/src/alire/alire-releases.adb +++ b/src/alire/alire-releases.adb @@ -759,6 +759,11 @@ package body Alire.Releases is function With_Pin (Base : Release; Pinned : Boolean) return Release - is ((Base with delta Pinned => Pinned)); + is + begin + return Result : Release := Base do + Result.Pinned := Pinned; + end return; + end With_Pin; end Alire.Releases; -- 2.39.5