Commit c0cdf91b authored by yoogx's avatar yoogx
Browse files

* Handle situation where the record term element is not a record type

        Fixes regression for properties like Transmission_Time

        For issue #30
parent 13da19e8
......@@ -3199,6 +3199,11 @@ package body Ocarina.Analyzer.AADL.Links is
-- iterate over the property designator until we
-- find the corresponding entity to operate on.
if Kind (Property_Type_Designator
(Entity
(Property_Type_Designator
(Property_Type)))) = K_Record_Type
then
List_Node := First_Node
(List_Items
(Property_Type_Designator
......@@ -3218,7 +3223,13 @@ package body Ocarina.Analyzer.AADL.Links is
end if;
List_Node := Next_Node (List_Node);
end loop;
else
Unit_Type := Unwind_Units_Type
(Root, Property_Type_Designator
(Entity
(Property_Type_Designator
(Property_Type))));
end if;
else
Unit_Type := Unwind_Units_Type (Root, Property_Type);
end if;
......
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