diff options
Diffstat (limited to 'src/grt/grt-errors.ads')
| -rw-r--r-- | src/grt/grt-errors.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads index a0ba1a03e..f97d25573 100644 --- a/src/grt/grt-errors.ads +++ b/src/grt/grt-errors.ads @@ -95,7 +95,8 @@ package Grt.Errors is pragma No_Return (Internal_Error); -- Display a message which is not an error. - procedure Info (Str : String); + procedure Info_S (Str : String := ""); + procedure Info_E; -- Backtrace used to report call stack in case of error. -- Note: for simplicity we assume that a PC is enough to display the |