Home
last modified time | relevance | path

Searched refs:Tlength (Results 1 – 25 of 117) sorted by relevance

12345

/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Da-stwifi.adb275 Tlength : constant Integer := Target'Length; constant
294 if Slength = Tlength then
297 elsif Slength > Tlength then
301 Target := Source (Slast - Tlength + 1 .. Slast);
304 Target := Source (Sfirst .. Sfirst + Tlength - 1);
309 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
317 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
318 Target := Source (Slast - Tlength + 1 .. Slast);
349 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Da-stwifi.adb275 Tlength : constant Integer := Target'Length; constant
294 if Slength = Tlength then
297 elsif Slength > Tlength then
301 Target := Source (Slast - Tlength + 1 .. Slast);
304 Target := Source (Sfirst .. Sfirst + Tlength - 1);
309 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
317 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
318 Target := Source (Slast - Tlength + 1 .. Slast);
349 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
332 Target := Source (Slast - Tlength + 1 .. Slast);
335 Target := Source (Sfirst .. Sfirst + Tlength - 1);
340 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
348 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
349 Target := Source (Slast - Tlength + 1 .. Slast);
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
334 Target := Source (Slast - Tlength + 1 .. Slast);
337 Target := Source (Sfirst .. Sfirst + Tlength - 1);
342 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
350 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
351 Target := Source (Slast - Tlength + 1 .. Slast);
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-strfix.adb329 Tlength : constant Integer := Target'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
354 Target := Source (Slast - Tlength + 1 .. Slast);
357 Target := Source (Sfirst .. Sfirst + Tlength - 1);
362 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
370 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
371 Target := Source (Slast - Tlength + 1 .. Slast);
401 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Da-strfix.adb329 Tlength : constant Integer := Target'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
355 Target := Source (Slast - Tlength + 1 .. Slast);
358 Target := Source (Sfirst .. Sfirst + Tlength - 1);
363 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
371 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
372 Target := Source (Slast - Tlength + 1 .. Slast);
403 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
332 Target := Source (Slast - Tlength + 1 .. Slast);
335 Target := Source (Sfirst .. Sfirst + Tlength - 1);
340 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
348 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
349 Target := Source (Slast - Tlength + 1 .. Slast);
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
332 Target := Source (Slast - Tlength + 1 .. Slast);
335 Target := Source (Sfirst .. Sfirst + Tlength - 1);
340 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
348 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
349 Target := Source (Slast - Tlength + 1 .. Slast);
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-strfix.adb329 Tlength : constant Integer := Target'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
354 Target := Source (Slast - Tlength + 1 .. Slast);
357 Target := Source (Sfirst .. Sfirst + Tlength - 1);
362 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
370 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
371 Target := Source (Slast - Tlength + 1 .. Slast);
401 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
334 Target := Source (Slast - Tlength + 1 .. Slast);
337 Target := Source (Sfirst .. Sfirst + Tlength - 1);
342 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
350 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
351 Target := Source (Slast - Tlength + 1 .. Slast);
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/libgnat/
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
332 Target := Source (Slast - Tlength + 1 .. Slast);
335 Target := Source (Sfirst .. Sfirst + Tlength - 1);
340 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
348 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
349 Target := Source (Slast - Tlength + 1 .. Slast);
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
334 Target := Source (Slast - Tlength + 1 .. Slast);
337 Target := Source (Sfirst .. Sfirst + Tlength - 1);
342 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
350 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
351 Target := Source (Slast - Tlength + 1 .. Slast);
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/
H A Da-strfix.adb329 Tlength : constant Integer := Target'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
354 Target := Source (Slast - Tlength + 1 .. Slast);
357 Target := Source (Sfirst .. Sfirst + Tlength - 1);
362 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
370 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
371 Target := Source (Slast - Tlength + 1 .. Slast);
401 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
334 Target := Source (Slast - Tlength + 1 .. Slast);
337 Target := Source (Sfirst .. Sfirst + Tlength - 1);
342 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
350 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
351 Target := Source (Slast - Tlength + 1 .. Slast);
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
332 Target := Source (Slast - Tlength + 1 .. Slast);
335 Target := Source (Sfirst .. Sfirst + Tlength - 1);
340 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
348 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
349 Target := Source (Slast - Tlength + 1 .. Slast);
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Da-strfix.adb329 Tlength : constant Integer := Target'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
355 Target := Source (Slast - Tlength + 1 .. Slast);
358 Target := Source (Sfirst .. Sfirst + Tlength - 1);
363 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
371 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
372 Target := Source (Slast - Tlength + 1 .. Slast);
403 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
333 Target := Source (Slast - Tlength + 1 .. Slast);
336 Target := Source (Sfirst .. Sfirst + Tlength - 1);
341 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
349 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
350 Target := Source (Slast - Tlength + 1 .. Slast);
381 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
335 Target := Source (Slast - Tlength + 1 .. Slast);
338 Target := Source (Sfirst .. Sfirst + Tlength - 1);
343 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
351 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
352 Target := Source (Slast - Tlength + 1 .. Slast);
383 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/libgnat/
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
334 Target := Source (Slast - Tlength + 1 .. Slast);
337 Target := Source (Sfirst .. Sfirst + Tlength - 1);
342 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
350 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
351 Target := Source (Slast - Tlength + 1 .. Slast);
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
332 Target := Source (Slast - Tlength + 1 .. Slast);
335 Target := Source (Sfirst .. Sfirst + Tlength - 1);
340 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
348 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
349 Target := Source (Slast - Tlength + 1 .. Slast);
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Da-strfix.adb329 Tlength : constant Integer := Target'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
355 Target := Source (Slast - Tlength + 1 .. Slast);
358 Target := Source (Sfirst .. Sfirst + Tlength - 1);
363 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
371 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
372 Target := Source (Slast - Tlength + 1 .. Slast);
403 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
333 Target := Source (Slast - Tlength + 1 .. Slast);
336 Target := Source (Sfirst .. Sfirst + Tlength - 1);
341 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
349 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
350 Target := Source (Slast - Tlength + 1 .. Slast);
381 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
335 Target := Source (Slast - Tlength + 1 .. Slast);
338 Target := Source (Sfirst .. Sfirst + Tlength - 1);
343 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
351 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
352 Target := Source (Slast - Tlength + 1 .. Slast);
383 Front_Pad : constant Integer := (Tlength - Slength) / 2;
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/libgnat/
H A Da-stwifi.adb303 Tlength : constant Integer := Target'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
332 Target := Source (Slast - Tlength + 1 .. Slast);
335 Target := Source (Sfirst .. Sfirst + Tlength - 1);
340 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
348 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
349 Target := Source (Slast - Tlength + 1 .. Slast);
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
H A Da-stzfix.adb309 Tlength : constant Integer := Target'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
334 Target := Source (Slast - Tlength + 1 .. Slast);
337 Target := Source (Sfirst .. Sfirst + Tlength - 1);
342 if Is_Padding (Source (Sfirst + Tlength .. Slast)) then
350 if Is_Padding (Source (Sfirst .. Slast - Tlength)) then
351 Target := Source (Slast - Tlength + 1 .. Slast);
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;

12345