From: Richard Stallman <rms@gnu.org>
Date: Mon, 7 Sep 1992 06:08:44 +0000 (+0000)
Subject: (grokparms): Copy arg type list to savable obstack if nec.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=023de2924d8a61678948ea7a46de9f946a1d0a8f;p=gcc.git

(grokparms): Copy arg type list to savable obstack if nec.

From-SVN: r2071
---

diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index 936b8eacfb5..fb925045921 100644
--- a/gcc/c-decl.c
+++ b/gcc/c-decl.c
@@ -4438,7 +4438,20 @@ grokparms (parms_info, funcdef_flag)
 	      typelt = TREE_CHAIN (typelt);
 	    }
 
-      return first_parm;
+      /* Allocate the list of types the way we allocate a type.  */
+      if (allocation_temporary_p ())
+	{
+	  /* Construct a copy of the list of types
+	     on the saveable obstack.  */
+	  tree result = NULL;
+	  for (typelt = first_parm; typelt; typelt = TREE_CHAIN (typelt))
+	    result = saveable_tree_cons (NULL_TREE, TREE_VALUE (typelt),
+					 result);
+	  return nreverse (result);
+	}
+      else
+	/* The list we have is permanent already.  */
+	return first_parm;
     }
 }