diff --git a/alire.toml b/alire.toml index 1823f3c..d2b4dbe 100644 --- a/alire.toml +++ b/alire.toml @@ -1,6 +1,6 @@ name = "dependency_graph_extractor" description = "Extract dependency information from Ada projects" -version = "22.0.0" +version = "23.0.0" licenses = "BSD-3-Clause" website = "https://github.com/TNO/Dependency_Graph_Extractor-Ada" tags = ["extract", "dependency", "analysis", "graph", "graphml"] @@ -12,4 +12,4 @@ maintainers-logins = ["pjljvandelaar"] executables = ["dependency_graph_extractor"] [[depends-on]] -libadalang = "^22.0.0" \ No newline at end of file +libadalang = "^23.0.0" \ No newline at end of file diff --git a/src/extraction-primitive_subps.adb b/src/extraction-primitive_subps.adb index 501691a..ae0c1ba 100644 --- a/src/extraction-primitive_subps.adb +++ b/src/extraction-primitive_subps.adb @@ -4,14 +4,13 @@ with Extraction.Utilities; package body Extraction.Primitive_Subps is use type LAL.Analysis_Unit; - use type LALCO.Ada_Node_Kind_Type; procedure Extract_Nodes (Node : LAL.Ada_Node'Class; Graph : Graph_Operations.Graph_Context) is begin if Utilities.Is_Relevant_Basic_Decl (Node) - and then Node.Kind = LALCO.Ada_Type_Decl + and then Node.Kind in LALCO.Ada_Type_Decl then declare Type_Decl : constant LAL.Type_Decl := Node.As_Type_Decl; @@ -34,7 +33,7 @@ package body Extraction.Primitive_Subps is is begin if Utilities.Is_Relevant_Basic_Decl (Node) - and then Node.Kind = LALCO.Ada_Type_Decl + and then Node.Kind in LALCO.Ada_Type_Decl then declare Type_Decl : constant LAL.Type_Decl := Node.As_Type_Decl;