Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/gcc-interface/ada-tree.h @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
4 * * 4 * *
5 * A D A - T R E E * 5 * A D A - T R E E *
6 * * 6 * *
7 * C Header File * 7 * C Header File *
8 * * 8 * *
9 * Copyright (C) 1992-2018, Free Software Foundation, Inc. * 9 * Copyright (C) 1992-2019, Free Software Foundation, Inc. *
10 * * 10 * *
11 * GNAT is free software; you can redistribute it and/or modify it under * 11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- * 12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- * 13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- * 14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
108 TYPE_LANG_FLAG_1 (RECORD_OR_UNION_CHECK (NODE)) 108 TYPE_LANG_FLAG_1 (RECORD_OR_UNION_CHECK (NODE))
109 109
110 /* Nonzero in an arithmetic subtype if this is a subtype not known to the 110 /* Nonzero in an arithmetic subtype if this is a subtype not known to the
111 front-end. */ 111 front-end. */
112 #define TYPE_EXTRA_SUBTYPE_P(NODE) TYPE_LANG_FLAG_2 (INTEGER_TYPE_CHECK (NODE)) 112 #define TYPE_EXTRA_SUBTYPE_P(NODE) TYPE_LANG_FLAG_2 (INTEGER_TYPE_CHECK (NODE))
113
114 #define TYPE_IS_EXTRA_SUBTYPE_P(NODE) \
115 (TREE_CODE (NODE) == INTEGER_TYPE && TYPE_EXTRA_SUBTYPE_P (NODE))
113 116
114 /* Nonzero for an aggregate type if this is a by-reference type. We also 117 /* Nonzero for an aggregate type if this is a by-reference type. We also
115 set this on an ENUMERAL_TYPE that is dummy. */ 118 set this on an ENUMERAL_TYPE that is dummy. */
116 #define TYPE_BY_REFERENCE_P(NODE) \ 119 #define TYPE_BY_REFERENCE_P(NODE) \
117 TYPE_LANG_FLAG_2 (TREE_CHECK5 (NODE, RECORD_TYPE, UNION_TYPE, \ 120 TYPE_LANG_FLAG_2 (TREE_CHECK5 (NODE, RECORD_TYPE, UNION_TYPE, \
477 480
478 /* Nonzero in a VAR_DECL if it is a temporary created to hold the return 481 /* Nonzero in a VAR_DECL if it is a temporary created to hold the return
479 value of a function call or 'reference to a function call. */ 482 value of a function call or 'reference to a function call. */
480 #define DECL_RETURN_VALUE_P(NODE) DECL_LANG_FLAG_5 (VAR_DECL_CHECK (NODE)) 483 #define DECL_RETURN_VALUE_P(NODE) DECL_LANG_FLAG_5 (VAR_DECL_CHECK (NODE))
481 484
485 /* Nonzero in a PARM_DECL if its mechanism was forced to by-reference. */
486 #define DECL_FORCED_BY_REF_P(NODE) DECL_LANG_FLAG_5 (PARM_DECL_CHECK (NODE))
487
482 /* In a FIELD_DECL corresponding to a discriminant, contains the 488 /* In a FIELD_DECL corresponding to a discriminant, contains the
483 discriminant number. */ 489 discriminant number. */
484 #define DECL_DISCRIMINANT_NUMBER(NODE) DECL_INITIAL (FIELD_DECL_CHECK (NODE)) 490 #define DECL_DISCRIMINANT_NUMBER(NODE) DECL_INITIAL (FIELD_DECL_CHECK (NODE))
485 491
486 /* In a CONST_DECL, points to a VAR_DECL that is allocatable to 492 /* In a CONST_DECL, points to a VAR_DECL that is allocatable to
577 #define LOOP_STMT_NO_VECTOR(NODE) TREE_LANG_FLAG_5 (LOOP_STMT_CHECK (NODE)) 583 #define LOOP_STMT_NO_VECTOR(NODE) TREE_LANG_FLAG_5 (LOOP_STMT_CHECK (NODE))
578 #define LOOP_STMT_VECTOR(NODE) TREE_LANG_FLAG_6 (LOOP_STMT_CHECK (NODE)) 584 #define LOOP_STMT_VECTOR(NODE) TREE_LANG_FLAG_6 (LOOP_STMT_CHECK (NODE))
579 585
580 #define EXIT_STMT_COND(NODE) TREE_OPERAND_CHECK_CODE (NODE, EXIT_STMT, 0) 586 #define EXIT_STMT_COND(NODE) TREE_OPERAND_CHECK_CODE (NODE, EXIT_STMT, 0)
581 #define EXIT_STMT_LABEL(NODE) TREE_OPERAND_CHECK_CODE (NODE, EXIT_STMT, 1) 587 #define EXIT_STMT_LABEL(NODE) TREE_OPERAND_CHECK_CODE (NODE, EXIT_STMT, 1)
588
589 /* Small kludge to be able to define Ada built-in functions locally.
590 We overload them on top of the HSAIL/BRIG builtin functions. */
591 #define BUILT_IN_LIKELY BUILT_IN_HSAIL_WORKITEMABSID
592 #define BUILT_IN_UNLIKELY BUILT_IN_HSAIL_GRIDSIZE