diff options
| -rw-r--r-- | src/grt/grt-errors.adb | 12 | ||||
| -rw-r--r-- | src/grt/grt-errors.ads | 3 | ||||
| -rw-r--r-- | src/grt/grt-processes.adb | 10 |
3 files changed, 18 insertions, 7 deletions
diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb index 5070031e5..11b529014 100644 --- a/src/grt/grt-errors.adb +++ b/src/grt/grt-errors.adb @@ -162,7 +162,7 @@ package body Grt.Errors is procedure Warning_S (Str : String := "") is begin - Diag_C ("warning: "); + Put_Err ("warning: "); Diag_C (Str); end Warning_S; @@ -213,13 +213,17 @@ package body Grt.Errors is Error_E; end Error; - procedure Info (Str : String) is + procedure Info_S (Str : String := "") is begin Put_Err (Progname); Put_Err (":info: "); - Put_Err (Str); + Diag_C (Str); + end Info_S; + + procedure Info_E is + begin Newline_Err; - end Info; + end Info_E; procedure Warning (Str : String) is begin 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 diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb index e4248f0ab..5a657a5de 100644 --- a/src/grt/grt-processes.adb +++ b/src/grt/grt-processes.adb @@ -1109,10 +1109,16 @@ package body Grt.Processes is -- in 2 steps: an after_delay for the time and then a read_only -- to finish the current cycle. Note that no message should be -- printed if the simulation is already finished at the stop time. - Info ("simulation stopped by --stop-time"); + Info_S ("simulation stopped by --stop-time @"); + Diag_C_Now; + Info_E; return True; elsif Current_Delta >= Stop_Delta then - Info ("simulation stopped by --stop-delta"); + Info_S ("simulation stopped @"); + Diag_C_Now; + Diag_C (" by --stop-delta="); + Diag_C (Stop_Delta); + Info_E; return True; else return False; |