gcc/fortran/types.def

   1 /* Copyright (C) 2001-2014 Free Software Foundation, Inc.
   2
   3 This file is part of GCC.
   4
   5 GCC is free software; you can redistribute it and/or modify it under
   6 the terms of the GNU General Public License as published by the Free
   7 Software Foundation; either version 3, or (at your option) any later
   8 version.
   9
  10 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  11 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  12 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13 for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with GCC; see the file COPYING3.  If not see
  17 <http://www.gnu.org/licenses/>.  */
  18
  19 /* This header contains a subset of ../builtin-types.def needed for
  20    Fortran frontend builtins.
  21
  22    Before including this header, you must define the following macros:
  23
  24    DEF_PRIMITIVE_TYPE (ENUM, TYPE)
  25
  26      The ENUM is an identifier indicating which type is being defined.
  27      TYPE is an expression for a `tree' that represents the type.
  28
  29    DEF_FUNCTION_TYPE_0 (ENUM, RETURN)
  30    DEF_FUNCTION_TYPE_1 (ENUM, RETURN, ARG1)
  31    DEF_FUNCTION_TYPE_2 (ENUM, RETURN, ARG1, ARG2)
  32    [...]
  33
  34      These macros describe function types.  ENUM is as above.  The
  35      RETURN type is one of the enumerals already defined.  ARG1, ARG2,
  36      and ARG3 give the types of the arguments, similarly.
  37
  38    DEF_FUNCTION_TYPE_VAR_0 (ENUM, RETURN)
  39
  40      Similar, but for function types that take variable arguments.
  41
  42   DEF_POINTER_TYPE (ENUM, TYPE)
  43
  44     This macro describes a pointer type.  ENUM is as above; TYPE is
  45     the type pointed to.  */
  46
  47 DEF_PRIMITIVE_TYPE (BT_VOID, void_type_node)
  48 DEF_PRIMITIVE_TYPE (BT_BOOL,
  49                     (*lang_hooks.types.type_for_size) (BOOL_TYPE_SIZE, 1))
  50 DEF_PRIMITIVE_TYPE (BT_INT, integer_type_node)
  51 DEF_PRIMITIVE_TYPE (BT_UINT, unsigned_type_node)
  52 DEF_PRIMITIVE_TYPE (BT_LONG, long_integer_type_node)
  53 DEF_PRIMITIVE_TYPE (BT_ULONGLONG, long_long_unsigned_type_node)
  54 DEF_PRIMITIVE_TYPE (BT_WORD, (*lang_hooks.types.type_for_mode) (word_mode, 1))
  55 DEF_PRIMITIVE_TYPE (BT_SIZE, size_type_node)
  56
  57 DEF_PRIMITIVE_TYPE (BT_I1, builtin_type_for_size (BITS_PER_UNIT*1, 1))
  58 DEF_PRIMITIVE_TYPE (BT_I2, builtin_type_for_size (BITS_PER_UNIT*2, 1))
  59 DEF_PRIMITIVE_TYPE (BT_I4, builtin_type_for_size (BITS_PER_UNIT*4, 1))
  60 DEF_PRIMITIVE_TYPE (BT_I8, builtin_type_for_size (BITS_PER_UNIT*8, 1))
  61 DEF_PRIMITIVE_TYPE (BT_I16, builtin_type_for_size (BITS_PER_UNIT*16, 1))
  62
  63 DEF_PRIMITIVE_TYPE (BT_PTR, ptr_type_node)
  64 DEF_PRIMITIVE_TYPE (BT_CONST_PTR, const_ptr_type_node)
  65 DEF_PRIMITIVE_TYPE (BT_VOLATILE_PTR,
  66                     build_pointer_type
  67                      (build_qualified_type (void_type_node,
  68                                             TYPE_QUAL_VOLATILE)))
  69 DEF_PRIMITIVE_TYPE (BT_CONST_VOLATILE_PTR,
  70                     build_pointer_type
  71                      (build_qualified_type (void_type_node,
  72                                           TYPE_QUAL_VOLATILE|TYPE_QUAL_CONST)))
  73 DEF_POINTER_TYPE (BT_PTR_LONG, BT_LONG)
  74 DEF_POINTER_TYPE (BT_PTR_ULONGLONG, BT_ULONGLONG)
  75 DEF_POINTER_TYPE (BT_PTR_PTR, BT_PTR)
  76 DEF_FUNCTION_TYPE_0 (BT_FN_BOOL, BT_BOOL)
  77 DEF_FUNCTION_TYPE_0 (BT_FN_PTR, BT_PTR)
  78 DEF_FUNCTION_TYPE_0 (BT_FN_INT, BT_INT)
  79 DEF_FUNCTION_TYPE_0 (BT_FN_UINT, BT_UINT)
  80 DEF_FUNCTION_TYPE_0 (BT_FN_VOID, BT_VOID)
  81
  82 DEF_FUNCTION_TYPE_1 (BT_FN_VOID_PTR, BT_VOID, BT_PTR)
  83 DEF_FUNCTION_TYPE_1 (BT_FN_VOID_PTRPTR, BT_VOID, BT_PTR_PTR)
  84 DEF_FUNCTION_TYPE_1 (BT_FN_VOID_VPTR, BT_VOID, BT_VOLATILE_PTR)
  85 DEF_FUNCTION_TYPE_1 (BT_FN_UINT_UINT, BT_UINT, BT_UINT)
  86 DEF_FUNCTION_TYPE_1 (BT_FN_PTR_PTR, BT_PTR, BT_PTR)
  87 DEF_FUNCTION_TYPE_1 (BT_FN_VOID_INT, BT_VOID, BT_INT)
  88 DEF_FUNCTION_TYPE_1 (BT_FN_BOOL_INT, BT_BOOL, BT_INT)
  89
  90 DEF_POINTER_TYPE (BT_PTR_FN_VOID_PTR, BT_FN_VOID_PTR)
  91
  92 DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_LONGPTR_LONGPTR,
  93                      BT_BOOL, BT_PTR_LONG, BT_PTR_LONG)
  94 DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_ULONGLONGPTR_ULONGLONGPTR,
  95                      BT_BOOL, BT_PTR_ULONGLONG, BT_PTR_ULONGLONG)
  96 DEF_FUNCTION_TYPE_2 (BT_FN_I1_VPTR_I1, BT_I1, BT_VOLATILE_PTR, BT_I1)
  97 DEF_FUNCTION_TYPE_2 (BT_FN_I2_VPTR_I2, BT_I2, BT_VOLATILE_PTR, BT_I2)
  98 DEF_FUNCTION_TYPE_2 (BT_FN_I4_VPTR_I4, BT_I4, BT_VOLATILE_PTR, BT_I4)
  99 DEF_FUNCTION_TYPE_2 (BT_FN_I8_VPTR_I8, BT_I8, BT_VOLATILE_PTR, BT_I8)
 100 DEF_FUNCTION_TYPE_2 (BT_FN_I16_VPTR_I16, BT_I16, BT_VOLATILE_PTR, BT_I16)
 101 DEF_FUNCTION_TYPE_2 (BT_FN_VOID_PTR_PTR, BT_VOID, BT_PTR, BT_PTR)
 102 DEF_FUNCTION_TYPE_2 (BT_FN_I1_CONST_VPTR_INT, BT_I1, BT_CONST_VOLATILE_PTR,
 103                      BT_INT)
 104 DEF_FUNCTION_TYPE_2 (BT_FN_I2_CONST_VPTR_INT, BT_I2, BT_CONST_VOLATILE_PTR,
 105                      BT_INT)
 106 DEF_FUNCTION_TYPE_2 (BT_FN_I4_CONST_VPTR_INT, BT_I4, BT_CONST_VOLATILE_PTR,
 107                      BT_INT)
 108 DEF_FUNCTION_TYPE_2 (BT_FN_I8_CONST_VPTR_INT, BT_I8, BT_CONST_VOLATILE_PTR,
 109                      BT_INT)
 110 DEF_FUNCTION_TYPE_2 (BT_FN_I16_CONST_VPTR_INT, BT_I16, BT_CONST_VOLATILE_PTR,
 111                      BT_INT)
 112 DEF_FUNCTION_TYPE_2 (BT_FN_VOID_VPTR_INT, BT_VOID, BT_VOLATILE_PTR, BT_INT)
 113 DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_VPTR_INT, BT_BOOL, BT_VOLATILE_PTR, BT_INT)
 114 DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_SIZE_CONST_VPTR, BT_BOOL, BT_SIZE,
 115                      BT_CONST_VOLATILE_PTR)
 116 DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_INT_BOOL, BT_BOOL, BT_INT, BT_BOOL)
 117 DEF_FUNCTION_TYPE_2 (BT_FN_VOID_UINT_UINT, BT_VOID, BT_UINT, BT_UINT)
 118
 119 DEF_POINTER_TYPE (BT_PTR_FN_VOID_PTR_PTR, BT_FN_VOID_PTR_PTR)
 120
 121 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I1_I1, BT_BOOL, BT_VOLATILE_PTR,
 122                      BT_I1, BT_I1)
 123 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I2_I2, BT_BOOL, BT_VOLATILE_PTR,
 124                      BT_I2, BT_I2)
 125 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I4_I4, BT_BOOL, BT_VOLATILE_PTR,
 126                      BT_I4, BT_I4)
 127 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I8_I8, BT_BOOL, BT_VOLATILE_PTR,
 128                      BT_I8, BT_I8)
 129 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I16_I16, BT_BOOL, BT_VOLATILE_PTR,
 130                      BT_I16, BT_I16)
 131 DEF_FUNCTION_TYPE_3 (BT_FN_I1_VPTR_I1_I1, BT_I1, BT_VOLATILE_PTR, BT_I1, BT_I1)
 132 DEF_FUNCTION_TYPE_3 (BT_FN_I2_VPTR_I2_I2, BT_I2, BT_VOLATILE_PTR, BT_I2, BT_I2)
 133 DEF_FUNCTION_TYPE_3 (BT_FN_I4_VPTR_I4_I4, BT_I4, BT_VOLATILE_PTR, BT_I4, BT_I4)
 134 DEF_FUNCTION_TYPE_3 (BT_FN_I8_VPTR_I8_I8, BT_I8, BT_VOLATILE_PTR, BT_I8, BT_I8)
 135 DEF_FUNCTION_TYPE_3 (BT_FN_I16_VPTR_I16_I16, BT_I16, BT_VOLATILE_PTR,
 136                      BT_I16, BT_I16)
 137 DEF_FUNCTION_TYPE_3 (BT_FN_I1_VPTR_I1_INT, BT_I1, BT_VOLATILE_PTR, BT_I1, BT_INT)
 138 DEF_FUNCTION_TYPE_3 (BT_FN_I2_VPTR_I2_INT, BT_I2, BT_VOLATILE_PTR, BT_I2, BT_INT)
 139 DEF_FUNCTION_TYPE_3 (BT_FN_I4_VPTR_I4_INT, BT_I4, BT_VOLATILE_PTR, BT_I4, BT_INT)
 140 DEF_FUNCTION_TYPE_3 (BT_FN_I8_VPTR_I8_INT, BT_I8, BT_VOLATILE_PTR, BT_I8, BT_INT)
 141 DEF_FUNCTION_TYPE_3 (BT_FN_I16_VPTR_I16_INT, BT_I16, BT_VOLATILE_PTR, BT_I16, BT_INT)
 142 DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I1_INT, BT_VOID, BT_VOLATILE_PTR, BT_I1, BT_INT)
 143 DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I2_INT, BT_VOID, BT_VOLATILE_PTR, BT_I2, BT_INT)
 144 DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I4_INT, BT_VOID, BT_VOLATILE_PTR, BT_I4, BT_INT)
 145 DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I8_INT, BT_VOID, BT_VOLATILE_PTR, BT_I8, BT_INT)
 146 DEF_FUNCTION_TYPE_3 (BT_FN_VOID_VPTR_I16_INT, BT_VOID, BT_VOLATILE_PTR, BT_I16, BT_INT)
 147
 148 DEF_FUNCTION_TYPE_4 (BT_FN_VOID_OMPFN_PTR_UINT_UINT,
 149                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT)
 150 DEF_FUNCTION_TYPE_4 (BT_FN_VOID_PTR_WORD_WORD_PTR,
 151                      BT_VOID, BT_PTR, BT_WORD, BT_WORD, BT_PTR)
 152 DEF_FUNCTION_TYPE_4 (BT_FN_VOID_SIZE_VPTR_PTR_INT, BT_VOID, BT_SIZE,
 153                      BT_VOLATILE_PTR, BT_PTR, BT_INT)
 154 DEF_FUNCTION_TYPE_4 (BT_FN_VOID_SIZE_CONST_VPTR_PTR_INT, BT_VOID, BT_SIZE,
 155                      BT_CONST_VOLATILE_PTR, BT_PTR, BT_INT)
 156
 157 DEF_FUNCTION_TYPE_5 (BT_FN_VOID_OMPFN_PTR_UINT_UINT_UINT,
 158                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT,
 159                      BT_UINT)
 160 DEF_FUNCTION_TYPE_5 (BT_FN_BOOL_LONG_LONG_LONG_LONGPTR_LONGPTR,
 161                      BT_BOOL, BT_LONG, BT_LONG, BT_LONG,
 162                      BT_PTR_LONG, BT_PTR_LONG)
 163 DEF_FUNCTION_TYPE_5 (BT_FN_VOID_SIZE_VPTR_PTR_PTR_INT, BT_VOID, BT_SIZE,
 164                      BT_VOLATILE_PTR, BT_PTR, BT_PTR, BT_INT)
 165
 166 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_LONG_LONG_LONG_LONG_LONGPTR_LONGPTR,
 167                      BT_BOOL, BT_LONG, BT_LONG, BT_LONG, BT_LONG,
 168                      BT_PTR_LONG, BT_PTR_LONG)
 169 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULLPTR_ULLPTR,
 170                      BT_BOOL, BT_BOOL, BT_ULONGLONG, BT_ULONGLONG,
 171                      BT_ULONGLONG, BT_PTR_ULONGLONG, BT_PTR_ULONGLONG)
 172 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I1_BOOL_INT_INT,
 173                      BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I1, BT_BOOL, BT_INT,
 174                      BT_INT)
 175 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I2_BOOL_INT_INT,
 176                      BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I2, BT_BOOL, BT_INT,
 177                      BT_INT)
 178 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I4_BOOL_INT_INT,
 179                      BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I4, BT_BOOL, BT_INT,
 180                      BT_INT)
 181 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I8_BOOL_INT_INT,
 182                      BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I8, BT_BOOL, BT_INT,
 183                      BT_INT)
 184 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_VPTR_PTR_I16_BOOL_INT_INT,
 185                      BT_BOOL, BT_VOLATILE_PTR, BT_PTR, BT_I16, BT_BOOL, BT_INT,
 186                      BT_INT)
 187 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_SIZE_VPTR_PTR_PTR_INT_INT, BT_BOOL, BT_SIZE,
 188                      BT_VOLATILE_PTR, BT_PTR, BT_PTR, BT_INT, BT_INT)
 189 DEF_FUNCTION_TYPE_6 (BT_FN_VOID_INT_PTR_SIZE_PTR_PTR_PTR,
 190                      BT_VOID, BT_INT, BT_PTR, BT_SIZE, BT_PTR, BT_PTR, BT_PTR)
 191
 192 DEF_FUNCTION_TYPE_7 (BT_FN_VOID_OMPFN_PTR_UINT_LONG_LONG_LONG_UINT,
 193                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT,
 194                      BT_LONG, BT_LONG, BT_LONG, BT_UINT)
 195 DEF_FUNCTION_TYPE_7 (BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULL_ULLPTR_ULLPTR,
 196                      BT_BOOL, BT_BOOL, BT_ULONGLONG, BT_ULONGLONG,
 197                      BT_ULONGLONG, BT_ULONGLONG,
 198                      BT_PTR_ULONGLONG, BT_PTR_ULONGLONG)
 199 DEF_FUNCTION_TYPE_7 (BT_FN_VOID_INT_OMPFN_PTR_SIZE_PTR_PTR_PTR,
 200                      BT_VOID, BT_INT, BT_PTR_FN_VOID_PTR, BT_PTR, BT_SIZE,
 201                      BT_PTR, BT_PTR, BT_PTR)
 202
 203 DEF_FUNCTION_TYPE_8 (BT_FN_VOID_OMPFN_PTR_UINT_LONG_LONG_LONG_LONG_UINT,
 204                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT,
 205                      BT_LONG, BT_LONG, BT_LONG, BT_LONG, BT_UINT)
 206 DEF_FUNCTION_TYPE_8 (BT_FN_VOID_OMPFN_PTR_OMPCPYFN_LONG_LONG_BOOL_UINT_PTR,
 207                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR,
 208                      BT_PTR_FN_VOID_PTR_PTR, BT_LONG, BT_LONG,
 209                      BT_BOOL, BT_UINT, BT_PTR)
 210
 211 DEF_FUNCTION_TYPE_VAR_0 (BT_FN_VOID_VAR, BT_VOID)