dev-ada/gtkada: support gcc:16

Signed-off-by: Alfredo Tupone <tupone@gentoo.org>
This commit is contained in:
Alfredo Tupone 2025-12-07 22:47:03 +01:00
parent 4a389ce6b1
commit 76ad6e70ad
No known key found for this signature in database
GPG Key ID: FBE5925C5B02CE58
2 changed files with 39 additions and 2 deletions

View File

@ -0,0 +1,34 @@
From 26be71ad32cb5edd4c2bf5b45e92e2ae664eb957 Mon Sep 17 00:00:00 2001
From: Javier Miranda <miranda@adacore.com>
Date: Sat, 4 Oct 2025 07:06:34 +0000
Subject: [PATCH] Fix sources after enforcing RM 8.6(27.1) in the compiler
* gtkada-canvas_view.ads (Inner_Most_Item): Add explicit type conversion.
For eng/toolchain/gnat#1292
---
src/gtkada-canvas_view.ads | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/gtkada-canvas_view.ads b/src/gtkada-canvas_view.ads
index 6038fe8cc..7ad5321af 100644
--- a/src/gtkada-canvas_view.ads
+++ b/src/gtkada-canvas_view.ads
@@ -589,7 +589,7 @@ package Gtkada.Canvas_View is
(Self : not null access Canvas_Item_Record;
Dummy_At_Point : Model_Point;
Dummy_Context : Draw_Context)
- return Abstract_Item is (Self);
+ return Abstract_Item is (Abstract_Item (Self));
overriding function Position
(Self : not null access Canvas_Item_Record) return Gtkada.Style.Point;
overriding function Contains
@@ -2027,7 +2027,7 @@ package Gtkada.Canvas_View is
(Self : not null access Canvas_Link_Record;
Dummy_At_Point : Model_Point;
Dummy_Context : Draw_Context)
- return Abstract_Item is (Self);
+ return Abstract_Item is (Abstract_Item (Self));
overriding function Parent
(Self : not null access Canvas_Link_Record)
return Abstract_Item is (null);

View File

@ -3,7 +3,7 @@
EAPI=8
ADA_COMPAT=( gcc_{12..15} )
ADA_COMPAT=( gcc_{12..16} )
inherit ada autotools multiprocessing
DESCRIPTION="A complete Ada graphical toolkit"
@ -30,7 +30,10 @@ DEPEND="${RDEPEND}
REQUIRED_USE="${ADA_REQUIRED_USE}"
PATCHES=( "${FILESDIR}"/${PN}-23.0.0-gentoo.patch )
PATCHES=(
"${FILESDIR}"/${PN}-23.0.0-gentoo.patch
"${FILESDIR}"/${P}-gcc16.patch
)
src_prepare() {
default