/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | a-teioed.adb | 54 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 D | a-wtedit.adb | 197 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 D | a-ztedit.adb | 198 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 D | a-wtedit.adb | 197 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 D | a-teioed.adb | 54 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 D | a-teioed.adb | 54 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 D | a-ztedit.adb | 198 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 D | a-wtedit.adb | 197 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 D | a-wtedit.adb | 197 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 D | a-teioed.adb | 54 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 D | a-ztedit.adb | 198 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 D | a-teioed.adb | 54 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 D | a-ztedit.adb | 198 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 D | a-wtedit.adb | 197 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 D | a-wtedit.adb | 197 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 D | a-ztedit.adb | 198 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 D | a-teioed.adb | 54 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 D | a-teioed.adb | 54 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 D | a-wtedit.adb | 197 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 D | a-ztedit.adb | 198 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 D | a-ztedit.adb | 198 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 D | a-teioed.adb | 54 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 D | a-wtedit.adb | 197 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 D | a-teioed.adb | 54 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 D | a-wtedit.adb | 197 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;
|