diff options
| author | Bob Duff <duff@adacore.com> | 2021-06-14 09:37:24 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-09 12:35:29 +0000 |
| commit | fbc72d0b4ac841fdf7d3ea15851f3be39361a86c (patch) | |
| tree | 2a78d6971d6265b84ea170aa81f1a708740f0531 | |
| parent | 021cf768fba5724f6d419fbbd574ca12c76c616c (diff) | |
| download | gcc-fbc72d0b4ac841fdf7d3ea15851f3be39361a86c.zip gcc-fbc72d0b4ac841fdf7d3ea15851f3be39361a86c.tar.gz gcc-fbc72d0b4ac841fdf7d3ea15851f3be39361a86c.tar.bz2 | |
[Ada] Add source file name to gnat bug box
gcc/ada/
* comperr.adb (Compiler_Abort): Print source file name.
| -rw-r--r-- | gcc/ada/comperr.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 300b523..064fae0 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -244,12 +244,17 @@ package body Comperr is end if; End_Line; + else Write_Str ("| Error detected at "); Write_Location (Sloc (Current_Error_Node)); End_Line; end if; + Write_Str ("| Compiling "); + Write_Str (Get_First_Main_File_Name); + End_Line; + -- There are two cases now. If the file gnat_bug.box exists, -- we use the contents of this file at this point. |