/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 434 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 D | a-direct.adb | 434 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 D | a-direct.adb | 434 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 D | a-direct.adb | 434 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 D | a-direct.adb | 434 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 D | a-direct.adb | 434 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 D | a-direct.adb | 434 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 D | a-direct.adb | 434 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 D | a-direct.adb | 446 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 D | a-direct.adb | 443 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 D | a-direct.adb | 422 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 D | a-direct.adb | 430 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 D | a-direct.adb | 422 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 D | a-direct.adb | 430 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 D | a-direct.adb | 430 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 D | a-direct.adb | 446 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 D | a-direct.adb | 422 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 D | a-direct.adb | 430 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 D | a-direct.adb | 446 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 D | a-direct.adb | 446 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 D | a-direct.adb | 446 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 D | a-direct.adb | 446 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 D | a-direct.adb | 443 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 D | a4g-contt.adb | 1390 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 D | gnatls.adb | 1464 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;
|