From 4aa060f0e235eca25107c78442f0dba4ec4bdf76 Mon Sep 17 00:00:00 2001 From: Tupone Alfredo Date: Fri, 31 May 2019 22:25:03 +0200 Subject: [PATCH] dev-lang/gnat-gpl: fix gnatmake using gcc-8.3.1 instead of gcc Signed-off-by: Alfredo Tupone Package-Manager: Portage-2.3.66, Repoman-2.3.11 --- .../gnat-gpl/files/gnat-gpl-2019-gentoo.patch | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/dev-lang/gnat-gpl/files/gnat-gpl-2019-gentoo.patch b/dev-lang/gnat-gpl/files/gnat-gpl-2019-gentoo.patch index 0be27c599964..36befaafc0f8 100644 --- a/dev-lang/gnat-gpl/files/gnat-gpl-2019-gentoo.patch +++ b/dev-lang/gnat-gpl/files/gnat-gpl-2019-gentoo.patch @@ -22,3 +22,21 @@ #include "confdefs.h" #if HAVE_DLFCN_H +--- a/gcc-8-2019-20190517-18C94-src/gcc/ada/osint.adb 2017-03-10 21:58:02.600710156 +0100 ++++ b/gcc-8-2019-20190517-18C94-src/gcc/ada/osint.adb 2017-03-10 21:59:38.033983293 +0100 +@@ -2229,14 +2229,11 @@ + for J in Start_Of_Prefix .. Name_Len - Prog'Length + 1 loop + if Name_Buffer (J .. J + Prog'Length - 1) = Prog then + End_Of_Prefix := J - 1; ++ Start_Of_Suffix := J + Prog'Length; + exit; + end if; + end loop; + +- if End_Of_Prefix > 1 then +- Start_Of_Suffix := End_Of_Prefix + Prog'Length + 1; +- end if; +- + -- Create the new program name + + return new String' -- 2.26.2