Commit aa9396b8 authored by jhugues's avatar jhugues
Browse files

* Get_List_Property: handle case for empty list property


git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 83700a5f
......@@ -455,9 +455,11 @@ package body Ocarina.Instances.Queries is
return No_List;
end if;
if No (ATN.First_Node
(AIN.Property_Association_Value (Property))))
if Present (Expanded_Multi_Value
(AIN.Property_Association_Value (Property)))
and then No (ATN.First_Node
(AIN.Property_Association_Value (Property))))
return Multi_Value
(AIN.Property_Association_Value (Property));
Supports Markdown
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