diff options
| author | Jason Merrill <jason@yorick.cygnus.com> | 1997-12-16 16:51:07 +0000 |
|---|---|---|
| committer | Jason Merrill <jason@gcc.gnu.org> | 1997-12-16 11:51:07 -0500 |
| commit | 6748b6439831974f000c6c51d64af89262112463 (patch) | |
| tree | 1a5cb4dfa748cf4ce1f41df1c06dc9cd88bbec75 /gcc | |
| parent | a3fd4e7530be6ac62206fec602e6b1d760070671 (diff) | |
| download | gcc-6748b6439831974f000c6c51d64af89262112463.zip gcc-6748b6439831974f000c6c51d64af89262112463.tar.gz gcc-6748b6439831974f000c6c51d64af89262112463.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/cp/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/cp/error.c | 6 | ||||
| -rw-r--r-- | gcc/cp/tree.c | 3 |
3 files changed, 14 insertions, 0 deletions
diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog index b4196fc..86e0b2f 100644 --- a/gcc/cp/ChangeLog +++ b/gcc/cp/ChangeLog @@ -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 diff --git a/gcc/cp/error.c b/gcc/cp/error.c index 016573d..6366a50 100644 --- a/gcc/cp/error.c +++ b/gcc/cp/error.c @@ -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) { diff --git a/gcc/cp/tree.c b/gcc/cp/tree.c index 2d048ab..0c03de9 100644 --- a/gcc/cp/tree.c +++ b/gcc/cp/tree.c @@ -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; |