/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 129 Num_Calls : aliased Integer := 0; variable 193 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 200 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 203 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 259 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 268 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 346 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 352 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 355 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | memtrack.adb | 136 Num_Calls : aliased Integer := 0; variable 199 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 207 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 210 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 272 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 275 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 355 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 358 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/libgnat/ |
H A D | memtrack.adb | 132 Num_Calls : aliased Integer := 0; variable 212 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 219 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 222 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 276 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 282 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 285 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 361 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 367 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 370 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | memtrack.adb | 136 Num_Calls : aliased Integer := 0; variable 199 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 207 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 210 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 272 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 275 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 355 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 358 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/libgnat/ |
H A D | memtrack.adb | 129 Num_Calls : aliased Integer := 0; variable 193 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 200 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 203 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 259 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 268 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 346 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 352 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 355 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/libgnat/ |
H A D | memtrack.adb | 119 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 204 Write (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements); 206 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 260 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 Write (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements); 267 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 355 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 360 Write (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements); 362 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | memtrack.adb | 136 Num_Calls : aliased Integer := 0; variable 199 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 207 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 210 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 272 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 275 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 355 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 358 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 132 Num_Calls : aliased Integer := 0; variable 212 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 219 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 222 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 276 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 282 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 285 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 361 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 367 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 370 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 129 Num_Calls : aliased Integer := 0; variable 193 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 200 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 203 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 259 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 268 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 346 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 352 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 355 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 132 Num_Calls : aliased Integer := 0; variable 212 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 219 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 222 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 276 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 282 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 285 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 361 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 367 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 370 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc9-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly5.5/9.1.0/adainclude/ |
H A D | memtrack.adb | 129 Num_Calls : aliased Integer := 0; variable 193 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 200 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 203 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 259 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 268 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 346 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 352 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 355 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 129 Num_Calls : aliased Integer := 0; variable 193 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 200 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 203 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 259 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 268 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 346 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 352 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 355 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/libgnat/ |
H A D | memtrack.adb | 129 Num_Calls : aliased Integer := 0; variable 193 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 200 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 203 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 259 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 268 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 346 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 352 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 355 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/libgnat/ |
H A D | memtrack.adb | 129 Num_Calls : aliased Integer := 0; variable 193 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 200 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 203 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 259 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 265 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 268 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 346 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 352 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 355 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc6-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly4.1/5.1.0/adainclude/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | memtrack.adb | 135 Num_Calls : aliased Integer := 0; variable 199 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 206 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 209 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 265 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 271 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 274 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 348 (Tracebk, Max_Call_Stack, Num_Calls, Skip_Frames => 2); 354 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 357 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop [all …]
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | memtrack.adb | 133 Num_Calls : aliased Integer := 0; variable 188 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 194 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 197 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 250 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 254 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 257 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | memtrack.adb | 133 Num_Calls : aliased Integer := 0; variable 188 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 194 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 197 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop 250 Call_Chain (Tracebk'Address, Max_Call_Stack, Num_Calls, 254 fwrite (Num_Calls'Address, Integer'Max_Size_In_Storage_Elements, 1, 257 for J in Tracebk'First .. Tracebk'First + Num_Calls - 1 loop
|