From fbc72d0b4ac841fdf7d3ea15851f3be39361a86c Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Mon, 14 Jun 2021 09:37:24 -0400 Subject: [Ada] Add source file name to gnat bug box gcc/ada/ * comperr.adb (Compiler_Abort): Print source file name. --- gcc/ada/comperr.adb | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'gcc') 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. -- cgit v1.1