OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Jason Merrill 1997-12-16 16:51:07 +00:00 committed by Jason Merrill
parent a3fd4e7530
commit 6748b64398
3 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/cp/ChangeLog
View File

@ -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

6
gcc/cp/error.c
View File

@ -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)
{

3
gcc/cp/tree.c
View File

@ -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;