/usr/share/ada/adainclude/gnatprj/sdefault.adb is in libgnatprj4.9-dev 4.9.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | pragma Style_Checks (Off);
with Osint; use Osint;
package body Sdefault is
S0 : constant String := "/usr/";
S1 : constant String := "/usr/lib/gcc/x86_64-linux-gnu/4.9/adainclude/";
S2 : constant String := "/usr/lib/gcc/x86_64-linux-gnu/4.9/adalib/";
S3 : constant String := "x86_64-linux-gnu/";
S4 : constant String := "/usr/lib/gcc/x86_64-linux-gnu/4.9/";
S5 : constant String := "/usr/share/ada/adainclude/";
function Include_Dir_Default_Name return String_Ptr is
begin
return Relocate_Path (S0, S1);
end Include_Dir_Default_Name;
function Object_Dir_Default_Name return String_Ptr is
begin
return Relocate_Path (S0, S2);
end Object_Dir_Default_Name;
function Target_Name return String_Ptr is
begin
return new String'(S3);
end Target_Name;
function Search_Dir_Prefix return String_Ptr is
begin
return Relocate_Path (S0, S4);
end Search_Dir_Prefix;
function Project_Dir_Prefix return String_Ptr is
begin
return Relocate_Path (S0, S5);
end Project_Dir_Prefix;
end Sdefault;
|