diff options
Diffstat (limited to 'translate/grt/grt-processes.ads')
| -rw-r--r-- | translate/grt/grt-processes.ads | 20 |
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, |