| 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 |