From b75d703676ab830ea3e5731e1965d1d89879a456 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 29 Aug 2015 07:57:12 +0200
Subject: Replace fat accesses by bounds accesses

translate: separate info for signals from object.
Improve some error messages.
---
 src/grt/grt-lib.ads | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'src/grt/grt-lib.ads')

diff --git a/src/grt/grt-lib.ads b/src/grt/grt-lib.ads
index dcd2c55..82fee91 100644
--- a/src/grt/grt-lib.ads
+++ b/src/grt/grt-lib.ads
@@ -95,17 +95,8 @@ package Grt.Lib is
 
    function Ghdl_Get_Resolution_Limit return Std_Time;
 
-   type Ghdl_Control_Simulation_Params is record
-      Stop : Ghdl_B1;
-      Has_Status : Ghdl_B1;
-      Status : Std_Integer;
-   end record;
-
-   type Ghdl_Control_Simulation_Params_Ptr is access
-     Ghdl_Control_Simulation_Params;
-
    procedure Ghdl_Control_Simulation
-     (Params : Ghdl_Control_Simulation_Params_Ptr);
+     (Stop : Ghdl_B1; Has_Status : Ghdl_B1; Status : Std_Integer);
 private
    pragma Export (C, Ghdl_Memcpy, "__ghdl_memcpy");
 
-- 
cgit