From bcba0a331ba86c7fbada7cf41a515e7af9cba0e2 Mon Sep 17 00:00:00 2001
From: Alejandro R Mosteo <amosteo@unizar.es>
Date: Mon, 18 May 2020 16:25:36 +0200
Subject: [PATCH] Fix a compilation error for some GNAT versions (#417)

---
 deps/semantic_versioning      | 2 +-
 src/alire/alire-solutions.adb | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/deps/semantic_versioning b/deps/semantic_versioning
index 0817a4a1..d025a2b6 160000
--- a/deps/semantic_versioning
+++ b/deps/semantic_versioning
@@ -1 +1 @@
-Subproject commit 0817a4a13838644422fc9e9e9a686a3a25dbbf06
+Subproject commit d025a2b6374ac6a19322fcc9fc606c73367ebf96
diff --git a/src/alire/alire-solutions.adb b/src/alire/alire-solutions.adb
index f3c4c7ac..e983cafb 100644
--- a/src/alire/alire-solutions.adb
+++ b/src/alire/alire-solutions.adb
@@ -193,14 +193,14 @@ package body Alire.Solutions is
 
    function With_Pins (This, Src : Solution) return Solution is
    begin
-      return This : Solution := With_Pins.This do
+      return Result : Solution := This do
          if not Src.Valid then
             return;
          end if;
 
          for Release of Src.Releases loop
             if Release.Is_Pinned then
-               This.Releases (Release.Name).Pin;
+               Result.Releases.Reference (Release.Name).Pin;
             end if;
          end loop;
       end return;
-- 
2.39.5