diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-08-13 05:51:27 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-08-13 05:51:27 +0200 |
| commit | cefd5a01505eb6c0b8c4acdec36d02b8f8bc2de4 (patch) | |
| tree | 91b00a8f2c77b91ec5123a8687dfc33807eed03f /src/grt/grt-errors.adb | |
| parent | 4405210cb84262f8c0a9650333fca8841bbebe04 (diff) | |
| download | ghdl-cefd5a01505eb6c0b8c4acdec36d02b8f8bc2de4.tar.gz ghdl-cefd5a01505eb6c0b8c4acdec36d02b8f8bc2de4.tar.bz2 ghdl-cefd5a01505eb6c0b8c4acdec36d02b8f8bc2de4.zip | |
grt-files: improve error messages, check access mode. Fix #634
Diffstat (limited to 'src/grt/grt-errors.adb')
| -rw-r--r-- | src/grt/grt-errors.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb index 51a50418c..0101dd20a 100644 --- a/src/grt/grt-errors.adb +++ b/src/grt/grt-errors.adb @@ -254,6 +254,15 @@ package body Grt.Errors is Fatal_Error; end Error; + procedure Error_Call_Stack (Str : String; Skip : Natural) + is + Bt : Backtrace_Addrs; + begin + Save_Backtrace (Bt, Skip + 1); + Error_C (Str); + Error_E_Call_Stack (Bt); + end Error_Call_Stack; + procedure Error (Str : String; Filename : Ghdl_C_String; Line : Ghdl_I32) is |