Commit 947b4fc8 authored by hugues.jerome's avatar hugues.jerome

* (Image): protect the case where Backup is No_Name



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1371 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent ad7a1418
......@@ -71,7 +71,10 @@ package body Locations is
Result := Namet.Name_Find;
-- Restore backup into name buffer
Namet.Get_Name_String (Backup);
if Backup /= Types.No_Name then
Namet.Get_Name_String (Backup);
end if;
-- Return result using a Get_Name_String variant with no side effect
return Namet.Get_Name_String (Result);
......
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