diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
commit | ce10f7dbd57cb5d2273567aa536bfce79620849c (patch) | |
tree | 62fdd99a17aa09a04166e014444aeb8b732dce81 /src/grt/grt-errors.ads | |
parent | ab70415983fec433dd35aea6cc8b107699a5aff0 (diff) | |
download | ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.gz ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.bz2 ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.zip |
Rework callbacks, support cocotb.
Diffstat (limited to 'src/grt/grt-errors.ads')
-rw-r--r-- | src/grt/grt-errors.ads | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads index 833cded1b..bb7aab9a4 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; - |