From: Martin v. Löwis <loewis@informatik.hu-berlin.de>
Date: Mon, 24 Aug 1998 02:05:51 +0000 (-0400)
Subject: * search.c (my_tree_cons): Reimplement.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=df44f2b0e98dccd15796b2e9af364c1704fba95e;p=gcc.git

* search.c (my_tree_cons): Reimplement.

From-SVN: r21927
---

diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog
index 3e511084efe..1941f157323 100644
--- a/gcc/cp/ChangeLog
+++ b/gcc/cp/ChangeLog
@@ -3,11 +3,13 @@
         * lex.c (real_yylex): Don't warn about long long constants if
         we're allowing long long.
 
-1998-08-23  Martin von Löwis  <loewis@informatik.hu-berlin.de>
+1998-08-24  Martin von Löwis  <loewis@informatik.hu-berlin.de>
 
 	* decl.c (pushdecl): Use IDENTIFIER_NAMESPACE_VALUE instead of
 	accessing bindings directly.
 
+	* search.c (my_tree_cons): Reimplement.
+
 	* lang-specs.h: Remove __HONOR_STD.
 	* inc/exception, inc/new, inc/new.h, inc/typeinfo: Likewise.
 
diff --git a/gcc/cp/search.c b/gcc/cp/search.c
index 79042e1a52e..6367358ba78 100644
--- a/gcc/cp/search.c
+++ b/gcc/cp/search.c
@@ -261,13 +261,12 @@ static tree
 my_tree_cons (purpose, value, chain)
      tree purpose, value, chain;
 {
-  tree p = (tree)obstack_alloc (&type_obstack_entries, sizeof (struct tree_list));
-  bzero ((char *)p, sizeof (struct tree_list));
+  tree p;
+  struct obstack *ambient_obstack = current_obstack;
+  current_obstack = &type_obstack_entries;
+  p = tree_cons (purpose, value, chain);
+  current_obstack = ambient_obstack;
   ++my_tree_node_counter;
-  TREE_SET_CODE (p, TREE_LIST);
-  TREE_PURPOSE (p) = purpose;
-  TREE_VALUE (p) = value;
-  TREE_CHAIN (p) = chain;
   return p;
 }