200 lines
8.8 KiB
Modula-2
200 lines
8.8 KiB
Modula-2
/* Copyright (C) 2001, 2002 Free Software Foundation, Inc.
|
|
|
|
This file is part of GCC.
|
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
|
the terms of the GNU General Public License as published by the Free
|
|
Software Foundation; either version 2, or (at your option) any later
|
|
version.
|
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GCC; see the file COPYING. If not, write to the Free
|
|
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|
02111-1307, USA. */
|
|
|
|
/* This header provides a declaritive way of describing the types that
|
|
are used when declaring builtin functions.
|
|
|
|
Before including this header, you must define the following macros:
|
|
|
|
DEF_PRIMITIVE_TYPE (ENUM, TYPE)
|
|
|
|
The ENUM is an identifier indicating which type is being defined.
|
|
TYPE is an expression for a `tree' that represents the type.
|
|
|
|
DEF_FUNCTION_TYPE_0 (ENUM, RETURN)
|
|
DEF_FUNCTION_TYPE_1 (ENUM, RETURN, ARG1)
|
|
DEF_FUNCTION_TYPE_2 (ENUM, RETURN, ARG1, ARG2)
|
|
DEF_FUNCTION_TYPE_3 (ENUM, RETURN, ARG1, ARG2, ARG3)
|
|
DEF_FUNCTION_TYPE_4 (ENUM, RETURN, ARG1, ARG2, ARG3, ARG4)
|
|
|
|
These macros describe function types. ENUM is as above. The
|
|
RETURN type is one of the enumerals already defined. ARG1, ARG2,
|
|
and ARG3 give the types of the arguments, similarly.
|
|
|
|
DEF_FUNCTION_TYPE_VAR_0 (ENUM, RETURN)
|
|
DEF_FUNCTION_TYPE_VAR_1 (ENUM, RETURN, ARG1)
|
|
DEF_FUNCTION_TYPE_VAR_2 (ENUM, RETURN, ARG1, ARG2)
|
|
DEF_FUNCTION_TYPE_VAR_3 (ENUM, RETURN, ARG1, ARG2, ARG3)
|
|
|
|
Similar, but for function types that take variable arguments.
|
|
For example:
|
|
|
|
DEF_FUNCTION_TYPE_1 (BT_INT_DOUBLE, BT_INT, BT_DOUBLE)
|
|
|
|
describes the type `int ()(double)', using the enumeral
|
|
BT_INT_DOUBLE, whereas:
|
|
|
|
DEF_FUNCTION_TYPE_VAR_1 (BT_INT_DOUBLE_VAR, BT_INT, BT_DOUBLE)
|
|
|
|
describes the type `int ()(double, ...)'.
|
|
|
|
DEF_POINTER_TYPE (ENUM, TYPE)
|
|
|
|
This macro describes a pointer type. ENUM is as above; TYPE is
|
|
the type pointed to. */
|
|
|
|
DEF_PRIMITIVE_TYPE (BT_VOID, void_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_INT, integer_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_UNSIGNED, unsigned_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_LONG, long_integer_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_LONGLONG, long_long_integer_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_FLOAT, float_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_INTMAX, intmax_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_DOUBLE, double_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_LONG_DOUBLE, long_double_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_COMPLEX_FLOAT, complex_float_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_COMPLEX_DOUBLE, complex_double_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_COMPLEX_LONG_DOUBLE, complex_long_double_type_node)
|
|
|
|
DEF_PRIMITIVE_TYPE (BT_PTR, ptr_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_CONST_PTR, const_ptr_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_PTRMODE, (*lang_hooks.types.type_for_mode)(ptr_mode, 0))
|
|
DEF_PRIMITIVE_TYPE (BT_SIZE, size_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_STRING, string_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_CONST_STRING, const_string_type_node)
|
|
|
|
DEF_PRIMITIVE_TYPE (BT_VALIST_REF, va_list_ref_type_node)
|
|
DEF_PRIMITIVE_TYPE (BT_VALIST_ARG, va_list_arg_type_node)
|
|
|
|
DEF_FUNCTION_TYPE_0 (BT_FN_VOID, BT_VOID)
|
|
DEF_FUNCTION_TYPE_0 (BT_FN_PTR, BT_PTR)
|
|
DEF_FUNCTION_TYPE_0 (BT_FN_UNSIGNED, BT_UNSIGNED)
|
|
DEF_FUNCTION_TYPE_0 (BT_FN_FLOAT, BT_FLOAT)
|
|
DEF_FUNCTION_TYPE_0 (BT_FN_DOUBLE, BT_DOUBLE)
|
|
DEF_FUNCTION_TYPE_0 (BT_FN_LONG_DOUBLE, BT_LONG_DOUBLE)
|
|
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_LONG_LONG, BT_LONG, BT_LONG)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_LONGLONG_LONGLONG, BT_LONGLONG, BT_LONGLONG)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_INTMAX_INTMAX, BT_INTMAX, BT_INTMAX)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_FLOAT_FLOAT, BT_FLOAT, BT_FLOAT)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_DOUBLE_DOUBLE, BT_DOUBLE, BT_DOUBLE)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_LONG_DOUBLE_LONG_DOUBLE,
|
|
BT_LONG_DOUBLE, BT_LONG_DOUBLE)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_COMPLEX_FLOAT_COMPLEX_FLOAT,
|
|
BT_COMPLEX_FLOAT, BT_COMPLEX_FLOAT)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_COMPLEX_DOUBLE_COMPLEX_DOUBLE,
|
|
BT_COMPLEX_DOUBLE, BT_COMPLEX_DOUBLE)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_COMPLEX_LONG_DOUBLE_COMPLEX_LONG_DOUBLE,
|
|
BT_COMPLEX_LONG_DOUBLE, BT_COMPLEX_LONG_DOUBLE)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_FLOAT_COMPLEX_FLOAT,
|
|
BT_FLOAT, BT_COMPLEX_FLOAT)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_DOUBLE_COMPLEX_DOUBLE,
|
|
BT_DOUBLE, BT_COMPLEX_DOUBLE)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_LONG_DOUBLE_COMPLEX_LONG_DOUBLE,
|
|
BT_LONG_DOUBLE, BT_COMPLEX_LONG_DOUBLE)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_PTR_UNSIGNED, BT_PTR, BT_UNSIGNED)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_PTR_SIZE, BT_PTR, BT_SIZE)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_INT_INT, BT_INT, BT_INT)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_INT_PTR, BT_INT, BT_PTR)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_VOID_PTR, BT_VOID, BT_PTR)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_SIZE_CONST_STRING, BT_SIZE, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_INT_CONST_STRING, BT_INT, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_PTR_PTR, BT_PTR, BT_PTR)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_VOID_VALIST_REF, BT_VOID, BT_VALIST_REF)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_VOID_INT, BT_VOID, BT_INT)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_FLOAT_CONST_STRING, BT_FLOAT, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_DOUBLE_CONST_STRING, BT_DOUBLE, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_1 (BT_FN_LONG_DOUBLE_CONST_STRING,
|
|
BT_LONG_DOUBLE, BT_CONST_STRING)
|
|
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_VOID_PTR_INT, BT_VOID, BT_PTR, BT_INT)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_STRING_STRING_CONST_STRING,
|
|
BT_STRING, BT_STRING, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_INT_CONST_STRING_CONST_STRING,
|
|
BT_INT, BT_CONST_STRING, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_STRING_CONST_STRING_CONST_STRING,
|
|
BT_STRING, BT_CONST_STRING, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_SIZE_CONST_STRING_CONST_STRING,
|
|
BT_SIZE, BT_CONST_STRING, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_STRING_CONST_STRING_INT,
|
|
BT_STRING, BT_CONST_STRING, BT_INT)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_INT_CONST_STRING_PTR,
|
|
BT_INT, BT_CONST_STRING, BT_PTR)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_INT_INT_PTR,
|
|
BT_INT, BT_INT, BT_PTR)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_VOID_PTRMODE_PTR,
|
|
BT_VOID, BT_PTRMODE, BT_PTR)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_VOID_VALIST_REF_VALIST_ARG,
|
|
BT_VOID, BT_VALIST_REF, BT_VALIST_ARG)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_LONG_LONG_LONG,
|
|
BT_LONG, BT_LONG, BT_LONG)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_INT_PTR_CONST_STRING,
|
|
BT_INT, BT_PTR, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_VOID_PTR_SIZE,
|
|
BT_VOID, BT_PTR, BT_SIZE)
|
|
DEF_FUNCTION_TYPE_2 (BT_FN_INT_CONST_STRING_VALIST_ARG,
|
|
BT_INT, BT_CONST_STRING, BT_VALIST_ARG)
|
|
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_STRING_STRING_CONST_STRING_SIZE,
|
|
BT_STRING, BT_STRING, BT_CONST_STRING, BT_SIZE)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_INT_CONST_STRING_CONST_STRING_SIZE,
|
|
BT_INT, BT_CONST_STRING, BT_CONST_STRING, BT_SIZE)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_PTR_PTR_CONST_PTR_SIZE,
|
|
BT_PTR, BT_PTR, BT_CONST_PTR, BT_SIZE)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_INT_CONST_PTR_CONST_PTR_SIZE,
|
|
BT_INT, BT_CONST_PTR, BT_CONST_PTR, BT_SIZE)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_PTR_PTR_INT_SIZE,
|
|
BT_PTR, BT_PTR, BT_INT, BT_SIZE)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_VOID_PTR_INT_INT,
|
|
BT_VOID, BT_PTR, BT_INT, BT_INT)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_INT_STRING_CONST_STRING_VALIST_ARG,
|
|
BT_INT, BT_STRING, BT_CONST_STRING, BT_VALIST_ARG)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_INT_CONST_STRING_CONST_STRING_VALIST_ARG,
|
|
BT_INT, BT_CONST_STRING, BT_CONST_STRING, BT_VALIST_ARG)
|
|
|
|
DEF_FUNCTION_TYPE_4 (BT_FN_SIZE_CONST_PTR_SIZE_SIZE_PTR,
|
|
BT_SIZE, BT_CONST_PTR, BT_SIZE, BT_SIZE, BT_PTR)
|
|
DEF_FUNCTION_TYPE_4 (BT_FN_INT_STRING_SIZE_CONST_STRING_VALIST_ARG,
|
|
BT_INT, BT_STRING, BT_SIZE, BT_CONST_STRING, BT_VALIST_ARG)
|
|
|
|
DEF_FUNCTION_TYPE_VAR_0 (BT_FN_VOID_VAR, BT_VOID)
|
|
DEF_FUNCTION_TYPE_VAR_0 (BT_FN_INT_VAR, BT_INT)
|
|
DEF_FUNCTION_TYPE_VAR_0 (BT_FN_PTR_VAR, BT_PTR)
|
|
|
|
DEF_FUNCTION_TYPE_VAR_1 (BT_FN_VOID_VALIST_REF_VAR,
|
|
BT_VOID, BT_VALIST_REF)
|
|
DEF_FUNCTION_TYPE_VAR_1 (BT_FN_VOID_CONST_PTR_VAR,
|
|
BT_VOID, BT_CONST_PTR)
|
|
DEF_FUNCTION_TYPE_VAR_1 (BT_FN_INT_CONST_STRING_VAR,
|
|
BT_INT, BT_CONST_STRING)
|
|
|
|
DEF_FUNCTION_TYPE_VAR_2 (BT_FN_INT_PTR_CONST_STRING_VAR,
|
|
BT_INT, BT_PTR, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_VAR_2 (BT_FN_INT_STRING_CONST_STRING_VAR,
|
|
BT_INT, BT_STRING, BT_CONST_STRING)
|
|
DEF_FUNCTION_TYPE_VAR_2 (BT_FN_INT_CONST_STRING_CONST_STRING_VAR,
|
|
BT_INT, BT_CONST_STRING, BT_CONST_STRING)
|
|
|
|
DEF_FUNCTION_TYPE_VAR_3 (BT_FN_INT_STRING_SIZE_CONST_STRING_VAR,
|
|
BT_INT, BT_STRING, BT_SIZE, BT_CONST_STRING)
|
|
|
|
DEF_POINTER_TYPE (BT_PTR_FN_VOID_VAR, BT_FN_VOID_VAR)
|
|
DEF_FUNCTION_TYPE_3 (BT_FN_PTR_PTR_FN_VOID_VAR_PTR_SIZE,
|
|
BT_PTR, BT_PTR_FN_VOID_VAR, BT_PTR, BT_SIZE)
|