/* Tree lowering pass. This pass gimplifies the tree representation built
|
/* Tree lowering pass. This pass gimplifies the tree representation built
|
by the C-based front ends. The structure of gimplified, or
|
by the C-based front ends. The structure of gimplified, or
|
language-independent, trees is dictated by the grammar described in this
|
language-independent, trees is dictated by the grammar described in this
|
file.
|
file.
|
Copyright (C) 2002, 2003, 2004, 2005, 2007, 2008
|
Copyright (C) 2002, 2003, 2004, 2005, 2007, 2008
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
Lowering of expressions contributed by Sebastian Pop <s.pop@laposte.net>
|
Lowering of expressions contributed by Sebastian Pop <s.pop@laposte.net>
|
Re-written to support lowering of whole function trees, documentation
|
Re-written to support lowering of whole function trees, documentation
|
and miscellaneous cleanups by Diego Novillo <dnovillo@redhat.com>
|
and miscellaneous cleanups by Diego Novillo <dnovillo@redhat.com>
|
|
|
This file is part of GCC.
|
This file is part of GCC.
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
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
|
the terms of the GNU General Public License as published by the Free
|
Software Foundation; either version 3, or (at your option) any later
|
Software Foundation; either version 3, or (at your option) any later
|
version.
|
version.
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
for more details.
|
for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with GCC; see the file COPYING3. If not see
|
along with GCC; see the file COPYING3. If not see
|
<http://www.gnu.org/licenses/>. */
|
<http://www.gnu.org/licenses/>. */
|
|
|
#include "config.h"
|
#include "config.h"
|
#include "system.h"
|
#include "system.h"
|
#include "coretypes.h"
|
#include "coretypes.h"
|
#include "tm.h"
|
#include "tm.h"
|
#include "tree.h"
|
#include "tree.h"
|
#include "varray.h"
|
#include "varray.h"
|
#include "c-tree.h"
|
#include "c-tree.h"
|
#include "c-common.h"
|
#include "c-common.h"
|
#include "gimple.h"
|
#include "gimple.h"
|
#include "hard-reg-set.h"
|
#include "hard-reg-set.h"
|
#include "basic-block.h"
|
#include "basic-block.h"
|
#include "tree-flow.h"
|
#include "tree-flow.h"
|
#include "tree-inline.h"
|
#include "tree-inline.h"
|
#include "diagnostic.h"
|
#include "diagnostic.h"
|
#include "langhooks.h"
|
#include "langhooks.h"
|
#include "langhooks-def.h"
|
#include "langhooks-def.h"
|
#include "flags.h"
|
#include "flags.h"
|
#include "rtl.h"
|
#include "rtl.h"
|
#include "toplev.h"
|
#include "toplev.h"
|
#include "tree-dump.h"
|
#include "tree-dump.h"
|
#include "c-pretty-print.h"
|
#include "c-pretty-print.h"
|
#include "cgraph.h"
|
#include "cgraph.h"
|
|
|
|
|
/* The gimplification pass converts the language-dependent trees
|
/* The gimplification pass converts the language-dependent trees
|
(ld-trees) emitted by the parser into language-independent trees
|
(ld-trees) emitted by the parser into language-independent trees
|
(li-trees) that are the target of SSA analysis and transformations.
|
(li-trees) that are the target of SSA analysis and transformations.
|
|
|
Language-independent trees are based on the SIMPLE intermediate
|
Language-independent trees are based on the SIMPLE intermediate
|
representation used in the McCAT compiler framework:
|
representation used in the McCAT compiler framework:
|
|
|
"Designing the McCAT Compiler Based on a Family of Structured
|
"Designing the McCAT Compiler Based on a Family of Structured
|
Intermediate Representations,"
|
Intermediate Representations,"
|
L. Hendren, C. Donawa, M. Emami, G. Gao, Justiani, and B. Sridharan,
|
L. Hendren, C. Donawa, M. Emami, G. Gao, Justiani, and B. Sridharan,
|
Proceedings of the 5th International Workshop on Languages and
|
Proceedings of the 5th International Workshop on Languages and
|
Compilers for Parallel Computing, no. 757 in Lecture Notes in
|
Compilers for Parallel Computing, no. 757 in Lecture Notes in
|
Computer Science, New Haven, Connecticut, pp. 406-420,
|
Computer Science, New Haven, Connecticut, pp. 406-420,
|
Springer-Verlag, August 3-5, 1992.
|
Springer-Verlag, August 3-5, 1992.
|
|
|
http://www-acaps.cs.mcgill.ca/info/McCAT/McCAT.html
|
http://www-acaps.cs.mcgill.ca/info/McCAT/McCAT.html
|
|
|
Basically, we walk down gimplifying the nodes that we encounter. As we
|
Basically, we walk down gimplifying the nodes that we encounter. As we
|
walk back up, we check that they fit our constraints, and copy them
|
walk back up, we check that they fit our constraints, and copy them
|
into temporaries if not. */
|
into temporaries if not. */
|
|
|
/* Gimplification of statement trees. */
|
/* Gimplification of statement trees. */
|
|
|
/* Convert the tree representation of FNDECL from C frontend trees to
|
/* Convert the tree representation of FNDECL from C frontend trees to
|
GENERIC. */
|
GENERIC. */
|
|
|
void
|
void
|
c_genericize (tree fndecl)
|
c_genericize (tree fndecl)
|
{
|
{
|
FILE *dump_orig;
|
FILE *dump_orig;
|
int local_dump_flags;
|
int local_dump_flags;
|
struct cgraph_node *cgn;
|
struct cgraph_node *cgn;
|
|
|
/* Dump the C-specific tree IR. */
|
/* Dump the C-specific tree IR. */
|
dump_orig = dump_begin (TDI_original, &local_dump_flags);
|
dump_orig = dump_begin (TDI_original, &local_dump_flags);
|
if (dump_orig)
|
if (dump_orig)
|
{
|
{
|
fprintf (dump_orig, "\n;; Function %s",
|
fprintf (dump_orig, "\n;; Function %s",
|
lang_hooks.decl_printable_name (fndecl, 2));
|
lang_hooks.decl_printable_name (fndecl, 2));
|
fprintf (dump_orig, " (%s)\n",
|
fprintf (dump_orig, " (%s)\n",
|
(!DECL_ASSEMBLER_NAME_SET_P (fndecl) ? "null"
|
(!DECL_ASSEMBLER_NAME_SET_P (fndecl) ? "null"
|
: IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (fndecl))));
|
: IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (fndecl))));
|
fprintf (dump_orig, ";; enabled by -%s\n", dump_flag_name (TDI_original));
|
fprintf (dump_orig, ";; enabled by -%s\n", dump_flag_name (TDI_original));
|
fprintf (dump_orig, "\n");
|
fprintf (dump_orig, "\n");
|
|
|
if (local_dump_flags & TDF_RAW)
|
if (local_dump_flags & TDF_RAW)
|
dump_node (DECL_SAVED_TREE (fndecl),
|
dump_node (DECL_SAVED_TREE (fndecl),
|
TDF_SLIM | local_dump_flags, dump_orig);
|
TDF_SLIM | local_dump_flags, dump_orig);
|
else
|
else
|
print_c_tree (dump_orig, DECL_SAVED_TREE (fndecl));
|
print_c_tree (dump_orig, DECL_SAVED_TREE (fndecl));
|
fprintf (dump_orig, "\n");
|
fprintf (dump_orig, "\n");
|
|
|
dump_end (TDI_original, dump_orig);
|
dump_end (TDI_original, dump_orig);
|
}
|
}
|
|
|
/* Dump all nested functions now. */
|
/* Dump all nested functions now. */
|
cgn = cgraph_node (fndecl);
|
cgn = cgraph_node (fndecl);
|
for (cgn = cgn->nested; cgn ; cgn = cgn->next_nested)
|
for (cgn = cgn->nested; cgn ; cgn = cgn->next_nested)
|
c_genericize (cgn->decl);
|
c_genericize (cgn->decl);
|
}
|
}
|
|
|
static void
|
static void
|
add_block_to_enclosing (tree block)
|
add_block_to_enclosing (tree block)
|
{
|
{
|
unsigned i;
|
unsigned i;
|
tree enclosing;
|
tree enclosing;
|
gimple bind;
|
gimple bind;
|
VEC(gimple, heap) *stack = gimple_bind_expr_stack ();
|
VEC(gimple, heap) *stack = gimple_bind_expr_stack ();
|
|
|
for (i = 0; VEC_iterate (gimple, stack, i, bind); i++)
|
for (i = 0; VEC_iterate (gimple, stack, i, bind); i++)
|
if (gimple_bind_block (bind))
|
if (gimple_bind_block (bind))
|
break;
|
break;
|
|
|
enclosing = gimple_bind_block (bind);
|
enclosing = gimple_bind_block (bind);
|
BLOCK_SUBBLOCKS (enclosing) = chainon (BLOCK_SUBBLOCKS (enclosing), block);
|
BLOCK_SUBBLOCKS (enclosing) = chainon (BLOCK_SUBBLOCKS (enclosing), block);
|
}
|
}
|
|
|
/* Genericize a scope by creating a new BIND_EXPR.
|
/* Genericize a scope by creating a new BIND_EXPR.
|
BLOCK is either a BLOCK representing the scope or a chain of _DECLs.
|
BLOCK is either a BLOCK representing the scope or a chain of _DECLs.
|
In the latter case, we need to create a new BLOCK and add it to the
|
In the latter case, we need to create a new BLOCK and add it to the
|
BLOCK_SUBBLOCKS of the enclosing block.
|
BLOCK_SUBBLOCKS of the enclosing block.
|
BODY is a chain of C _STMT nodes for the contents of the scope, to be
|
BODY is a chain of C _STMT nodes for the contents of the scope, to be
|
genericized. */
|
genericized. */
|
|
|
tree
|
tree
|
c_build_bind_expr (location_t loc, tree block, tree body)
|
c_build_bind_expr (location_t loc, tree block, tree body)
|
{
|
{
|
tree decls, bind;
|
tree decls, bind;
|
|
|
if (block == NULL_TREE)
|
if (block == NULL_TREE)
|
decls = NULL_TREE;
|
decls = NULL_TREE;
|
else if (TREE_CODE (block) == BLOCK)
|
else if (TREE_CODE (block) == BLOCK)
|
decls = BLOCK_VARS (block);
|
decls = BLOCK_VARS (block);
|
else
|
else
|
{
|
{
|
decls = block;
|
decls = block;
|
if (DECL_ARTIFICIAL (decls))
|
if (DECL_ARTIFICIAL (decls))
|
block = NULL_TREE;
|
block = NULL_TREE;
|
else
|
else
|
{
|
{
|
block = make_node (BLOCK);
|
block = make_node (BLOCK);
|
BLOCK_VARS (block) = decls;
|
BLOCK_VARS (block) = decls;
|
add_block_to_enclosing (block);
|
add_block_to_enclosing (block);
|
}
|
}
|
}
|
}
|
|
|
if (!body)
|
if (!body)
|
body = build_empty_stmt (loc);
|
body = build_empty_stmt (loc);
|
if (decls || block)
|
if (decls || block)
|
{
|
{
|
bind = build3 (BIND_EXPR, void_type_node, decls, body, block);
|
bind = build3 (BIND_EXPR, void_type_node, decls, body, block);
|
TREE_SIDE_EFFECTS (bind) = 1;
|
TREE_SIDE_EFFECTS (bind) = 1;
|
SET_EXPR_LOCATION (bind, loc);
|
SET_EXPR_LOCATION (bind, loc);
|
}
|
}
|
else
|
else
|
bind = body;
|
bind = body;
|
|
|
return bind;
|
return bind;
|
}
|
}
|
|
|
/* Gimplification of expression trees. */
|
/* Gimplification of expression trees. */
|
|
|
/* Do C-specific gimplification on *EXPR_P. PRE_P and POST_P are as in
|
/* Do C-specific gimplification on *EXPR_P. PRE_P and POST_P are as in
|
gimplify_expr. */
|
gimplify_expr. */
|
|
|
int
|
int
|
c_gimplify_expr (tree *expr_p, gimple_seq *pre_p ATTRIBUTE_UNUSED,
|
c_gimplify_expr (tree *expr_p, gimple_seq *pre_p ATTRIBUTE_UNUSED,
|
gimple_seq *post_p ATTRIBUTE_UNUSED)
|
gimple_seq *post_p ATTRIBUTE_UNUSED)
|
{
|
{
|
enum tree_code code = TREE_CODE (*expr_p);
|
enum tree_code code = TREE_CODE (*expr_p);
|
|
|
/* This is handled mostly by gimplify.c, but we have to deal with
|
/* This is handled mostly by gimplify.c, but we have to deal with
|
not warning about int x = x; as it is a GCC extension to turn off
|
not warning about int x = x; as it is a GCC extension to turn off
|
this warning but only if warn_init_self is zero. */
|
this warning but only if warn_init_self is zero. */
|
if (code == DECL_EXPR
|
if (code == DECL_EXPR
|
&& TREE_CODE (DECL_EXPR_DECL (*expr_p)) == VAR_DECL
|
&& TREE_CODE (DECL_EXPR_DECL (*expr_p)) == VAR_DECL
|
&& !DECL_EXTERNAL (DECL_EXPR_DECL (*expr_p))
|
&& !DECL_EXTERNAL (DECL_EXPR_DECL (*expr_p))
|
&& !TREE_STATIC (DECL_EXPR_DECL (*expr_p))
|
&& !TREE_STATIC (DECL_EXPR_DECL (*expr_p))
|
&& (DECL_INITIAL (DECL_EXPR_DECL (*expr_p)) == DECL_EXPR_DECL (*expr_p))
|
&& (DECL_INITIAL (DECL_EXPR_DECL (*expr_p)) == DECL_EXPR_DECL (*expr_p))
|
&& !warn_init_self)
|
&& !warn_init_self)
|
TREE_NO_WARNING (DECL_EXPR_DECL (*expr_p)) = 1;
|
TREE_NO_WARNING (DECL_EXPR_DECL (*expr_p)) = 1;
|
|
|
return GS_UNHANDLED;
|
return GS_UNHANDLED;
|
}
|
}
|
|
|
