OLD | NEW |
1 /* Support for printing Fortran values for GDB, the GNU debugger. | 1 /* Support for printing Fortran values for GDB, the GNU debugger. |
2 | 2 |
3 Copyright (C) 1993-1996, 1998-2000, 2003, 2005-2012 Free Software | 3 Copyright (C) 1993-1996, 1998-2000, 2003, 2005-2012 Free Software |
4 Foundation, Inc. | 4 Foundation, Inc. |
5 | 5 |
6 Contributed by Motorola. Adapted from the C definitions by Farooq Butt | 6 Contributed by Motorola. Adapted from the C definitions by Farooq Butt |
7 (fmbutt@engage.sps.mot.com), additionally worked over by Stan Shebs. | 7 (fmbutt@engage.sps.mot.com), additionally worked over by Stan Shebs. |
8 | 8 |
9 This file is part of GDB. | 9 This file is part of GDB. |
10 | 10 |
(...skipping 23 matching lines...) Expand all Loading... |
34 #include "gdbcore.h" | 34 #include "gdbcore.h" |
35 #include "command.h" | 35 #include "command.h" |
36 #include "block.h" | 36 #include "block.h" |
37 | 37 |
38 #if 0 | 38 #if 0 |
39 static int there_is_a_visible_common_named (char *); | 39 static int there_is_a_visible_common_named (char *); |
40 #endif | 40 #endif |
41 | 41 |
42 extern void _initialize_f_valprint (void); | 42 extern void _initialize_f_valprint (void); |
43 static void info_common_command (char *, int); | 43 static void info_common_command (char *, int); |
44 static void list_all_visible_commons (char *); | 44 static void list_all_visible_commons (const char *); |
45 static void f77_create_arrayprint_offset_tbl (struct type *, | 45 static void f77_create_arrayprint_offset_tbl (struct type *, |
46 struct ui_file *); | 46 struct ui_file *); |
47 static void f77_get_dynamic_length_of_aggregate (struct type *); | 47 static void f77_get_dynamic_length_of_aggregate (struct type *); |
48 | 48 |
49 int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2]; | 49 int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2]; |
50 | 50 |
51 /* Array which holds offsets to be applied to get a row's elements | 51 /* Array which holds offsets to be applied to get a row's elements |
52 for a given array. Array also holds the size of each subarray. */ | 52 for a given array. Array also holds the size of each subarray. */ |
53 | 53 |
54 /* The following macro gives us the size of the nth dimension, Where | 54 /* The following macro gives us the size of the nth dimension, Where |
(...skipping 177 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
232 ndimensions, MAX_FORTRAN_DIMS); | 232 ndimensions, MAX_FORTRAN_DIMS); |
233 | 233 |
234 /* Since F77 arrays are stored column-major, we set up an | 234 /* Since F77 arrays are stored column-major, we set up an |
235 offset table to get at the various row's elements. The | 235 offset table to get at the various row's elements. The |
236 offset table contains entries for both offset and subarray size. */ | 236 offset table contains entries for both offset and subarray size. */ |
237 | 237 |
238 f77_create_arrayprint_offset_tbl (type, stream); | 238 f77_create_arrayprint_offset_tbl (type, stream); |
239 | 239 |
240 f77_print_array_1 (1, ndimensions, type, valaddr, embedded_offset, | 240 f77_print_array_1 (1, ndimensions, type, valaddr, embedded_offset, |
241 address, stream, recurse, val, options, &elts); | 241 address, stream, recurse, val, options, &elts); |
error: old chunk mismatch |
None
OLD | NEW |