diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-11 05:39:42 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-11 05:39:42 +0200 |
| commit | 76790ce35751b7db120cbde496782c161d376c60 (patch) | |
| tree | 368d1bd7202fd68fce7ef0394ac6a60696edb7ce /translate/grt/grt-errors.adb | |
| parent | bc29eec25beb8e337bc7ad8ac38734d9491fbe94 (diff) | |
| download | ghdl-76790ce35751b7db120cbde496782c161d376c60.tar.gz ghdl-76790ce35751b7db120cbde496782c161d376c60.tar.bz2 ghdl-76790ce35751b7db120cbde496782c161d376c60.zip | |
vhdl2008: add translation and support for most of implicit operators.
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 2d4d8f689..eddea38c1 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 |