Rework procedure calls, now use a record to pass parameters.

1 files changed, 11 insertions, 1 deletions

diff --git a/src/grt/grt-lib.ads b/src/grt/grt-lib.ads
index 50be6a7..dcd2c55 100644
--- a/src/grt/grt-lib.ads
+++ b/src/grt/grt-lib.ads
@@ -94,8 +94,18 @@ 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
-     (Stop : Ghdl_B1; Has_Status : Ghdl_B1; Status : Std_Integer);
+     (Params : Ghdl_Control_Simulation_Params_Ptr);
 private
    pragma Export (C, Ghdl_Memcpy, "__ghdl_memcpy");