tree.c (walk_tree): Don't walk into default args.

* tree.c (walk_tree): Don't walk into default args.

        * error.c (dump_expr): Use host_integerp.

From-SVN: r36984
This commit is contained in:
Jason Merrill 2000-10-20 17:26:26 -04:00 committed by Jason Merrill
parent ac758f9643
commit ba523395f1
3 changed files with 14 additions and 3 deletions

View File

@ -1,3 +1,9 @@
2000-10-20 Jason Merrill <jason@redhat.com>
* tree.c (walk_tree): Don't walk into default args.
* error.c (dump_expr): Use host_integerp.
2000-10-20 David Edelsohn <edelsohn@gnu.org>
* typeck2.c (abstract_virtuals_error): Use "because" instead of

View File

@ -1609,8 +1609,7 @@ dump_expr (t, flags)
else
{
do_int:
if ((unsigned HOST_WIDE_INT) TREE_INT_CST_HIGH (t)
!= (TREE_INT_CST_LOW (t) >> (HOST_BITS_PER_WIDE_INT - 1)))
if (! host_integerp (t, 0))
{
tree val = t;

View File

@ -1388,7 +1388,13 @@ walk_tree (tp, func, data, htab)
case FUNCTION_TYPE:
WALK_SUBTREE (TREE_TYPE (*tp));
WALK_SUBTREE (TYPE_ARG_TYPES (*tp));
{
tree arg = TYPE_ARG_TYPES (*tp);
/* We never want to walk into default arguments. */
for (; arg; arg = TREE_CHAIN (arg))
WALK_SUBTREE (TREE_VALUE (arg));
}
break;
case ARRAY_TYPE: