tree.c (walk_tree, TREE_LIST): Don't walk the TREE_PURPOSE of BASELINK_P.

cp:
	* tree.c (walk_tree, TREE_LIST): Don't walk the TREE_PURPOSE of
	BASELINK_P.

From-SVN: r39112

gcc/cp/ChangeLog

+2001-01-18  Nathan Sidwell  <nathan@codesourcery.com>
+
+	* tree.c (walk_tree, TREE_LIST): Don't walk the TREE_PURPOSE of
+	BASELINK_P.
+
 2001-01-16  Kriang Lerdsuwanakij  <lerdsuwa@users.sourceforge.net>
 
 	* typeck.c (build_function_call_real): Call fold on the CALL_EXPR.

gcc/cp/tree.c

@@ -1311,7 +1311,9 @@ walk_tree (tp, func, data, htab)
       break;
 
     case TREE_LIST:
-      WALK_SUBTREE (TREE_PURPOSE (*tp));
+      /* A BASELINK_P's TREE_PURPOSE is a BINFO, and hence circular.  */
+      if (!BASELINK_P (*tp))
+        WALK_SUBTREE (TREE_PURPOSE (*tp));
       WALK_SUBTREE (TREE_VALUE (*tp));
       WALK_SUBTREE (TREE_CHAIN (*tp));
       break;