[gcc r15-3301] ada: Print Insertion_Sloc in dmsg

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:c2e3326a10f585fb252a1d54e7a83e7efecbf99a

commit r15-3301-gc2e3326a10f585fb252a1d54e7a83e7efecbf99a
Author: Viljar Indus <in...@adacore.com>
Date:   Mon Jul 22 09:45:03 2024 +0300

    ada: Print Insertion_Sloc in dmsg
    
    gcc/ada/
    
            * erroutc.adb (dmsg): Print Insertion_Sloc.

Diff:
---
 gcc/ada/erroutc.adb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
index 4e0a9f26e0df..db1c0923e907 100644
--- a/gcc/ada/erroutc.adb
+++ b/gcc/ada/erroutc.adb
@@ -327,6 +327,11 @@ package body Erroutc is
       Write_Location (E.Optr.Ptr);
       Write_Eol;
 
+      Write_Str
+        ("  Insertion_Sloc     = ");
+      Write_Location (E.Insertion_Sloc);
+      Write_Eol;
+
       w ("  Line               = ", Int (E.Line));
       w ("  Col                = ", Int (E.Col));
       w ("  Info               = ", E.Info);