simul-debugger: add run command.

2 files changed, 6 insertions, 3 deletions

diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb
index d5fcb4de7..a76eda7ed 100644
--- a/src/grt/grt-processes.adb
+++ b/src/grt/grt-processes.adb
@@ -1072,7 +1072,7 @@ package body Grt.Processes is
       end if;
    end Simulation_Cycle;
 
-   procedure Simulation_Init
+   function Simulation_Init return Integer
    is
       use Options;
    begin
@@ -1097,6 +1097,8 @@ package body Grt.Processes is
          --  zero after initialization.
          Grt.Hooks.Call_Cycle_Hooks;
       end if;
+
+      return 0;
    end Simulation_Init;
 
    function Has_Simulation_Timeout return Boolean
@@ -1164,7 +1166,8 @@ package body Grt.Processes is
       use Grt.Options;
       Status : Integer;
    begin
-      Simulation_Init;
+      Status := Simulation_Init;
+      pragma Assert (Status = 0);
 
       Status := Simulation_Main_Loop;
 
diff --git a/src/grt/grt-processes.ads b/src/grt/grt-processes.ads
index f431c7e2b..cd2475691 100644
--- a/src/grt/grt-processes.ads
+++ b/src/grt/grt-processes.ads
@@ -44,7 +44,7 @@ package Grt.Processes is
    function Simulation return Integer;
 
    --  Broken down version of Simulation.
-   procedure Simulation_Init;
+   function Simulation_Init return Integer;
    function Simulation_Cycle return Integer;
    procedure Simulation_Finish;