gdb/f-lang.h

   1 /* Fortran language support definitions for GDB, the GNU debugger.
   2
   3    Copyright (C) 1992-2017 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 struct type_print_options;
  24 struct parser_state;
  25
  26 extern int f_parse (struct parser_state *);
  27
  28 extern void f_yyerror (const char *);   /* Defined in f-exp.y */
  29
  30 extern void f_print_type (struct type *, const char *, struct ui_file *, int,
  31                           int, const struct type_print_options *);
  32
  33 extern void f_val_print (struct type *, int, CORE_ADDR,
  34                          struct ui_file *, int,
  35                          struct value *,
  36                          const struct value_print_options *);
  37
  38 /* Language-specific data structures */
  39
  40 /* A common block.  */
  41
  42 struct common_block
  43 {
  44   /* The number of entries in the block.  */
  45   size_t n_entries;
  46
  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];
  50 };
  51
  52 extern int f77_get_upperbound (struct type *);
  53
  54 extern int f77_get_lowerbound (struct type *);
  55
  56 extern void f77_get_dynamic_array_length (struct type *);
  57
  58 extern int calc_f77_array_dims (struct type *);
  59
  60
  61 /* Fortran (F77) types */
  62
  63 struct builtin_f_type
  64 {
  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;
  79 };
  80
  81 /* Return the Fortran type table for the specified architecture.  */
  82 extern const struct builtin_f_type *builtin_f_type (struct gdbarch *gdbarch);
  83