diff options
| author | Richard Kenner <kenner@gcc.gnu.org> | 2004-06-26 17:30:01 -0400 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2004-06-26 17:30:01 -0400 |
| commit | 90c28d48360b5975f18c0d56abbbed0f4407c328 (patch) | |
| tree | d4c12f27f6c4ae8c019dd1f2b4fb297731113d90 /gcc/ada/ada-tree.h | |
| parent | 350fae6628af14c2e760694d39baec5f7858057c (diff) | |
| download | gcc-90c28d48360b5975f18c0d56abbbed0f4407c328.zip gcc-90c28d48360b5975f18c0d56abbbed0f4407c328.tar.gz gcc-90c28d48360b5975f18c0d56abbbed0f4407c328.tar.bz2 | |
ada-tree.def (DECL_STMT): Deleted.
2004-06-26 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* ada-tree.def (DECL_STMT): Deleted.
* ada-tree.h (IS_ADA_STMT): Now test against STMT_STMT.
(DECL_STMT_VAR): Deleted.
* decl.c: add_decl_stmt now add_decl_expr.
* gigi.h: Likewise.
* trans.c: Likewise.
(gnat_gimplify_type_sizes, gnat_gimplify_one_sizepos): Deleted.
(gnat_to_gnu, case N_Subprogram_Body): Set cfun->function_end_locus.
(add_stmt): Only handle padded type here.
(add_stmt_with_node): Allow gnat_node to not be present.
(gnat_gimplify_stmt, case USE_STMT): Set *STMT_P to null.
(gnat_gimplify_stmt, case DECL_STMT): Deleted.
(gnat_stabilize_reference_1): If COMPONENT_REF of fat pointer,
make a SAVE_EXPR for the entire fat pointer.
* utils.c (pushdecl): Walk a DECL_EXPR in global case.
(create_index_type): Make a DECL_EXPR.
(end_subprog_body): Don't call allocate_struct_function here but
do clear cfn.
From-SVN: r83722
Diffstat (limited to 'gcc/ada/ada-tree.h')
| -rw-r--r-- | gcc/ada/ada-tree.h | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index 9cdcc5d..ca099b8 100644 --- a/gcc/ada/ada-tree.h +++ b/gcc/ada/ada-tree.h @@ -262,9 +262,8 @@ struct lang_type GTY(()) {union lang_tree_node t; }; Start by defining which tree codes are used for statements. */ #define IS_STMT(NODE) (TREE_CODE_CLASS (TREE_CODE (NODE)) == 's') #define IS_ADA_STMT(NODE) (IS_STMT (NODE) \ - && TREE_CODE (NODE) >= DECL_STMT) + && TREE_CODE (NODE) >= STMT_STMT) -#define DECL_STMT_VAR(NODE) TREE_OPERAND_CHECK_CODE (NODE, DECL_STMT, 0) #define STMT_STMT_STMT(NODE) TREE_OPERAND_CHECK_CODE (NODE, STMT_STMT, 0) #define LOOP_STMT_TOP_COND(NODE) TREE_OPERAND_CHECK_CODE (NODE, LOOP_STMT, 0) #define LOOP_STMT_BOT_COND(NODE) TREE_OPERAND_CHECK_CODE (NODE, LOOP_STMT, 1) |