diff options
| author | Viljar Indus <indus@adacore.com> | 2024-07-22 09:45:03 +0300 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-08-29 15:06:28 +0200 |
| commit | c2e3326a10f585fb252a1d54e7a83e7efecbf99a (patch) | |
| tree | 0ddee5b1735c5def69d01304411eda3d44cad059 /gcc | |
| parent | bb7a1667125166f225d2987e968495713d737951 (diff) | |
| download | gcc-c2e3326a10f585fb252a1d54e7a83e7efecbf99a.zip gcc-c2e3326a10f585fb252a1d54e7a83e7efecbf99a.tar.gz gcc-c2e3326a10f585fb252a1d54e7a83e7efecbf99a.tar.bz2 | |
ada: Print Insertion_Sloc in dmsg
gcc/ada/
* erroutc.adb (dmsg): Print Insertion_Sloc.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/erroutc.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 4e0a9f2..db1c092 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); |