* Get_List_Property: handle case for empty list property

          values



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@4965 129961e7-ef38-4bb5-a8f7-c9a525a55882

src/core/instance/ocarina-instances-queries.adb

@@ -455,9 +455,11 @@ package body Ocarina.Instances.Queries is
          return No_List;
       end if;
 
-      if No (ATN.First_Node
-               (Expanded_Multi_Value
-                  (AIN.Property_Association_Value (Property))))
+      if Present (Expanded_Multi_Value
+                    (AIN.Property_Association_Value (Property)))
+        and then No (ATN.First_Node
+                       (Expanded_Multi_Value
+                          (AIN.Property_Association_Value (Property))))
       then
          return Multi_Value
               (AIN.Property_Association_Value (Property));