From: Viljar Indus <indus@adacore.com>
Date: Mon, 22 Jul 2024 06:45:03 +0000 (+0300)
Subject: ada: Print Insertion_Sloc in dmsg
X-Git-Tag: basepoints/gcc-16~6252
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c2e3326a10f585fb252a1d54e7a83e7efecbf99a;p=thirdparty%2Fgcc.git

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 4e0a9f26e0d..db1c0923e90 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);