From 01d0c060bb056b8b120cb9ce2e927aa76ad1b567 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 10 Feb 2020 18:24:03 +0100 Subject: grt: split grt-errors, disp current process. --- src/grt/grt-backtraces.ads | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/grt/grt-backtraces.ads') diff --git a/src/grt/grt-backtraces.ads b/src/grt/grt-backtraces.ads index 301131f93..6b840e6fd 100644 --- a/src/grt/grt-backtraces.ads +++ b/src/grt/grt-backtraces.ads @@ -23,11 +23,9 @@ -- however invalidate any other reasons why the executable file might be -- covered by the GNU Public License. -with Grt.Errors; use Grt.Errors; +with Grt.Errors_Exec; use Grt.Errors_Exec; package Grt.Backtraces is - pragma Preelaborate (Grt.Backtraces); - -- Display a backtrace on standard error, or nothing if not available. procedure Put_Err_Backtrace (Bt : Backtrace_Addrs); -- cgit v1.2.3