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

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

git-svn-id: 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);
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