Commit e620213c authored by hugues.jerome's avatar hugues.jerome

* (Name_Find): return No_Name if Name_Len = 0



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1372 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 947b4fc8
......@@ -437,7 +437,10 @@ package body Namet is
begin
-- Quick handling for one character names
if Name_Len = 1 then
if Name_Len = 0 then
return No_Name;
elsif Name_Len = 1 then
return Name_Id (First_Name_Id + Character'Pos (Name_Buffer (1)));
-- Otherwise search hash table for existing matching entry
......
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