From aa60f5dd7b2bd3d34f1e98af744cbb2c227ae4c7 Mon Sep 17 00:00:00 2001 From: Tupone Alfredo Date: Sat, 11 Mar 2017 23:02:02 +0100 Subject: dev-lang/gnat-gpl: Fix build when using something like ADA=gcc-4.9.4 Package-Manager: portage-2.3.3 --- dev-lang/gnat-gpl/files/gnat-gpl-2016-gentoo.patch | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'dev-lang') diff --git a/dev-lang/gnat-gpl/files/gnat-gpl-2016-gentoo.patch b/dev-lang/gnat-gpl/files/gnat-gpl-2016-gentoo.patch index b715a006c218..ba037507aff3 100644 --- a/dev-lang/gnat-gpl/files/gnat-gpl-2016-gentoo.patch +++ b/dev-lang/gnat-gpl/files/gnat-gpl-2016-gentoo.patch @@ -37,3 +37,21 @@ %{!fsyntax-only:%(invoke_as)}}}}", 0, 0, 1}, {"-", "%{!E:%e-E or -x required when input is from standard input}\ +--- gcc-4.9-gpl-2016-src/gcc/ada/osint.adb.old 2017-03-10 21:58:02.600710156 +0100 ++++ gcc-4.9-gpl-2016-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' -- cgit v1.2.3-65-gdbad