grt.arch not used anymore

1 files changed, 4 insertions, 16 deletions

diff --git a/translate/grt/grt-processes.ads b/translate/grt/grt-processes.ads
index 777b9ddfc..2ef0653c5 100644
--- a/translate/grt/grt-processes.ads
+++ b/translate/grt/grt-processes.ads
@@ -16,7 +16,6 @@
 --  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 --  02111-1307, USA.
 with System;
-with GNAT.Table;
 with Grt.Stack2; use Grt.Stack2;
 with Grt.Types; use Grt.Types;
 with Grt.Signals; use Grt.Signals;
@@ -119,7 +118,10 @@ package Grt.Processes is
    procedure Ghdl_Protected_Init (Obj : System.Address);
    procedure Ghdl_Protected_Fini (Obj : System.Address);
 
-   --  Access to a process subprogram.
+   type Process_Type is private;
+   type Process_Acc is access all Process_Type;
+private
+      --  Access to a process subprogram.
    type Proc_Acc is access procedure (Self : System.Address);
 
    --  Simply linked list for sensitivity.
@@ -178,22 +180,8 @@ package Grt.Processes is
 
       --  Sensitivity list.
       Sensitivity : Sensitivity_Acc;
-
-      Stats_Time : Ghdl_U64;
-      Stats_Run : Ghdl_U32;
    end record;
 
-   type Process_Acc is access all Process_Type;
-
-   --  Table of processes.
-   package Process_Table is new GNAT.Table
-     (Table_Component_Type => Process_Type,
-      Table_Index_Type => Process_Id,
-      Table_Low_Bound => 1,
-      Table_Initial => 16,
-      Table_Increment => 100);
-private
-
    pragma Export (C, Ghdl_Process_Register,
                   "__ghdl_process_register");
    pragma Export (C, Ghdl_Sensitized_Process_Register,