1 /* Fortran language support definitions for GDB, the GNU debugger. 2 3 Copyright (C) 1992-2019 Free Software Foundation, Inc. 4 5 Contributed by Motorola. Adapted from the C definitions by Farooq Butt 6 (fmbutt@engage.sps.mot.com). 7 8 This file is part of GDB. 9 10 This program is free software; you can redistribute it and/or modify 11 it under the terms of the GNU General Public License as published by 12 the Free Software Foundation; either version 3 of the License, or 13 (at your option) any later version. 14 15 This program is distributed in the hope that it will be useful, 16 but WITHOUT ANY WARRANTY; without even the implied warranty of 17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 GNU General Public License for more details. 19 20 You should have received a copy of the GNU General Public License 21 along with this program. If not, see <http://www.gnu.org/licenses/>. */ 22 23 #ifndef F_LANG_H 24 #define F_LANG_H 25 26 struct type_print_options; 27 struct parser_state; 28 29 extern int f_parse (struct parser_state *); 30 31 extern void f_print_type (struct type *, const char *, struct ui_file *, int, 32 int, const struct type_print_options *); 33 34 extern void f_val_print (struct type *, int, CORE_ADDR, 35 struct ui_file *, int, 36 struct value *, 37 const struct value_print_options *); 38 39 /* Language-specific data structures */ 40 41 /* A common block. */ 42 43 struct common_block 44 { 45 /* The number of entries in the block. */ 46 size_t n_entries; 47 48 /* The contents of the block, allocated using the struct hack. All 49 pointers in the array are non-NULL. */ 50 struct symbol *contents[1]; 51 }; 52 53 extern int f77_get_upperbound (struct type *); 54 55 extern int f77_get_lowerbound (struct type *); 56 57 extern void f77_get_dynamic_array_length (struct type *); 58 59 extern int calc_f77_array_dims (struct type *); 60 61 62 /* Fortran (F77) types */ 63 64 struct builtin_f_type 65 { 66 struct type *builtin_character; 67 struct type *builtin_integer; 68 struct type *builtin_integer_s2; 69 struct type *builtin_logical; 70 struct type *builtin_logical_s1; 71 struct type *builtin_logical_s2; 72 struct type *builtin_logical_s8; 73 struct type *builtin_real; 74 struct type *builtin_real_s8; 75 struct type *builtin_real_s16; 76 struct type *builtin_complex_s8; 77 struct type *builtin_complex_s16; 78 struct type *builtin_complex_s32; 79 struct type *builtin_void; 80 }; 81 82 /* Return the Fortran type table for the specified architecture. */ 83 extern const struct builtin_f_type *builtin_f_type (struct gdbarch *gdbarch); 84 85 #endif /* F_LANG_H */ 86