From ce10f7dbd57cb5d2273567aa536bfce79620849c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Oct 2015 07:11:28 +0100
Subject: Rework callbacks, support cocotb.

---
 src/grt/grt-errors.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/grt/grt-errors.adb')

diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb
index 66dfbf1dd..62ee86e2e 100644
--- a/src/grt/grt-errors.adb
+++ b/src/grt/grt-errors.adb
@@ -48,8 +48,7 @@ package body Grt.Errors is
 
    procedure Exit_Simulation is
    begin
-      --  -2 is Grt.Errors.Run_Stop
-      Maybe_Return_Via_Longjump (-2);
+      Maybe_Return_Via_Longjump (Run_Stop);
       Internal_Error ("exit_simulation");
    end Exit_Simulation;
 
-- 
cgit v1.2.3