Re: Lancement de script à la fin de la c ompilation avec Gprbuild dans GNATStudio

Bonjour David,

J'ai voulu intégrer gnatgpr dans ma chaîne (puis l'intégrer dans AIDE
v2) mais à la compil par gnat-bin.gpr :


gnat_gpr.adb:512:30: error: no selector "Debug_Text" for private type
"Ada_Node" defined at libadalang-analysis.ads:78
gnat_gpr.adb:524:39: error: no selector "Debug_Text" for private type
"Ada_Node" defined at libadalang-analysis.ads:78
gnat_gpr.adb:1402:59: error: no selector "Debug_Text" for private type
"Ada_Node" defined at libadalang-analysis.ads:78
gnat_gpr.adb:1421:68: error: no selector "Debug_Text" for private type
"Ada_Node" defined at libadalang-analysis.ads:78


Dans gnatgpr, pour la première erreur, les autres sont identiques, pour
te repérer... dans gnat_gpr.adb

--------------------------
if Status then
               if R.Kind = Libadalang.Common.Ada_Identifier then
   512   Add_Unit (R.Debug_Text);
               elsif R.Kind = Libadalang.Common.Ada_Name_List then
                  declare
                     Name_List : constant Libadalang.Analysis.Name_List
:= Libadalang.Analysis.As_Name_List (R);
                     Status    :          Boolean
:= False;
                     R         :          Libadalang.Analysis.Ada_Node;
                  begin
                     for I in Name_List.First_Child_Index ..
Name_List.Last_Child_Index loop
                        Name_List.Get_Child (Index           => I,
                                             Index_In_Bounds => Status,
                                             Result          => R);
                        if Status then
   524   Add_Unit (R.Debug_Text);
                        end if;
                     end loop;
                  end;
               end if;
--------------------------

Je suis en CE21... plus de CE20 ici mais je peux réinstaller rapidement
si nécessaire...

Moi, libadalang, je suis un peu sec (euphémisme). C'est certainement
rien du tout, si tu peux me donner quelques pistes pour chercher...

L'île coté Atlantique te salue bien :)

-- 
Stéphane Rivière
Ile d'Oléron - France
_______________________________________________
Ada-france mailing list
[email protected]
https://mail.ada-france.org/cgi-bin/mailman/listinfo/ada-france