* (Unit_Name): special processing for Standard package

src/backends/ocarina-backends-ada_tree-nutils.adb

@@ -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;

src/backends/ocarina-backends-ada_tree-nutils.ads

@@ -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