mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-29 17:45:42 +08:00
tree.c (mapcar): Handle TRY_CATCH_EXPR et al.
* tree.c (mapcar): Handle TRY_CATCH_EXPR et al. * error.c (dump_expr): Likewise. From-SVN: r17115
This commit is contained in:
parent
a3fd4e7530
commit
6748b64398
@ -1,3 +1,8 @@
|
||||
Tue Dec 16 10:31:20 1997 Jason Merrill <jason@yorick.cygnus.com>
|
||||
|
||||
* tree.c (mapcar): Handle TRY_CATCH_EXPR et al.
|
||||
* error.c (dump_expr): Likewise.
|
||||
|
||||
Mon Dec 15 12:22:04 1997 Jason Merrill <jason@yorick.cygnus.com>
|
||||
|
||||
* typeck.c (build_function_call_real): Remove "inline called before
|
||||
|
@ -1534,6 +1534,12 @@ dump_expr (t, nop)
|
||||
OB_PUTS ("{unparsed}");
|
||||
break;
|
||||
|
||||
case TRY_CATCH_EXPR:
|
||||
case WITH_CLEANUP_EXPR:
|
||||
case CLEANUP_POINT_EXPR:
|
||||
dump_expr (TREE_OPERAND (t, 0), nop);
|
||||
break;
|
||||
|
||||
case TREE_LIST:
|
||||
if (TREE_VALUE (t) && TREE_CODE (TREE_VALUE (t)) == FUNCTION_DECL)
|
||||
{
|
||||
|
@ -1545,6 +1545,8 @@ mapcar (t, func)
|
||||
case POSTINCREMENT_EXPR:
|
||||
case ARRAY_REF:
|
||||
case SCOPE_REF:
|
||||
case TRY_CATCH_EXPR:
|
||||
case WITH_CLEANUP_EXPR:
|
||||
t = copy_node (t);
|
||||
TREE_OPERAND (t, 0) = mapcar (TREE_OPERAND (t, 0), func);
|
||||
TREE_OPERAND (t, 1) = mapcar (TREE_OPERAND (t, 1), func);
|
||||
@ -1573,6 +1575,7 @@ mapcar (t, func)
|
||||
case TRUTH_NOT_EXPR:
|
||||
case NOP_EXPR:
|
||||
case COMPONENT_REF:
|
||||
case CLEANUP_POINT_EXPR:
|
||||
t = copy_node (t);
|
||||
TREE_OPERAND (t, 0) = mapcar (TREE_OPERAND (t, 0), func);
|
||||
return t;
|
||||
|
Loading…
Reference in New Issue
Block a user