diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-12 08:29:54 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-12 10:25:10 +0200 |
| commit | 17eb0242dac5e119ec8f31a700c82aeff01b9869 (patch) | |
| tree | 44c12e33284bf2d4c181083e5535e9d310c916bc /src/errorout-memory.adb | |
| parent | 649375789f8c5867028a882ef9ef67d1ed7975e4 (diff) | |
| download | ghdl-17eb0242dac5e119ec8f31a700c82aeff01b9869.tar.gz ghdl-17eb0242dac5e119ec8f31a700c82aeff01b9869.tar.bz2 ghdl-17eb0242dac5e119ec8f31a700c82aeff01b9869.zip | |
errorout: add messages group instead of continuation.
Diffstat (limited to 'src/errorout-memory.adb')
| -rw-r--r-- | src/errorout-memory.adb | 8 |
1 files changed, 7 insertions, 1 deletions
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; |