From ee043778d9323fa1879389dee570c87d8f3903a7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 25 Jan 2014 07:21:37 +0100
Subject: Get rid of union in ghdl_rtin_unit.

Replace ghdl_rtik_unit with ghdl_rtik_unit64 and ghdl_rtik_unitptr.
(Preliminary work for llvm).
---
 translate/grt/grt-rtis_addr.adb | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'translate/grt/grt-rtis_addr.adb')

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