Home
last modified time | relevance | path

Searched refs:Picture_Index (Results 1 – 25 of 79) sorted by relevance

1234

/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
74 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
89 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
96 Picture_Index := Last + 2;
106 Result (Result_Index) := Picture (Picture_Index);
107 Picture_Index := Picture_Index + 1;
111 exit when Picture_Index > Picture'Last;
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
221 Last := Picture_Index + 1;
261 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
268 Picture_Index := Last + 1;
274 Result (Result_Index) := Picture (Picture_Index);
275 Picture_Index := Picture_Index + 1;
279 exit when Picture_Index > Picture'Last;
H A Da-ztedit.adb198 Picture_Index : Integer := Picture'First; variable
213 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
280 exit when Picture_Index > Picture'Last;
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
281 exit when Picture_Index > Picture'Last;
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
75 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
90 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
97 Picture_Index := Last + 2;
107 Result (Result_Index) := Picture (Picture_Index);
108 Picture_Index := Picture_Index + 1;
113 exit when Picture_Index > Picture'Last;
/dports/lang/gcc6-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly4.1/5.1.0/adainclude/
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
75 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
90 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
97 Picture_Index := Last + 2;
107 Result (Result_Index) := Picture (Picture_Index);
108 Picture_Index := Picture_Index + 1;
113 exit when Picture_Index > Picture'Last;
H A Da-ztedit.adb198 Picture_Index : Integer := Picture'First; variable
213 case Picture (Picture_Index) is
223 Last := Picture_Index + 1;
263 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
270 Picture_Index := Last + 1;
276 Result (Result_Index) := Picture (Picture_Index);
277 Picture_Index := Picture_Index + 1;
282 exit when Picture_Index > Picture'Last;
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
221 Last := Picture_Index + 1;
261 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
268 Picture_Index := Last + 1;
274 Result (Result_Index) := Picture (Picture_Index);
275 Picture_Index := Picture_Index + 1;
279 exit when Picture_Index > Picture'Last;
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
281 exit when Picture_Index > Picture'Last;
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
74 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
89 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
96 Picture_Index := Last + 2;
106 Result (Result_Index) := Picture (Picture_Index);
107 Picture_Index := Picture_Index + 1;
111 exit when Picture_Index > Picture'Last;
H A Da-ztedit.adb198 Picture_Index : Integer := Picture'First; variable
213 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
280 exit when Picture_Index > Picture'Last;
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
75 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
90 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
97 Picture_Index := Last + 2;
107 Result (Result_Index) := Picture (Picture_Index);
108 Picture_Index := Picture_Index + 1;
113 exit when Picture_Index > Picture'Last;
H A Da-ztedit.adb198 Picture_Index : Integer := Picture'First; variable
213 case Picture (Picture_Index) is
223 Last := Picture_Index + 1;
263 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
270 Picture_Index := Last + 1;
276 Result (Result_Index) := Picture (Picture_Index);
277 Picture_Index := Picture_Index + 1;
282 exit when Picture_Index > Picture'Last;
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
281 exit when Picture_Index > Picture'Last;
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
221 Last := Picture_Index + 1;
261 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
268 Picture_Index := Last + 1;
274 Result (Result_Index) := Picture (Picture_Index);
275 Picture_Index := Picture_Index + 1;
279 exit when Picture_Index > Picture'Last;
H A Da-ztedit.adb198 Picture_Index : Integer := Picture'First; variable
213 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
280 exit when Picture_Index > Picture'Last;
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
74 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
89 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
96 Picture_Index := Last + 2;
106 Result (Result_Index) := Picture (Picture_Index);
107 Picture_Index := Picture_Index + 1;
111 exit when Picture_Index > Picture'Last;
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/libgnat/
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
74 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
89 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
96 Picture_Index := Last + 2;
106 Result (Result_Index) := Picture (Picture_Index);
107 Picture_Index := Picture_Index + 1;
111 exit when Picture_Index > Picture'Last;
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
221 Last := Picture_Index + 1;
261 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
268 Picture_Index := Last + 1;
274 Result (Result_Index) := Picture (Picture_Index);
275 Picture_Index := Picture_Index + 1;
279 exit when Picture_Index > Picture'Last;
H A Da-ztedit.adb198 Picture_Index : Integer := Picture'First; variable
213 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
280 exit when Picture_Index > Picture'Last;
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/libgnat/
H A Da-ztedit.adb198 Picture_Index : Integer := Picture'First; variable
213 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
280 exit when Picture_Index > Picture'Last;
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
74 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
89 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
96 Picture_Index := Last + 2;
106 Result (Result_Index) := Picture (Picture_Index);
107 Picture_Index := Picture_Index + 1;
111 exit when Picture_Index > Picture'Last;
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
221 Last := Picture_Index + 1;
261 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
268 Picture_Index := Last + 1;
274 Result (Result_Index) := Picture (Picture_Index);
275 Picture_Index := Picture_Index + 1;
279 exit when Picture_Index > Picture'Last;
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/
H A Da-teioed.adb54 Picture_Index : Integer := Picture'First; variable
71 case Picture (Picture_Index) is
75 (Picture (Picture_Index + 1 .. Picture'Last), Count, Last);
90 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
97 Picture_Index := Last + 2;
107 Result (Result_Index) := Picture (Picture_Index);
108 Picture_Index := Picture_Index + 1;
113 exit when Picture_Index > Picture'Last;
H A Da-wtedit.adb197 Picture_Index : Integer := Picture'First; variable
212 case Picture (Picture_Index) is
222 Last := Picture_Index + 1;
262 Result (Result_Index + J - 2) := Picture (Picture_Index - 1);
269 Picture_Index := Last + 1;
275 Result (Result_Index) := Picture (Picture_Index);
276 Picture_Index := Picture_Index + 1;
281 exit when Picture_Index > Picture'Last;

1234