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

---
 src/grt/grt-errors.ads | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

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

diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads
index 833cded..bb7aab9 100644
--- a/src/grt/grt-errors.ads
+++ b/src/grt/grt-errors.ads
@@ -79,6 +79,18 @@ package Grt.Errors is
    Exit_Status : Integer := 0;
    procedure Exit_Simulation;
 
+   --  Simulation status,
+   --  Runtime error.
+   Run_Error : constant Integer := -1;
+   --  No process has been run.
+   Run_None : constant Integer := 1;
+   --  At least one process was run.
+   Run_Resumed : constant Integer := 2;
+   --  Simulation is finished.
+   Run_Finished : constant Integer := 3;
+   --  Stop/finish request from user (via std.env).
+   Run_Stop : constant Integer := 4;
+
    --  Hook called in case of error.
    Error_Hook : Grt.Hooks.Proc_Hook_Type := null;
 
@@ -89,4 +101,3 @@ private
    pragma Export (C, Grt_Overflow_Error, "grt_overflow_error");
    pragma Export (C, Grt_Null_Access_Error, "grt_null_access_error");
 end Grt.Errors;
-
-- 
cgit