From 20ce64f00c737aa18b785bfb1b84c1137dff8948 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 16 Sep 2018 08:25:00 +0200
Subject: Improve info message for --stop-delta.

For #654
---
 src/grt/grt-errors.ads | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/grt/grt-errors.ads')

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
-- 
cgit v1.2.3