Commit c8e7379f authored by yoogx's avatar yoogx
Browse files

* Defend against a dubious iteration over Expanded_Multi_Value

          that is null for record properties.

          For github ticket #17
parent 1c7c282a
......@@ -553,18 +553,25 @@ package body Ocarina.Instances.Properties is
(Duplicated_Property_Value,
Multi_Value (Duplicated_Property_Value));
List_Node :=
ATN.First_Node (Expanded_Multi_Value (Property_Value));
while Present (List_Node) loop
Append_Node_To_List
(Instantiate_Property_Value
(Instance_Root,
List_Node,
Instance),
Multi_Value (Duplicated_Property_Value));
List_Node := ATN.Next_Node (List_Node);
end loop;
if Present (Expanded_Multi_Value (Property_Value)) then
-- XXX It appears that for record properties,
-- Expanded_Multi_Value is set to No_Node. An
-- inspection of the declarative tree reveals this
-- seems OK. To be investigated further
List_Node :=
ATN.First_Node (Expanded_Multi_Value (Property_Value));
while Present (List_Node) loop
Append_Node_To_List
(Instantiate_Property_Value
(Instance_Root,
List_Node,
Instance),
Multi_Value (Duplicated_Property_Value));
List_Node := ATN.Next_Node (List_Node);
end loop;
end if;
end if;
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