Commit 8d493901 authored by yoogx's avatar yoogx
Browse files

* Continue processing of record elements, case of property

          definition declaration

          For issue #17
parent 78b0160b
...@@ -2581,7 +2581,10 @@ package body Ocarina.Analyzer.AADL.Links is ...@@ -2581,7 +2581,10 @@ package body Ocarina.Analyzer.AADL.Links is
Message1 => "does not point to anything"); Message1 => "does not point to anything");
Success := False; Success := False;
elsif Kind (Pointed_Node) /= K_Property_Type_Declaration then elsif (Kind (Pointed_Node) /= K_Property_Type_Declaration
and then Kind (Pointed_Node)
/= K_Property_Definition_Declaration)
then
DAE DAE
(Node1 => Node, (Node1 => Node,
Message1 => " points to ", Message1 => " points to ",
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment