gcc/fortran/trans-types.h

   1 /* Header for Fortran 95 types backend support.
   2    Copyright (C) 2002-2022 Free Software Foundation, Inc.
   3    Contributed by Paul Brook <paul@nowt.org>
   4    and Steven Bosscher <s.bosscher@student.tudelft.nl>
   5
   6 This file is part of GCC.
   7
   8 GCC is free software; you can redistribute it and/or modify it under
   9 the terms of the GNU General Public License as published by the Free
  10 Software Foundation; either version 3, or (at your option) any later
  11 version.
  12
  13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16 for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GCC; see the file COPYING3.  If not see
  20 <http://www.gnu.org/licenses/>.  */
  21
  22
  23 #ifndef GFC_BACKEND_H
  24 #define GFC_BACKEND_H
  25
  26
  27 extern GTY(()) tree gfc_array_index_type;
  28 extern GTY(()) tree gfc_array_range_type;
  29 extern GTY(()) tree gfc_character1_type_node;
  30 extern GTY(()) tree ppvoid_type_node;
  31 extern GTY(()) tree pvoid_type_node;
  32 extern GTY(()) tree prvoid_type_node;
  33 extern GTY(()) tree pchar_type_node;
  34 extern GTY(()) tree gfc_float128_type_node;
  35 extern GTY(()) tree gfc_complex_float128_type_node;
  36
  37 /* logical_type_node is the Fortran LOGICAL type of default kind.  In
  38    addition to uses mandated by the Fortran standard, also prefer it
  39    for compiler generated temporary variables, is it avoids some minor
  40    issues with boolean_type_node (the C/C++ _Bool/bool). Namely:
  41    - On x86, partial register stalls with 8/16 bit register access,
  42      and length prefix changes.
  43    - On s390 there is a compare with immediate and jump instruction,
  44      but it works only with 32-bit quantities and not 8-bit such as
  45      boolean_type_node.
  46 */
  47 extern GTY(()) tree logical_type_node;
  48 extern GTY(()) tree logical_true_node;
  49 extern GTY(()) tree logical_false_node;
  50
  51 /* This is the type used to hold the lengths of character variables.
  52    It must be the same as the corresponding definition in gfortran.h.  */
  53 extern GTY(()) tree gfc_charlen_type_node;
  54
  55
  56 /* The following flags give us information on the correspondence of
  57    real (and complex) kinds with C floating-point types long double
  58    and _Float128.  */
  59 extern bool gfc_real16_is_float128;
  60
  61 enum gfc_packed {
  62   PACKED_NO = 0,
  63   PACKED_PARTIAL,
  64   PACKED_FULL,
  65   PACKED_STATIC
  66 };
  67
  68 /* trans-types.c */
  69 void gfc_init_kinds (void);
  70 void gfc_init_types (void);
  71 void gfc_init_c_interop_kinds (void);
  72
  73 tree get_dtype_type_node (void);
  74 tree gfc_get_int_type (int);
  75 tree gfc_get_real_type (int);
  76 tree gfc_get_complex_type (int);
  77 tree gfc_get_logical_type (int);
  78 tree gfc_get_char_type (int);
  79 tree gfc_get_pchar_type (int);
  80 tree gfc_get_character_type (int, gfc_charlen *);
  81 tree gfc_get_character_type_len (int, tree);
  82 tree gfc_get_character_type_len_for_eltype (tree, tree);
  83
  84 tree gfc_sym_type (gfc_symbol *, bool is_bind_c_arg = false);
  85 tree gfc_get_cfi_type (int dimen, bool restricted);
  86 tree gfc_typenode_for_spec (gfc_typespec *, int c = 0);
  87 int gfc_copy_dt_decls_ifequal (gfc_symbol *, gfc_symbol *, bool);
  88
  89 tree gfc_get_function_type (gfc_symbol *, gfc_actual_arglist *args = NULL,
  90                             const char *fnspec = NULL);
  91
  92 tree gfc_type_for_size (unsigned, int);
  93 tree gfc_type_for_mode (machine_mode, int);
  94 tree gfc_build_uint_type (int);
  95
  96 tree gfc_get_element_type (tree);
  97 tree gfc_get_array_type_bounds (tree, int, int, tree *, tree *, int,
  98                                 enum gfc_array_kind, bool);
  99 tree gfc_get_nodesc_array_type (tree, gfc_array_spec *, gfc_packed, bool);
 100
 101 /* Add a field of given name and type to a UNION_TYPE or RECORD_TYPE.  */
 102 tree gfc_add_field_to_struct (tree, tree, tree, tree **);
 103
 104 /* Layout and output debugging info for a type.  */
 105 void gfc_finish_type (tree);
 106
 107 /* Some functions have an extra parameter for the return value.  */
 108 int gfc_return_by_reference (gfc_symbol *);
 109
 110 /* Returns true if the array sym does not require a descriptor.  */
 111 int gfc_is_nodesc_array (gfc_symbol *);
 112
 113 /* Return the DTYPE for an array.  */
 114 tree gfc_get_dtype_rank_type (int, tree);
 115 tree gfc_get_dtype (tree, int *rank = NULL);
 116
 117 tree gfc_get_caf_vector_type (int dim);
 118 tree gfc_get_caf_reference_type ();
 119
 120 #endif