Commit 361e12ab authored by yoogx's avatar yoogx

* (Unit_Name): special processing for Standard package

parent cda5b018
......@@ -3245,6 +3245,10 @@ package body Ocarina.Backends.Ada_Tree.Nutils is
Fatal => True);
end if;
if To_Lower (Name_Buffer (1 .. Pos - 1)) = "standard" then
return No_Name;
end if;
Set_Str_To_Name_Buffer (Name_Buffer (1 .. Pos - 1));
return Name_Find;
end Unit_Name;
......
......@@ -948,7 +948,8 @@ package Ocarina.Backends.Ada_Tree.Nutils is
function Unit_Name (N : Name_Id) return Name_Id;
-- Given an ENTITY fully qualified name A.B.C.D, returns A.B.C
-- Raises an arror if the name does not contains any dot.
-- Raises an error if the name does not contains any dot.
-- Return No_Name is unit name is Standard
function Local_Name (N : Name_Id) return Name_Id;
-- Given an ENTITY fully qualified name A.B.C.D, returns D
......
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