ada: Print Insertion_Sloc in dmsg

gcc/ada/

	* erroutc.adb (dmsg): Print Insertion_Sloc.

diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb
index 4e0a9f26e0df5f9580b60cdd764b4e089da2141f..db1c0923e907b932613dbbedc02b2bd689f81f82 100644 (file)
--- 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);