1 /* Fortran language support definitions for GDB, the GNU debugger.
3 Copyright (C) 1992-2017 Free Software Foundation, Inc.
5 Contributed by Motorola. Adapted from the C definitions by Farooq Butt
6 (fmbutt@engage.sps.mot.com).
8 This file is part of GDB.
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.
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.
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/>. */
23 struct type_print_options
;
26 extern int f_parse (struct parser_state
*);
28 extern void f_yyerror (const char *); /* Defined in f-exp.y */
30 extern void f_print_type (struct type
*, const char *, struct ui_file
*, int,
31 int, const struct type_print_options
*);
33 extern void f_val_print (struct type
*, int, CORE_ADDR
,
34 struct ui_file
*, int,
36 const struct value_print_options
*);
38 /* Language-specific data structures */
44 /* The number of entries in the block. */
47 /* The contents of the block, allocated using the struct hack. All
48 pointers in the array are non-NULL. */
49 struct symbol
*contents
[1];
52 extern int f77_get_upperbound (struct type
*);
54 extern int f77_get_lowerbound (struct type
*);
56 extern void f77_get_dynamic_array_length (struct type
*);
58 extern int calc_f77_array_dims (struct type
*);
61 /* Fortran (F77) types */
65 struct type
*builtin_character
;
66 struct type
*builtin_integer
;
67 struct type
*builtin_integer_s2
;
68 struct type
*builtin_logical
;
69 struct type
*builtin_logical_s1
;
70 struct type
*builtin_logical_s2
;
71 struct type
*builtin_logical_s8
;
72 struct type
*builtin_real
;
73 struct type
*builtin_real_s8
;
74 struct type
*builtin_real_s16
;
75 struct type
*builtin_complex_s8
;
76 struct type
*builtin_complex_s16
;
77 struct type
*builtin_complex_s32
;
78 struct type
*builtin_void
;
81 /* Return the Fortran type table for the specified architecture. */
82 extern const struct builtin_f_type
*builtin_f_type (struct gdbarch
*gdbarch
);
This page took 0.030172 seconds and 4 git commands to generate.