From 2a82dc5fda6cfac2a9835464d5798afddc346ecd Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Mon, 19 Aug 2024 11:41:39 +1000 Subject: [PATCH] lace.event_emitter: Adjust output of error messages when tasks crash. --- .../source/events/mixin/private/lace-event_emitter.adb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/1-base/lace/source/events/mixin/private/lace-event_emitter.adb b/1-base/lace/source/events/mixin/private/lace-event_emitter.adb index e7fdb52..19154de 100644 --- a/1-base/lace/source/events/mixin/private/lace-event_emitter.adb +++ b/1-base/lace/source/events/mixin/private/lace-event_emitter.adb @@ -100,11 +100,13 @@ is exception when E : others => + ada.Text_IO.new_Line; + ada.Text_IO.put_Line (ada.Exceptions.exception_Information (E)); ada.Text_IO.put_Line ("Error detected in 'lace.event_Emitter.Emitter' task for subject '" & subject_Name.Element & "'."); ada.Text_IO.put_Line ("Event: '" & Event.Element'Image & "'."); ada.Text_IO.put_Line ("Observer: '" & the_Observer.Name & "'."); ada.Text_IO.new_Line; - ada.Text_IO.put_Line (ada.Exceptions.exception_Information (E)); + -- ada.Text_IO.put_Line (ada.Exceptions.exception_Information (E)); ada.Text_IO.new_Line; end Emitter; @@ -202,9 +204,11 @@ is exception when E : others => + ada.Text_IO.put_Line (ada.Exceptions.exception_Information (E)); + ada.Text_IO.new_Line; ada.Text_IO.put_Line ("Error detected in 'lace.event_Emitter.emit_Delegator' for subject '" & the_subject_Name.Element & "'."); ada.Text_IO.new_Line; - ada.Text_IO.put_Line (ada.Exceptions.exception_Information (E)); + -- ada.Text_IO.put_Line (ada.Exceptions.exception_Information (E)); ada.Text_IO.new_Line; end emit_Delegator;