gdb/f-lang.h

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