Home
last modified time | relevance | path

Searched refs:New_Dir (Results 1 – 25 of 51) sorted by relevance

123

/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/libgnat/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-direct.adb434 New_Dir : String (1 .. New_Directory'Length + 1); variable
450 New_Dir (New_Dir'Last) := Directory_Separator;
456 and then New_Dir'Length > 2
457 and then Is_In (New_Dir (1), Dir_Seps)
458 and then Is_In (New_Dir (2), Dir_Seps)
463 exit when Start = New_Dir'Last
464 or else Is_In (New_Dir (Start), Dir_Seps);
470 for J in Start + 1 .. New_Dir'Last loop
474 if not Is_In (New_Dir (J), Dir_Seps) then
480 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/
H A Da-direct.adb446 New_Dir : String (1 .. New_Directory'Length + 1); variable
462 New_Dir (New_Dir'Last) := Directory_Separator;
468 and then New_Dir'Length > 2
469 and then Is_In (New_Dir (1), Dir_Seps)
470 and then Is_In (New_Dir (2), Dir_Seps)
475 exit when Start = New_Dir'Last
476 or else Is_In (New_Dir (Start), Dir_Seps);
482 for J in Start + 1 .. New_Dir'Last loop
486 if not Is_In (New_Dir (J), Dir_Seps) then
492 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc6-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly4.1/5.1.0/adainclude/
H A Da-direct.adb443 New_Dir : String (1 .. New_Directory'Length + 1); variable
459 New_Dir (New_Dir'Last) := Directory_Separator;
465 and then New_Dir'Length > 2
466 and then Is_In (New_Dir (1), Dir_Seps)
467 and then Is_In (New_Dir (2), Dir_Seps)
472 exit when Start = New_Dir'Last
473 or else Is_In (New_Dir (Start), Dir_Seps);
479 for J in Start + 1 .. New_Dir'Last loop
483 if not Is_In (New_Dir (J), Dir_Seps) then
489 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/libgnat/
H A Da-direct.adb422 New_Dir : String (1 .. New_Directory'Length + 1); variable
438 New_Dir (New_Dir'Last) := Directory_Separator;
444 and then New_Dir'Length > 2
445 and then Is_In (New_Dir (1), Dir_Seps)
446 and then Is_In (New_Dir (2), Dir_Seps)
451 exit when Start = New_Dir'Last
452 or else Is_In (New_Dir (Start), Dir_Seps);
458 for J in Start + 1 .. New_Dir'Last loop
462 if not Is_In (New_Dir (J), Dir_Seps) then
468 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/libgnat/
H A Da-direct.adb430 New_Dir : String (1 .. New_Directory'Length + 1); variable
446 New_Dir (New_Dir'Last) := Directory_Separator;
452 and then New_Dir'Length > 2
453 and then Is_In (New_Dir (1), Dir_Seps)
454 and then Is_In (New_Dir (2), Dir_Seps)
459 exit when Start = New_Dir'Last
460 or else Is_In (New_Dir (Start), Dir_Seps);
466 for J in Start + 1 .. New_Dir'Last loop
470 if not Is_In (New_Dir (J), Dir_Seps) then
476 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/libgnat/
H A Da-direct.adb422 New_Dir : String (1 .. New_Directory'Length + 1); variable
438 New_Dir (New_Dir'Last) := Directory_Separator;
444 and then New_Dir'Length > 2
445 and then Is_In (New_Dir (1), Dir_Seps)
446 and then Is_In (New_Dir (2), Dir_Seps)
451 exit when Start = New_Dir'Last
452 or else Is_In (New_Dir (Start), Dir_Seps);
458 for J in Start + 1 .. New_Dir'Last loop
462 if not Is_In (New_Dir (J), Dir_Seps) then
468 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/libgnat/
H A Da-direct.adb430 New_Dir : String (1 .. New_Directory'Length + 1); variable
446 New_Dir (New_Dir'Last) := Directory_Separator;
452 and then New_Dir'Length > 2
453 and then Is_In (New_Dir (1), Dir_Seps)
454 and then Is_In (New_Dir (2), Dir_Seps)
459 exit when Start = New_Dir'Last
460 or else Is_In (New_Dir (Start), Dir_Seps);
466 for J in Start + 1 .. New_Dir'Last loop
470 if not Is_In (New_Dir (J), Dir_Seps) then
476 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/libgnat/
H A Da-direct.adb430 New_Dir : String (1 .. New_Directory'Length + 1); variable
446 New_Dir (New_Dir'Last) := Directory_Separator;
452 and then New_Dir'Length > 2
453 and then Is_In (New_Dir (1), Dir_Seps)
454 and then Is_In (New_Dir (2), Dir_Seps)
459 exit when Start = New_Dir'Last
460 or else Is_In (New_Dir (Start), Dir_Seps);
466 for J in Start + 1 .. New_Dir'Last loop
470 if not Is_In (New_Dir (J), Dir_Seps) then
476 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc9-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly5.5/9.1.0/adainclude/
H A Da-direct.adb446 New_Dir : String (1 .. New_Directory'Length + 1); variable
462 New_Dir (New_Dir'Last) := Directory_Separator;
468 and then New_Dir'Length > 2
469 and then Is_In (New_Dir (1), Dir_Seps)
470 and then Is_In (New_Dir (2), Dir_Seps)
475 exit when Start = New_Dir'Last
476 or else Is_In (New_Dir (Start), Dir_Seps);
482 for J in Start + 1 .. New_Dir'Last loop
486 if not Is_In (New_Dir (J), Dir_Seps) then
492 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/libgnat/
H A Da-direct.adb422 New_Dir : String (1 .. New_Directory'Length + 1); variable
438 New_Dir (New_Dir'Last) := Directory_Separator;
444 and then New_Dir'Length > 2
445 and then Is_In (New_Dir (1), Dir_Seps)
446 and then Is_In (New_Dir (2), Dir_Seps)
451 exit when Start = New_Dir'Last
452 or else Is_In (New_Dir (Start), Dir_Seps);
458 for J in Start + 1 .. New_Dir'Last loop
462 if not Is_In (New_Dir (J), Dir_Seps) then
468 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/libgnat/
H A Da-direct.adb430 New_Dir : String (1 .. New_Directory'Length + 1); variable
446 New_Dir (New_Dir'Last) := Directory_Separator;
452 and then New_Dir'Length > 2
453 and then Is_In (New_Dir (1), Dir_Seps)
454 and then Is_In (New_Dir (2), Dir_Seps)
459 exit when Start = New_Dir'Last
460 or else Is_In (New_Dir (Start), Dir_Seps);
466 for J in Start + 1 .. New_Dir'Last loop
470 if not Is_In (New_Dir (J), Dir_Seps) then
476 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/libgnat/
H A Da-direct.adb446 New_Dir : String (1 .. New_Directory'Length + 1); variable
462 New_Dir (New_Dir'Last) := Directory_Separator;
468 and then New_Dir'Length > 2
469 and then Is_In (New_Dir (1), Dir_Seps)
470 and then Is_In (New_Dir (2), Dir_Seps)
475 exit when Start = New_Dir'Last
476 or else Is_In (New_Dir (Start), Dir_Seps);
482 for J in Start + 1 .. New_Dir'Last loop
486 if not Is_In (New_Dir (J), Dir_Seps) then
492 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/libgnat/
H A Da-direct.adb446 New_Dir : String (1 .. New_Directory'Length + 1); variable
462 New_Dir (New_Dir'Last) := Directory_Separator;
468 and then New_Dir'Length > 2
469 and then Is_In (New_Dir (1), Dir_Seps)
470 and then Is_In (New_Dir (2), Dir_Seps)
475 exit when Start = New_Dir'Last
476 or else Is_In (New_Dir (Start), Dir_Seps);
482 for J in Start + 1 .. New_Dir'Last loop
486 if not Is_In (New_Dir (J), Dir_Seps) then
492 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Da-direct.adb446 New_Dir : String (1 .. New_Directory'Length + 1); variable
462 New_Dir (New_Dir'Last) := Directory_Separator;
468 and then New_Dir'Length > 2
469 and then Is_In (New_Dir (1), Dir_Seps)
470 and then Is_In (New_Dir (2), Dir_Seps)
475 exit when Start = New_Dir'Last
476 or else Is_In (New_Dir (Start), Dir_Seps);
482 for J in Start + 1 .. New_Dir'Last loop
486 if not Is_In (New_Dir (J), Dir_Seps) then
492 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/
H A Da-direct.adb446 New_Dir : String (1 .. New_Directory'Length + 1); variable
462 New_Dir (New_Dir'Last) := Directory_Separator;
468 and then New_Dir'Length > 2
469 and then Is_In (New_Dir (1), Dir_Seps)
470 and then Is_In (New_Dir (2), Dir_Seps)
475 exit when Start = New_Dir'Last
476 or else Is_In (New_Dir (Start), Dir_Seps);
482 for J in Start + 1 .. New_Dir'Last loop
486 if not Is_In (New_Dir (J), Dir_Seps) then
492 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/
H A Da-direct.adb443 New_Dir : String (1 .. New_Directory'Length + 1); variable
459 New_Dir (New_Dir'Last) := Directory_Separator;
465 and then New_Dir'Length > 2
466 and then Is_In (New_Dir (1), Dir_Seps)
467 and then Is_In (New_Dir (2), Dir_Seps)
472 exit when Start = New_Dir'Last
473 or else Is_In (New_Dir (Start), Dir_Seps);
479 for J in Start + 1 .. New_Dir'Last loop
483 if not Is_In (New_Dir (J), Dir_Seps) then
489 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
[all …]
/dports/lang/asis/asis-gpl-2016-src/asis/
H A Da4g-contt.adb1390 New_Dir : Link; variable
1412 New_Dir := new Dir_Rec;
1413 New_Dir.Dir_Name := new String'(Dir_Name (First .. Last));
1418 Append_Dir (Source_Dirs, New_Dir);
1421 Append_Dir (Object_Dirs, New_Dir);
1424 Append_Dir (Tree_Dirs, New_Dir);
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/
H A Dgnatls.adb1464 New_Dir : constant String := constant
1475 if New_Dir /= Name_Buffer (First .. Last)
1476 and then New_Dir'Length /= 0
1478 New_Len := Name_Len + New_Dir'Length - (Last - First + 1);
1479 New_Last := First + New_Dir'Length - 1;
1482 Name_Buffer (First .. New_Last) := New_Dir;

123