1 |
commit: 597ffa19f29851bae0be038fada18539f23c5eb9 |
2 |
Author: Tupone Alfredo <tupone <AT> gentoo <DOT> org> |
3 |
AuthorDate: Sun Nov 18 10:09:53 2018 +0000 |
4 |
Commit: Alfredo Tupone <tupone <AT> gentoo <DOT> org> |
5 |
CommitDate: Sun Nov 18 10:09:53 2018 +0000 |
6 |
URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=597ffa19 |
7 |
|
8 |
dev-ada/gnatcoll: require dev-ada/libgpr-2018 |
9 |
|
10 |
Signed-off-by: Alfredo Tupone <tupone <AT> gentoo.org> |
11 |
Package-Manager: Portage-2.3.51, Repoman-2.3.11 |
12 |
|
13 |
dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch | 62 +++++++++++++++++++++++ |
14 |
dev-ada/gnatcoll/gnatcoll-2017.ebuild | 2 +- |
15 |
2 files changed, 63 insertions(+), 1 deletion(-) |
16 |
|
17 |
diff --git a/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch b/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch |
18 |
index 36da82626f4..f0ec53f368e 100644 |
19 |
--- a/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch |
20 |
+++ b/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch |
21 |
@@ -142,3 +142,65 @@ |
22 |
GNAT_Version => GNAT_Version, |
23 |
Errors => Local_On_Error'Unrestricted_Access); |
24 |
Free (GNAT_Version); |
25 |
+--- a/src/gnatcoll-projects.adb 2018-11-14 18:47:27.760365233 +0100 |
26 |
++++ b/src/gnatcoll-projects.adb 2018-11-14 19:10:43.961337201 +0100 |
27 |
+@@ -3273,9 +3273,9 @@ |
28 |
+ Status : out Status_Type; |
29 |
+ Result : out GNATCOLL.VFS.File_Array_Access) |
30 |
+ is |
31 |
+- Mains_Str_List : String_List_Access; |
32 |
++ Mains_Str_List : String_Vectors.Vector; |
33 |
+ Closure_Status : GPR.Util.Status_Type; |
34 |
+- Closures_List : String_List_Access; |
35 |
++ Closures_List : String_Vectors.Vector; |
36 |
+ begin |
37 |
+ Trace (Me, "Get_Closures"); |
38 |
+ |
39 |
+@@ -3287,25 +3287,18 @@ |
40 |
+ return; |
41 |
+ end if; |
42 |
+ |
43 |
+- Mains_Str_List := new String_List (Mains'First .. Mains'Last); |
44 |
+ for I in Mains'Range loop |
45 |
+- Mains_Str_List (I) := new String'(Mains (I).Display_Base_Name); |
46 |
++ Mains_Str_List.Append (Mains (I).Display_Base_Name); |
47 |
+ end loop; |
48 |
+ |
49 |
+ GPR.Util.Get_Closures |
50 |
+ (Project.Get_View, Project.Tree_View, |
51 |
+- Mains => Mains_Str_List.all, |
52 |
++ Mains => Mains_Str_List, |
53 |
+ All_Projects => All_Projects, |
54 |
+ Include_Externally_Built => Include_Externally_Built, |
55 |
+ Status => Closure_Status, |
56 |
+ Result => Closures_List); |
57 |
+ |
58 |
+- -- Freeing temporary list of mains. |
59 |
+- for I in Mains_Str_List'Range loop |
60 |
+- Free (Mains_Str_List (I)); |
61 |
+- end loop; |
62 |
+- Free (Mains_Str_List); |
63 |
+- |
64 |
+ case Closure_Status is |
65 |
+ when Success => |
66 |
+ Status := Success; |
67 |
+@@ -3321,17 +3314,10 @@ |
68 |
+ end case; |
69 |
+ |
70 |
+ if Closure_Status in Success | Incomplete_Closure then |
71 |
+- for I in Closures_List'Range loop |
72 |
+- Append (Result, Create (+Closures_List (I).all)); |
73 |
++ for Closure of Closures_List loop |
74 |
++ Append (Result, Create (+Closure)); |
75 |
+ end loop; |
76 |
+ end if; |
77 |
+- |
78 |
+- -- Freeing temporary list of closures. |
79 |
+- for I in Closures_List'Range loop |
80 |
+- Free (Closures_List (I)); |
81 |
+- end loop; |
82 |
+- Free (Closures_List); |
83 |
+- |
84 |
+ end Get_Closures; |
85 |
+ |
86 |
+ ---------------- |
87 |
|
88 |
diff --git a/dev-ada/gnatcoll/gnatcoll-2017.ebuild b/dev-ada/gnatcoll/gnatcoll-2017.ebuild |
89 |
index 8790026af64..20e5c844541 100644 |
90 |
--- a/dev-ada/gnatcoll/gnatcoll-2017.ebuild |
91 |
+++ b/dev-ada/gnatcoll/gnatcoll-2017.ebuild |
92 |
@@ -35,7 +35,7 @@ RDEPEND="gnat_2016? ( dev-lang/gnat-gpl:4.9.4 ) |
93 |
postgres? ( dev-db/postgresql:* ) |
94 |
sqlite? ( dev-db/sqlite ) |
95 |
projects? ( |
96 |
- ~dev-ada/libgpr-2017[gnat_2016=,gnat_2017=,shared?,static-libs?] |
97 |
+ ~dev-ada/libgpr-2018[gnat_2016=,gnat_2017=,shared?,static-libs?] |
98 |
dev-ada/xmlada[shared?,static-libs?] |
99 |
)" |
100 |
DEPEND="${RDEPEND} |