diff options
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 |