testing on 7.2
This commit is contained in:
+3
-3
@@ -52,7 +52,7 @@ package body Alire.Index is
|
||||
-- Optional
|
||||
Dependencies : Release_Dependencies := No_Dependencies;
|
||||
Properties : Release_Properties := No_Properties;
|
||||
Alr_Properties : Build_Properties := No_Properties;
|
||||
Private_Properties : Build_Properties := No_Properties;
|
||||
Available_When : Alire.Requisites.Tree := No_Requisites)
|
||||
return Release
|
||||
is
|
||||
@@ -69,7 +69,7 @@ package body Alire.Index is
|
||||
-- end if;
|
||||
-- end loop;
|
||||
--
|
||||
-- for P of Alr_Properties.All_Values loop
|
||||
-- for P of Private_Properties.All_Values loop
|
||||
-- if P not in Alire.Properties.Labeled.Label and then
|
||||
-- Alire.Properties.Labeled.Label (P).Name /= GPR_Config
|
||||
-- then
|
||||
@@ -83,7 +83,7 @@ package body Alire.Index is
|
||||
Version,
|
||||
Origin,
|
||||
Dependencies,
|
||||
Properties => Alr_Properties and Properties,
|
||||
Properties => Private_Properties and Properties,
|
||||
Available => Available_When)
|
||||
do
|
||||
if Catalog.Contains (Rel) then
|
||||
|
||||
+2
-2
@@ -59,11 +59,11 @@ package Alire.Index is
|
||||
-- Optional
|
||||
Dependencies : Release_Dependencies := No_Dependencies;
|
||||
Properties : Release_Properties := No_Properties;
|
||||
Alr_Properties : Build_Properties := No_Properties;
|
||||
Private_Properties : Build_Properties := No_Properties;
|
||||
Available_When : Alire.Requisites.Tree := No_Requisites)
|
||||
return Release;
|
||||
-- Properties are generally interesting to the user
|
||||
-- Alr_Properties are only interesting to alr
|
||||
-- Private_Properties are only interesting to alr
|
||||
|
||||
subtype Platform_Independent_Path is String with Dynamic_Predicate =>
|
||||
(for all C of Platform_Independent_Path => C /= '\');
|
||||
|
||||
Reference in New Issue
Block a user