/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gnat.dg/ |
H A D | opt28.adb | 14 Start_Pos : Natural := 1; variable 17 while Start_Pos <= Var'Length loop 18 End_Pos := Position (Var (Start_Pos .. Var'Length)); 20 if Is_File (To_Posix (Var (Start_Pos .. End_Pos - 1) & Filename)) then 21 return Var (Start_Pos .. End_Pos - 1) & Filename; 23 Start_Pos := End_Pos + 1;
|
/dports/x11-toolkits/gtkada3/gtkada-1688bb8/src/generated/ |
H A D | gtk-editable.ads | 97 Start_Pos : Gint; 110 Start_Pos : Gint; 146 Start_Pos : out Gint; 176 Start_Pos : Gint; 227 Start_Pos : Gint; variable 232 Start_Pos : Gint; variable 310 …type Virtual_Delete_Text is access procedure (Editable : Gtk_Editable; Start_Pos : Gint; End_Pos :… variable 320 …type Virtual_Do_Delete_Text is access procedure (Editable : Gtk_Editable; Start_Pos : Gint; End_Po… variable 346 Start_Pos : Gint; variable 365 Start_Pos : access Gint; variable [all …]
|
H A D | gtk-search_entry.adb | 122 Start_Pos : Gint; 127 Start_Pos : Gint; 131 Internal (Get_Object (Editable), Start_Pos, End_Pos); 153 Start_Pos : Gint; 158 Start_Pos : Gint; 162 return Gtkada.Bindings.Value_And_Free (Internal (Get_Object (Editable), Start_Pos, End_Pos)); 197 Start_Pos : out Gint; 211 Start_Pos := Acc_Start_Pos; 270 Start_Pos : Gint; 275 Start_Pos : Gint; [all …]
|
/dports/x11-toolkits/gtkada/gtkada-2.24.4.0/src/ |
H A D | gtk-editable.adb | 83 Start_Pos : Gint := 0; 88 Start_Pos : Gint; 93 Internal (Get_Object (Editable), Start_Pos, End_Pos); 102 Start_Pos : Gint := 0; 107 Start_Pos : Gint; 118 Internal (Get_Object (Editable), Start_Pos, End_Pos); 166 Start_Pos : out Guint; 183 Start_Pos := S;
|
/dports/devel/ada-util/ada-util-b6612400/src/http/ |
H A D | util-http-cookies.adb | 407 Start_Pos : Natural; variable 420 Start_Pos := Pos; 434 exit when Start_Pos > End_Pos; 435 Result (Idx).Name := To_Unbounded_String (Header (Start_Pos .. End_Pos)); 454 Start_Pos := Pos; 460 Start_Pos := Pos; 467 if Start_Pos < Pos then 468 Result (Idx).Value := To_Unbounded_String (Header (Start_Pos .. Pos - 1));
|
/dports/cad/ghdl/ghdl-1.0.0/src/ |
H A D | files_map-editor.adb | 131 Start_Pos : Source_Ptr; 138 pragma Assert (End_Pos >= Start_Pos); 140 Res := End_Pos - Start_Pos; 143 if F.Gap_Last < Start_Pos or else F.Gap_Start >= End_Pos then 148 if F.Gap_Last > End_Pos or else F.Gap_Start <= Start_Pos then 277 Start_Pos : constant Source_Ptr := constant 285 Range_Size := Get_Range_Length (File, Start_Pos, End_Pos); 306 New_Pos : constant Source_Ptr := Start_Pos + Text_Len; 311 F.Source (Start_Pos .. Start_Pos + Text_Len - 1) := Text; 360 F.Lines.Table (L) := Start_Pos + (P - Text'First);
|