gcc/fortran/types.def

   1 /* Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
   2    Free Software Foundation, Inc.
   3
   4 This file is part of GCC.
   5
   6 GCC is free software; you can redistribute it and/or modify it under
   7 the terms of the GNU General Public License as published by the Free
   8 Software Foundation; either version 2, or (at your option) any later
   9 version.
  10
  11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GCC; see the file COPYING.  If not, write to the Free
  18 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  19 02110-1301, USA.  */
  20
  21 /* This header contains a subset of ../builtin-types.def needed for
  22    Fortran frontend builtins.
  23
  24    Before including this header, you must define the following macros:
  25
  26    DEF_PRIMITIVE_TYPE (ENUM, TYPE)
  27
  28      The ENUM is an identifier indicating which type is being defined.
  29      TYPE is an expression for a `tree' that represents the type.
  30
  31    DEF_FUNCTION_TYPE_0 (ENUM, RETURN)
  32    DEF_FUNCTION_TYPE_1 (ENUM, RETURN, ARG1)
  33    DEF_FUNCTION_TYPE_2 (ENUM, RETURN, ARG1, ARG2)
  34    DEF_FUNCTION_TYPE_3 (ENUM, RETURN, ARG1, ARG2, ARG3)
  35    DEF_FUNCTION_TYPE_4 (ENUM, RETURN, ARG1, ARG2, ARG3, ARG4)
  36    DEF_FUNCTION_TYPE_5 (ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5)
  37    DEF_FUNCTION_TYPE_6 (ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, ARG6)
  38    DEF_FUNCTION_TYPE_7 (ENUM, RETURN, ARG1, ARG2, ARG3, ARG4, ARG5, ARG6, ARG7)
  39
  40      These macros describe function types.  ENUM is as above.  The
  41      RETURN type is one of the enumerals already defined.  ARG1, ARG2,
  42      and ARG3 give the types of the arguments, similarly.
  43
  44    DEF_FUNCTION_TYPE_VAR_0 (ENUM, RETURN)
  45
  46      Similar, but for function types that take variable arguments.
  47
  48   DEF_POINTER_TYPE (ENUM, TYPE)
  49
  50     This macro describes a pointer type.  ENUM is as above; TYPE is
  51     the type pointed to.  */
  52
  53 DEF_PRIMITIVE_TYPE (BT_VOID, void_type_node)
  54 DEF_PRIMITIVE_TYPE (BT_BOOL, boolean_type_node)
  55 DEF_PRIMITIVE_TYPE (BT_INT, integer_type_node)
  56 DEF_PRIMITIVE_TYPE (BT_UINT, unsigned_type_node)
  57 DEF_PRIMITIVE_TYPE (BT_LONG, long_integer_type_node)
  58 DEF_PRIMITIVE_TYPE (BT_WORD, (*lang_hooks.types.type_for_mode) (word_mode, 1))
  59
  60 DEF_PRIMITIVE_TYPE (BT_I1, builtin_type_for_size (BITS_PER_UNIT*1, 1))
  61 DEF_PRIMITIVE_TYPE (BT_I2, builtin_type_for_size (BITS_PER_UNIT*2, 1))
  62 DEF_PRIMITIVE_TYPE (BT_I4, builtin_type_for_size (BITS_PER_UNIT*4, 1))
  63 DEF_PRIMITIVE_TYPE (BT_I8, builtin_type_for_size (BITS_PER_UNIT*8, 1))
  64 DEF_PRIMITIVE_TYPE (BT_I16, builtin_type_for_size (BITS_PER_UNIT*16, 1))
  65
  66 DEF_PRIMITIVE_TYPE (BT_PTR, ptr_type_node)
  67 DEF_PRIMITIVE_TYPE (BT_CONST_PTR, const_ptr_type_node)
  68 DEF_PRIMITIVE_TYPE (BT_VOLATILE_PTR,
  69                     build_pointer_type
  70                      (build_qualified_type (void_type_node,
  71                                             TYPE_QUAL_VOLATILE)))
  72
  73 DEF_POINTER_TYPE (BT_PTR_LONG, BT_LONG)
  74 DEF_POINTER_TYPE (BT_PTR_PTR, BT_PTR)
  75 DEF_FUNCTION_TYPE_0 (BT_FN_BOOL, BT_BOOL)
  76 DEF_FUNCTION_TYPE_0 (BT_FN_PTR, BT_PTR)
  77 DEF_FUNCTION_TYPE_0 (BT_FN_INT, BT_INT)
  78 DEF_FUNCTION_TYPE_0 (BT_FN_UINT, BT_UINT)
  79 DEF_FUNCTION_TYPE_0 (BT_FN_VOID, BT_VOID)
  80
  81 DEF_FUNCTION_TYPE_1 (BT_FN_VOID_PTR, BT_VOID, BT_PTR)
  82 DEF_FUNCTION_TYPE_1 (BT_FN_VOID_PTRPTR, BT_VOID, BT_PTR_PTR)
  83 DEF_FUNCTION_TYPE_1 (BT_FN_VOID_VPTR, BT_VOID, BT_VOLATILE_PTR)
  84 DEF_FUNCTION_TYPE_1 (BT_FN_UINT_UINT, BT_UINT, BT_UINT)
  85 DEF_FUNCTION_TYPE_1 (BT_FN_PTR_PTR, BT_PTR, BT_PTR)
  86
  87 DEF_POINTER_TYPE (BT_PTR_FN_VOID_PTR, BT_FN_VOID_PTR)
  88
  89 DEF_FUNCTION_TYPE_2 (BT_FN_BOOL_LONGPTR_LONGPTR,
  90                      BT_BOOL, BT_PTR_LONG, BT_PTR_LONG)
  91 DEF_FUNCTION_TYPE_2 (BT_FN_I1_VPTR_I1, BT_I1, BT_VOLATILE_PTR, BT_I1)
  92 DEF_FUNCTION_TYPE_2 (BT_FN_I2_VPTR_I2, BT_I2, BT_VOLATILE_PTR, BT_I2)
  93 DEF_FUNCTION_TYPE_2 (BT_FN_I4_VPTR_I4, BT_I4, BT_VOLATILE_PTR, BT_I4)
  94 DEF_FUNCTION_TYPE_2 (BT_FN_I8_VPTR_I8, BT_I8, BT_VOLATILE_PTR, BT_I8)
  95 DEF_FUNCTION_TYPE_2 (BT_FN_I16_VPTR_I16, BT_I16, BT_VOLATILE_PTR, BT_I16)
  96
  97 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I1_I1, BT_BOOL, BT_VOLATILE_PTR,
  98                      BT_I1, BT_I1)
  99 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I2_I2, BT_BOOL, BT_VOLATILE_PTR,
 100                      BT_I2, BT_I2)
 101 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I4_I4, BT_BOOL, BT_VOLATILE_PTR,
 102                      BT_I4, BT_I4)
 103 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I8_I8, BT_BOOL, BT_VOLATILE_PTR,
 104                      BT_I8, BT_I8)
 105 DEF_FUNCTION_TYPE_3 (BT_FN_BOOL_VPTR_I16_I16, BT_BOOL, BT_VOLATILE_PTR,
 106                      BT_I16, BT_I16)
 107 DEF_FUNCTION_TYPE_3 (BT_FN_I1_VPTR_I1_I1, BT_I1, BT_VOLATILE_PTR, BT_I1, BT_I1)
 108 DEF_FUNCTION_TYPE_3 (BT_FN_I2_VPTR_I2_I2, BT_I2, BT_VOLATILE_PTR, BT_I2, BT_I2)
 109 DEF_FUNCTION_TYPE_3 (BT_FN_I4_VPTR_I4_I4, BT_I4, BT_VOLATILE_PTR, BT_I4, BT_I4)
 110 DEF_FUNCTION_TYPE_3 (BT_FN_I8_VPTR_I8_I8, BT_I8, BT_VOLATILE_PTR, BT_I8, BT_I8)
 111 DEF_FUNCTION_TYPE_3 (BT_FN_I16_VPTR_I16_I16, BT_I16, BT_VOLATILE_PTR,
 112                      BT_I16, BT_I16)
 113 DEF_FUNCTION_TYPE_3 (BT_FN_VOID_OMPFN_PTR_UINT, BT_VOID, BT_PTR_FN_VOID_PTR,
 114                      BT_PTR, BT_UINT)
 115
 116 DEF_FUNCTION_TYPE_4 (BT_FN_VOID_OMPFN_PTR_UINT_UINT,
 117                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT)
 118 DEF_FUNCTION_TYPE_4 (BT_FN_VOID_PTR_WORD_WORD_PTR,
 119                      BT_VOID, BT_PTR, BT_WORD, BT_WORD, BT_PTR)
 120
 121 DEF_FUNCTION_TYPE_5 (BT_FN_BOOL_LONG_LONG_LONG_LONGPTR_LONGPTR,
 122                      BT_BOOL, BT_LONG, BT_LONG, BT_LONG,
 123                      BT_PTR_LONG, BT_PTR_LONG)
 124
 125 DEF_FUNCTION_TYPE_6 (BT_FN_BOOL_LONG_LONG_LONG_LONG_LONGPTR_LONGPTR,
 126                      BT_BOOL, BT_LONG, BT_LONG, BT_LONG, BT_LONG,
 127                      BT_PTR_LONG, BT_PTR_LONG)
 128 DEF_FUNCTION_TYPE_6 (BT_FN_VOID_OMPFN_PTR_UINT_LONG_LONG_LONG,
 129                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT,
 130                      BT_LONG, BT_LONG, BT_LONG)
 131
 132 DEF_FUNCTION_TYPE_7 (BT_FN_VOID_OMPFN_PTR_UINT_LONG_LONG_LONG_LONG,
 133                      BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT,
 134                      BT_LONG, BT_LONG, BT_LONG, BT_LONG)
 135
 136 DEF_FUNCTION_TYPE_VAR_0 (BT_FN_VOID_VAR, BT_VOID)