OLD | NEW |
1 /* Fortran language support definitions for GDB, the GNU debugger. | 1 /* Fortran language support definitions for GDB, the GNU debugger. |
2 | 2 |
3 Copyright (C) 1992-1995, 1998, 2000, 2005, 2007-2012 Free Software | 3 Copyright (C) 1992-1995, 1998, 2000, 2005, 2007-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). | 7 (fmbutt@engage.sps.mot.com). |
8 | 8 |
9 This file is part of GDB. | 9 This file is part of GDB. |
10 | 10 |
(...skipping 10 matching lines...) Expand all Loading... |
21 You should have received a copy of the GNU General Public License | 21 You should have received a copy of the GNU General Public License |
22 along with this program. If not, see <http://www.gnu.org/licenses/>. */ | 22 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
23 | 23 |
24 extern int f_parse (void); | 24 extern int f_parse (void); |
25 | 25 |
26 extern void f_error (char *); /* Defined in f-exp.y */ | 26 extern void f_error (char *); /* Defined in f-exp.y */ |
27 | 27 |
28 extern void f_print_type (struct type *, const char *, struct ui_file *, int, | 28 extern void f_print_type (struct type *, const char *, struct ui_file *, int, |
29 int); | 29 int); |
30 | 30 |
31 extern int f_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, | 31 extern void f_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, |
32 » » » struct ui_file *, int, | 32 » » » struct ui_file *, int, |
33 » » » const struct value *, | 33 » » » const struct value *, |
34 » » » const struct value_print_options *); | 34 » » » const struct value_print_options *); |
35 | 35 |
36 /* Language-specific data structures */ | 36 /* Language-specific data structures */ |
37 | 37 |
38 /* In F90 subrange expression, either bound could be empty, indicating that | 38 /* In F90 subrange expression, either bound could be empty, indicating that |
39 its value is by default that of the corresponding bound of the array or | 39 its value is by default that of the corresponding bound of the array or |
40 string. So we have four sorts of subrange in F90. This enumeration type | 40 string. So we have four sorts of subrange in F90. This enumeration type |
41 is to identify this. */ | 41 is to identify this. */ |
42 | 42 |
43 enum f90_range_type | 43 enum f90_range_type |
44 { | 44 { |
(...skipping 23 matching lines...) Expand all Loading... |
68 }; | 68 }; |
69 | 69 |
70 typedef struct saved_f77_common SAVED_F77_COMMON, *SAVED_F77_COMMON_PTR; | 70 typedef struct saved_f77_common SAVED_F77_COMMON, *SAVED_F77_COMMON_PTR; |
71 | 71 |
72 typedef struct common_entry COMMON_ENTRY, *COMMON_ENTRY_PTR; | 72 typedef struct common_entry COMMON_ENTRY, *COMMON_ENTRY_PTR; |
73 | 73 |
74 extern SAVED_F77_COMMON_PTR head_common_list; /* Ptr to 1st saved COMMON */ | 74 extern SAVED_F77_COMMON_PTR head_common_list; /* Ptr to 1st saved COMMON */ |
75 extern SAVED_F77_COMMON_PTR tail_common_list; /* Ptr to last saved COMMON */ | 75 extern SAVED_F77_COMMON_PTR tail_common_list; /* Ptr to last saved COMMON */ |
76 extern SAVED_F77_COMMON_PTR current_common; /* Ptr to current COMMON */ | 76 extern SAVED_F77_COMMON_PTR current_common; /* Ptr to current COMMON */ |
77 | 77 |
78 extern SAVED_F77_COMMON_PTR find_common_for_function (char *, char *); | 78 extern SAVED_F77_COMMON_PTR find_common_for_function (const char *, |
| 79 » » » » » » const char *); |
79 | 80 |
80 #define UNINITIALIZED_SECNUM -1 | 81 #define UNINITIALIZED_SECNUM -1 |
81 #define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM) | 82 #define COMMON_NEEDS_PATCHING(blk) ((blk)->secnum == UNINITIALIZED_SECNUM) |
82 | 83 |
83 #define BLANK_COMMON_NAME_ORIGINAL "#BLNK_COM" /* XLF assigned */ | 84 #define BLANK_COMMON_NAME_ORIGINAL "#BLNK_COM" /* XLF assigned */ |
84 #define BLANK_COMMON_NAME_MF77 "__BLNK__" /* MF77 assigned */ | 85 #define BLANK_COMMON_NAME_MF77 "__BLNK__" /* MF77 assigned */ |
85 #define BLANK_COMMON_NAME_LOCAL "__BLANK" /* Local GDB */ | 86 #define BLANK_COMMON_NAME_LOCAL "__BLANK" /* Local GDB */ |
86 | 87 |
87 /* When reasonable array bounds cannot be fetched, such as when | 88 /* When reasonable array bounds cannot be fetched, such as when |
88 you ask to 'mt print symbols' and there is no stack frame and | 89 you ask to 'mt print symbols' and there is no stack frame and |
(...skipping 31 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
120 struct type *builtin_real_s16; | 121 struct type *builtin_real_s16; |
121 struct type *builtin_complex_s8; | 122 struct type *builtin_complex_s8; |
122 struct type *builtin_complex_s16; | 123 struct type *builtin_complex_s16; |
123 struct type *builtin_complex_s32; | 124 struct type *builtin_complex_s32; |
124 struct type *builtin_void; | 125 struct type *builtin_void; |
125 }; | 126 }; |
126 | 127 |
127 /* Return the Fortran type table for the specified architecture. */ | 128 /* Return the Fortran type table for the specified architecture. */ |
128 extern const struct builtin_f_type *builtin_f_type (struct gdbarch *gdbarch); | 129 extern const struct builtin_f_type *builtin_f_type (struct gdbarch *gdbarch); |
129 | 130 |
OLD | NEW |