diff options
Diffstat (limited to 'dev-ada/libgpr/files/libgpr-2019-gentoo.patch')
| -rw-r--r-- | dev-ada/libgpr/files/libgpr-2019-gentoo.patch | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/dev-ada/libgpr/files/libgpr-2019-gentoo.patch b/dev-ada/libgpr/files/libgpr-2019-gentoo.patch new file mode 100644 index 000000000000..b7b9a2d3c870 --- /dev/null +++ b/dev-ada/libgpr/files/libgpr-2019-gentoo.patch @@ -0,0 +1,55 @@ +--- a/gpr/src/gpr-env.adb 2017-11-13 22:16:53.349083426 +0100 ++++ b/gpr/src/gpr-env.adb 2017-11-13 22:17:22.692590351 +0100 +@@ -1948,6 +1948,8 @@ + + end if; + ++ Add_Directories (Self, "/usr/share/gpr"); ++ + if Gpr_Prj_Path.all /= "" then + Add_Directories (Self, Gpr_Prj_Path.all); + end if; +--- a/gpr/src/gpr-names.ads 2017-11-19 13:09:18.947527738 +0100 ++++ b/gpr/src/gpr-names.ads 2017-11-19 13:10:08.125654595 +0100 +@@ -27,6 +27,8 @@ + Name_Buffer : String (1 .. 1_000_000); + Name_Len : Natural := 0; + ++ Last_Id : Name_Id := Name_Id'First; ++ + procedure Get_Name_String (Id : Name_Id); + procedure Get_Name_String (Id : Unit_Name_Type); + procedure Get_Name_String (Id : File_Name_Type); +--- a/gpr/src/gpr-names.adb 2017-11-19 13:10:27.674316703 +0100 ++++ b/gpr/src/gpr-names.adb 2017-11-19 13:14:38.360963627 +0100 +@@ -354,6 +354,8 @@ + + Name_Chars.Append (ASCII.NUL); + ++ Last_Id := Name_Entries.Last; ++ + return Name_Entries.Last; + end Name_Enter; + +@@ -427,6 +429,8 @@ + + Name_Chars.Append (ASCII.NUL); + ++ Last_Id := Name_Entries.Last; ++ + return Name_Entries.Last; + end Name_Find; + +--- a/gpr/src/gpr-snames.adb 2017-11-19 13:12:41.592995718 +0100 ++++ b/gpr/src/gpr-snames.adb 2017-11-19 13:16:31.980979696 +0100 +@@ -53,6 +53,10 @@ + return; + end if; + ++ if Last_Id = Name_Id'First then ++ Add_Name (""); ++ end if; ++ + Add_Name ("a"); + Add_Name ("b"); + Add_Name ("c"); |