Get rid of union in ghdl_rtin_unit.

Replace ghdl_rtik_unit with ghdl_rtik_unit64 and ghdl_rtik_unitptr.
(Preliminary work for llvm).

1 files changed, 0 insertions, 8 deletions

diff --git a/translate/grt/grt-rtis_addr.adb b/translate/grt/grt-rtis_addr.adb
index f846f38..adbedf7 100644
--- a/translate/grt/grt-rtis_addr.adb
+++ b/translate/grt/grt-rtis_addr.adb
@@ -274,14 +274,6 @@ package body Grt.Rtis_Addr is
         = Ghdl_Rti_Type_Anonymous;
    end Rti_Anonymous_Type;
 
-   function Rti_Non_Static_Physical_Type (Atype : Ghdl_Rti_Access)
-                                         return Boolean
-   is
-   begin
-      return (Atype.Mode and Ghdl_Rti_Type_Non_Static_Mask)
-        = Ghdl_Rti_Type_Non_Static;
-   end Rti_Non_Static_Physical_Type;
-
    function Get_Top_Context return Rti_Context
    is
       Ctxt : Rti_Context;