From c3b78f3370c1def22ff7240045d174fb120714e9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 2 Apr 2020 19:48:17 +0200
Subject: grt: slightly simplify the interface.

---
 src/vhdl/simulate/simul-simulation-main.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/vhdl/simulate')

diff --git a/src/vhdl/simulate/simul-simulation-main.adb b/src/vhdl/simulate/simul-simulation-main.adb
index fcac44e3d..956d0f3dc 100644
--- a/src/vhdl/simulate/simul-simulation-main.adb
+++ b/src/vhdl/simulate/simul-simulation-main.adb
@@ -1212,7 +1212,7 @@ package body Simul.Simulation.Main is
    procedure Simulation_Entity (Top_Conf : Iir_Design_Unit)
    is
       use Grt.Errors;
-      Stop : Boolean;
+      Ok : C_Boolean;
       Status : Integer;
    begin
       Break_Time := Std_Time'Last;
@@ -1225,8 +1225,8 @@ package body Simul.Simulation.Main is
          Debug (Reason_Start);
       end if;
 
-      Grt.Main.Run_Elab (Stop);
-      if Stop then
+      Ok := Grt.Main.Run_Elab;
+      if not Ok then
          return;
       end if;
 
-- 
cgit v1.2.3