Replace fat accesses by bounds accesses

translate: separate info for signals from object.
Improve some error messages.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/grt/grt-lib.adb b/src/grt/grt-lib.adb
index b4505adb6..d2b095c67 100644
--- a/src/grt/grt-lib.adb
+++ b/src/grt/grt-lib.adb
@@ -272,25 +272,25 @@ package body Grt.Lib is
    end Ghdl_Get_Resolution_Limit;
 
    procedure Ghdl_Control_Simulation
-     (Params : Ghdl_Control_Simulation_Params_Ptr) is
+     (Stop : Ghdl_B1; Has_Status : Ghdl_B1; Status : Std_Integer) is
    begin
       Report_H;
       --  Report_C (Grt.Options.Progname);
       Report_C ("simulation ");
-      if Params.Stop then
+      if Stop then
          Report_C ("stopped");
       else
          Report_C ("finished");
       end if;
       Report_C (" @");
       Report_Now_C;
-      if Params.Has_Status then
+      if Has_Status then
          Report_C (" with status ");
-         Report_C (Integer (Params.Status));
+         Report_C (Integer (Status));
       end if;
       Report_E ("");
-      if Params.Has_Status then
-         Exit_Status := Integer (Params.Status);
+      if Has_Status then
+         Exit_Status := Integer (Status);
       end if;
       Exit_Simulation;
    end Ghdl_Control_Simulation;