Home
last modified time | relevance | path

Searched refs:Slength (Results 1 – 25 of 86) sorted by relevance

1234

/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Da-stwifi.adb271 Slength : constant Integer := Source'Length; constant
294 if Slength = Tlength then
297 elsif Slength > Tlength then
334 Target (Tfirst .. Tfirst + Slength - 1) := Source;
336 for J in Tfirst + Slength .. Tlast loop
341 for J in Tfirst .. Tlast - Slength loop
345 Target (Tlast - Slength + 1 .. Tlast) := Source;
349 Front_Pad : constant Integer := (Tlength - Slength) / 2;
357 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
359 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/
H A Da-stwifi.adb271 Slength : constant Integer := Source'Length; constant
294 if Slength = Tlength then
297 elsif Slength > Tlength then
334 Target (Tfirst .. Tfirst + Slength - 1) := Source;
336 for J in Tfirst + Slength .. Tlast loop
341 for J in Tfirst .. Tlast - Slength loop
345 Target (Tlast - Slength + 1 .. Tlast) := Source;
349 Front_Pad : constant Integer := (Tlength - Slength) / 2;
357 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
359 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
364 Target (Tfirst .. Tfirst + Slength - 1) := Source;
366 for J in Tfirst + Slength .. Tlast loop
371 for J in Tfirst .. Tlast - Slength loop
375 Target (Tlast - Slength + 1 .. Tlast) := Source;
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
387 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
389 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
367 Target (Tfirst .. Tfirst + Slength - 1) := Source;
369 for J in Tfirst + Slength .. Tlast loop
374 for J in Tfirst .. Tlast - Slength loop
378 Target (Tlast - Slength + 1 .. Tlast) := Source;
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
390 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
392 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-strfix.adb325 Slength : constant Integer := Source'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
386 Target (Tfirst .. Tfirst + Slength - 1) := Source;
388 for I in Tfirst + Slength .. Tlast loop
393 for I in Tfirst .. Tlast - Slength loop
397 Target (Tlast - Slength + 1 .. Tlast) := Source;
401 Front_Pad : constant Integer := (Tlength - Slength) / 2;
409 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
411 for I in Tfirst_Fpad + Slength .. Tlast loop
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Da-strfix.adb325 Slength : constant Integer := Source'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
388 Target (Tfirst .. Tfirst + Slength - 1) := Source;
390 for I in Tfirst + Slength .. Tlast loop
395 for I in Tfirst .. Tlast - Slength loop
399 Target (Tlast - Slength + 1 .. Tlast) := Source;
403 Front_Pad : constant Integer := (Tlength - Slength) / 2;
411 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
413 for I in Tfirst_Fpad + Slength .. Tlast loop
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
364 Target (Tfirst .. Tfirst + Slength - 1) := Source;
366 for J in Tfirst + Slength .. Tlast loop
371 for J in Tfirst .. Tlast - Slength loop
375 Target (Tlast - Slength + 1 .. Tlast) := Source;
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
387 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
389 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
364 Target (Tfirst .. Tfirst + Slength - 1) := Source;
366 for J in Tfirst + Slength .. Tlast loop
371 for J in Tfirst .. Tlast - Slength loop
375 Target (Tlast - Slength + 1 .. Tlast) := Source;
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
387 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
389 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-strfix.adb325 Slength : constant Integer := Source'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
386 Target (Tfirst .. Tfirst + Slength - 1) := Source;
388 for I in Tfirst + Slength .. Tlast loop
393 for I in Tfirst .. Tlast - Slength loop
397 Target (Tlast - Slength + 1 .. Tlast) := Source;
401 Front_Pad : constant Integer := (Tlength - Slength) / 2;
409 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
411 for I in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
367 Target (Tfirst .. Tfirst + Slength - 1) := Source;
369 for J in Tfirst + Slength .. Tlast loop
374 for J in Tfirst .. Tlast - Slength loop
378 Target (Tlast - Slength + 1 .. Tlast) := Source;
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
390 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
392 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/libgnat/
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
364 Target (Tfirst .. Tfirst + Slength - 1) := Source;
366 for J in Tfirst + Slength .. Tlast loop
371 for J in Tfirst .. Tlast - Slength loop
375 Target (Tlast - Slength + 1 .. Tlast) := Source;
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
387 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
389 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
367 Target (Tfirst .. Tfirst + Slength - 1) := Source;
369 for J in Tfirst + Slength .. Tlast loop
374 for J in Tfirst .. Tlast - Slength loop
378 Target (Tlast - Slength + 1 .. Tlast) := Source;
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
390 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
392 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/
H A Da-strfix.adb325 Slength : constant Integer := Source'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
386 Target (Tfirst .. Tfirst + Slength - 1) := Source;
388 for I in Tfirst + Slength .. Tlast loop
393 for I in Tfirst .. Tlast - Slength loop
397 Target (Tlast - Slength + 1 .. Tlast) := Source;
401 Front_Pad : constant Integer := (Tlength - Slength) / 2;
409 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
411 for I in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
367 Target (Tfirst .. Tfirst + Slength - 1) := Source;
369 for J in Tfirst + Slength .. Tlast loop
374 for J in Tfirst .. Tlast - Slength loop
378 Target (Tlast - Slength + 1 .. Tlast) := Source;
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
390 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
392 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
364 Target (Tfirst .. Tfirst + Slength - 1) := Source;
366 for J in Tfirst + Slength .. Tlast loop
371 for J in Tfirst .. Tlast - Slength loop
375 Target (Tlast - Slength + 1 .. Tlast) := Source;
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
387 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
389 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Da-strfix.adb325 Slength : constant Integer := Source'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
388 Target (Tfirst .. Tfirst + Slength - 1) := Source;
390 for I in Tfirst + Slength .. Tlast loop
395 for I in Tfirst .. Tlast - Slength loop
399 Target (Tlast - Slength + 1 .. Tlast) := Source;
403 Front_Pad : constant Integer := (Tlength - Slength) / 2;
411 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
413 for I in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
366 Target (Tfirst .. Tfirst + Slength - 1) := Source;
368 for J in Tfirst + Slength .. Tlast loop
373 for J in Tfirst .. Tlast - Slength loop
377 Target (Tlast - Slength + 1 .. Tlast) := Source;
381 Front_Pad : constant Integer := (Tlength - Slength) / 2;
389 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
391 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
368 Target (Tfirst .. Tfirst + Slength - 1) := Source;
370 for J in Tfirst + Slength .. Tlast loop
375 for J in Tfirst .. Tlast - Slength loop
379 Target (Tlast - Slength + 1 .. Tlast) := Source;
383 Front_Pad : constant Integer := (Tlength - Slength) / 2;
391 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
393 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/libgnat/
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
367 Target (Tfirst .. Tfirst + Slength - 1) := Source;
369 for J in Tfirst + Slength .. Tlast loop
374 for J in Tfirst .. Tlast - Slength loop
378 Target (Tlast - Slength + 1 .. Tlast) := Source;
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
390 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
392 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
364 Target (Tfirst .. Tfirst + Slength - 1) := Source;
366 for J in Tfirst + Slength .. Tlast loop
371 for J in Tfirst .. Tlast - Slength loop
375 Target (Tlast - Slength + 1 .. Tlast) := Source;
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
387 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
389 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Da-strfix.adb325 Slength : constant Integer := Source'Length; constant
348 if Slength = Tlength then
351 elsif Slength > Tlength then
388 Target (Tfirst .. Tfirst + Slength - 1) := Source;
390 for I in Tfirst + Slength .. Tlast loop
395 for I in Tfirst .. Tlast - Slength loop
399 Target (Tlast - Slength + 1 .. Tlast) := Source;
403 Front_Pad : constant Integer := (Tlength - Slength) / 2;
411 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
413 for I in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
366 Target (Tfirst .. Tfirst + Slength - 1) := Source;
368 for J in Tfirst + Slength .. Tlast loop
373 for J in Tfirst .. Tlast - Slength loop
377 Target (Tlast - Slength + 1 .. Tlast) := Source;
381 Front_Pad : constant Integer := (Tlength - Slength) / 2;
389 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
391 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
368 Target (Tfirst .. Tfirst + Slength - 1) := Source;
370 for J in Tfirst + Slength .. Tlast loop
375 for J in Tfirst .. Tlast - Slength loop
379 Target (Tlast - Slength + 1 .. Tlast) := Source;
383 Front_Pad : constant Integer := (Tlength - Slength) / 2;
391 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
393 for J in Tfirst_Fpad + Slength .. Tlast loop
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/libgnat/
H A Da-stwifi.adb299 Slength : constant Integer := Source'Length; constant
326 if Slength = Tlength then
329 elsif Slength > Tlength then
364 Target (Tfirst .. Tfirst + Slength - 1) := Source;
366 for J in Tfirst + Slength .. Tlast loop
371 for J in Tfirst .. Tlast - Slength loop
375 Target (Tlast - Slength + 1 .. Tlast) := Source;
379 Front_Pad : constant Integer := (Tlength - Slength) / 2;
387 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
389 for J in Tfirst_Fpad + Slength .. Tlast loop
H A Da-stzfix.adb305 Slength : constant Integer := Source'Length; constant
328 if Slength = Tlength then
331 elsif Slength > Tlength then
367 Target (Tfirst .. Tfirst + Slength - 1) := Source;
369 for J in Tfirst + Slength .. Tlast loop
374 for J in Tfirst .. Tlast - Slength loop
378 Target (Tlast - Slength + 1 .. Tlast) := Source;
382 Front_Pad : constant Integer := (Tlength - Slength) / 2;
390 Target (Tfirst_Fpad .. Tfirst_Fpad + Slength - 1) := Source;
392 for J in Tfirst_Fpad + Slength .. Tlast loop

1234