We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 07b55fc commit 254f439Copy full SHA for 254f439
tools/gnatcov/sc_obligations.adb
@@ -623,14 +623,17 @@ package body SC_Obligations is
623
-----------
624
625
function Image (SE : Scope_Entity) return String is
626
+ Identifier_Image : constant String :=
627
+ (if SE.Identifier.Decl_SFI = No_Source_File
628
+ then "ignored"
629
+ else "at " & Get_Simple_Name (SE.Identifier.Decl_SFI)
630
+ & ":" & Img (SE.Identifier.Decl_Line));
631
begin
632
return
633
"Scope for "
634
& Ada.Strings.Unbounded.To_String (SE.Name)
635
& "[" & Slocs.Image (SE.Sloc)
- & "], identifier at "
- & Get_Simple_Name (SE.Identifier.Decl_SFI)
- & ":" & Img (SE.Identifier.Decl_Line);
636
+ & "], identifier " & Identifier_Image;
637
end Image;
638
639
----------
0 commit comments