Commit 8d493901 authored by yoogx's avatar yoogx

* 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
Message1 => "does not point to anything");
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
(Node1 => Node,
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