diff options
Diffstat (limited to 'translate/grt/grt-errors.adb')
| -rw-r--r-- | translate/grt/grt-errors.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/translate/grt/grt-errors.adb b/translate/grt/grt-errors.adb index 2d4d8f6..eddea38 100644 --- a/translate/grt/grt-errors.adb +++ b/translate/grt/grt-errors.adb @@ -46,6 +46,12 @@ package body Grt.Errors is pragma Import (C, Maybe_Return_Via_Longjump, "__ghdl_maybe_return_via_longjump"); + procedure Exit_Simulation is + begin + Maybe_Return_Via_Longjump (-2); + Internal_Error ("exit_simulation"); + end Exit_Simulation; + procedure Fatal_Error is begin if Error_Hook /= null then |