Commit 361e12ab authored by yoogx's avatar yoogx
Browse files

* (Unit_Name): special processing for Standard package

parent cda5b018
...@@ -3245,6 +3245,10 @@ package body Ocarina.Backends.Ada_Tree.Nutils is ...@@ -3245,6 +3245,10 @@ package body Ocarina.Backends.Ada_Tree.Nutils is
Fatal => True); Fatal => True);
end if; 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)); Set_Str_To_Name_Buffer (Name_Buffer (1 .. Pos - 1));
return Name_Find; return Name_Find;
end Unit_Name; end Unit_Name;
......
...@@ -948,7 +948,8 @@ package Ocarina.Backends.Ada_Tree.Nutils is ...@@ -948,7 +948,8 @@ package Ocarina.Backends.Ada_Tree.Nutils is
function Unit_Name (N : Name_Id) return Name_Id; function Unit_Name (N : Name_Id) return Name_Id;
-- Given an ENTITY fully qualified name A.B.C.D, returns A.B.C -- 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; function Local_Name (N : Name_Id) return Name_Id;
-- Given an ENTITY fully qualified name A.B.C.D, returns D -- Given an ENTITY fully qualified name A.B.C.D, returns D
......
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