You've already forked libadalang
mirror of
https://github.com/AdaCore/libadalang.git
synced 2026-02-12 12:28:54 -08:00
12 lines
264 B
Ada
12 lines
264 B
Ada
## vim: filetype=ada
|
|
|
|
declare
|
|
Filename : constant String := +Self.Unit.Filename.Base_Name;
|
|
begin
|
|
if Filename = "__standard" then
|
|
return "in Standard";
|
|
else
|
|
return To_Text (Filename) & ":" & To_Text (Image (Sloc_Range (Self)));
|
|
end if;
|
|
end;
|