From 17eb0242dac5e119ec8f31a700c82aeff01b9869 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 12 May 2019 08:29:54 +0200
Subject: errorout: add messages group instead of continuation.

---
 src/errorout-memory.adb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/errorout-memory.adb')

diff --git a/src/errorout-memory.adb b/src/errorout-memory.adb
index 83b694b74..3bebfb4bc 100644
--- a/src/errorout-memory.adb
+++ b/src/errorout-memory.adb
@@ -93,11 +93,17 @@ package body Errorout.Memory is
       Messages.Append (ASCII.NUL);
    end Memory_Message_End;
 
+   procedure Memory_Message_Group (Start : Boolean) is
+   begin
+      null;
+   end Memory_Message_Group;
+
    procedure Install_Handler is
    begin
       Set_Report_Handler ((Memory_Error_Start'Access,
                            Memory_Message'Access,
-                           Memory_Message_End'Access));
+                           Memory_Message_End'Access,
+                           Memory_Message_Group'Access));
    end Install_Handler;
 
 end Errorout.Memory;
-- 
cgit v1.2.3