Home
last modified time | relevance | path

Searched refs:Path_Last (Results 1 – 25 of 76) sorted by relevance

1234

/dports/devel/gprbuild/gprbuild-376670f/src/
H A Dgprbuild.adb433 Path_Last : Natural := 0; variable
448 while Path_Last + Name_Len + 1 > Result'Last loop
450 Tmp (1 .. Path_Last) := Result (1 .. Path_Last);
455 Path_Last := Path_Last + 1;
456 Result (Path_Last) := Path_Separator;
459 Result (Path_Last + 1 .. Path_Last + Name_Len) :=
461 Path_Last := Path_Last + Name_Len;
465 Put_Line ("Path=" & Result (1 .. Path_Last));
468 Tmp := new String'(Result (1 .. Path_Last));
H A Dgprname.adb72 Path_Last : Natural; variable
264 (Path_Name (Directory_Last + 1 .. Path_Last),
276 (Path_Name (Directory_Last + 1 .. Path_Last),
1022 Path_Last := File_Path'Length;
1025 Path_Name (1 .. Path_Last) := File_Path;
1030 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
1035 for Index in reverse 1 .. Path_Last loop
1042 if Path_Last < Project_File_Extension'Length + 1
1044 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
1047 Path_Last := Path_Name'Last;
[all …]
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/
H A Dmake_util.adb270 Path_Last : Integer := 0; variable
275 Path_Last := J - 1;
280 if Path_Last >= Exec'First + 2 then
281 To_Lower (Exec (Path_Last - 2 .. Path_Last));
284 if Path_Last < Exec'First + 2
285 or else Exec (Path_Last - 2 .. Path_Last) /= "bin"
286 or else (Path_Last - 3 >= Exec'First
287 and then Exec (Path_Last - 3) /= Directory_Separator)
293 (Exec (Exec'First .. Path_Last - 4),
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dprj-makr.adb93 Path_Last : Natural := File_Path'Length; variable
507 Path_Name (1 .. Path_Last) := File_Path;
509 Path_Name (1 .. Path_Last) := To_Lower (File_Path);
512 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
517 for Index in reverse 1 .. Path_Last loop
525 if Path_Last < Project_File_Extension'Length + 1
527 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
530 Path_Last := Path_Name'Last;
533 Output_Name (1 .. Path_Last) := To_Lower (Path_Name (1 .. Path_Last));
1065 (Path_Name (Directory_Last + 1 .. Path_Last),
[all …]
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Dprj-makr.adb93 Path_Last : Natural := File_Path'Length; variable
507 Path_Name (1 .. Path_Last) := File_Path;
509 Path_Name (1 .. Path_Last) := To_Lower (File_Path);
512 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
517 for Index in reverse 1 .. Path_Last loop
525 if Path_Last < Project_File_Extension'Length + 1
527 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
530 Path_Last := Path_Name'Last;
533 Output_Name (1 .. Path_Last) := To_Lower (Path_Name (1 .. Path_Last));
1065 (Path_Name (Directory_Last + 1 .. Path_Last),
[all …]
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Dprj-makr.adb74 Path_Last : Natural; variable
246 (Path_Name (Directory_Last + 1 .. Path_Last),
258 (Path_Name (Directory_Last + 1 .. Path_Last),
835 Path_Last := File_Path'Length;
838 Path_Name (1 .. Path_Last) := File_Path;
840 Path_Name (1 .. Path_Last) := To_Lower (File_Path);
843 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
848 for Index in reverse 1 .. Path_Last loop
856 if Path_Last < Project_File_Extension'Length + 1
858 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
[all …]
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/
H A Dprj-makr.adb75 Path_Last : Natural; variable
247 (Path_Name (Directory_Last + 1 .. Path_Last),
259 (Path_Name (Directory_Last + 1 .. Path_Last),
836 Path_Last := File_Path'Length;
839 Path_Name (1 .. Path_Last) := File_Path;
841 Path_Name (1 .. Path_Last) := To_Lower (File_Path);
844 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
849 for Index in reverse 1 .. Path_Last loop
857 if Path_Last < Project_File_Extension'Length + 1
859 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
[all …]
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Dprj-makr.adb74 Path_Last : Natural; variable
246 (Path_Name (Directory_Last + 1 .. Path_Last),
258 (Path_Name (Directory_Last + 1 .. Path_Last),
835 Path_Last := File_Path'Length;
838 Path_Name (1 .. Path_Last) := File_Path;
840 Path_Name (1 .. Path_Last) := To_Lower (File_Path);
843 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
848 for Index in reverse 1 .. Path_Last loop
856 if Path_Last < Project_File_Extension'Length + 1
858 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
[all …]
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Dprj-makr.adb73 Path_Last : Natural; variable
245 (Path_Name (Directory_Last + 1 .. Path_Last),
257 (Path_Name (Directory_Last + 1 .. Path_Last),
833 Path_Last := File_Path'Length;
836 Path_Name (1 .. Path_Last) := File_Path;
838 Path_Name (1 .. Path_Last) := To_Lower (File_Path);
841 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
846 for Index in reverse 1 .. Path_Last loop
854 if Path_Last < Project_File_Extension'Length + 1
856 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
[all …]
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/
H A Dprj-makr.adb73 Path_Last : Natural; variable
245 (Path_Name (Directory_Last + 1 .. Path_Last),
257 (Path_Name (Directory_Last + 1 .. Path_Last),
833 Path_Last := File_Path'Length;
836 Path_Name (1 .. Path_Last) := File_Path;
838 Path_Name (1 .. Path_Last) := To_Lower (File_Path);
841 Path_Name (Path_Last + 1 .. Path_Name'Last) :=
846 for Index in reverse 1 .. Path_Last loop
854 if Path_Last < Project_File_Extension'Length + 1
856 (Path_Last - Project_File_Extension'Length + 1 .. Path_Last)
[all …]

1234