procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tree.c (perm_manip): Also regenerate the RTL of an extern.

Browse source 
* tree.c (perm_manip): Also regenerate the RTL of an extern.
	(copy_to_permanent): Use end_temporary_allocation.

From-SVN: r19560
This commit is contained in:
Jason Merrill 1998-05-06 02:40:36 +00:00 • committed by Jason Merrill
parent 15ebe47d89
commit 73c9f27018
2 changed files with 18 additions and 11 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 @@
Wed May 6 02:33:39 1998 Jason Merrill <jason@yorick.cygnus.com>
* tree.c (perm_manip): Also regenerate the RTL of an extern.
(copy_to_permanent): Use end_temporary_allocation.
Tue May 5 23:54:04 1998 Jason Merrill <jason@yorick.cygnus.com>
* init.c (expand_vec_init): The initialization of each array

24
gcc/cp/tree.c
View file

@ -1685,10 +1685,19 @@ perm_manip (t)
{
if (TREE_PERMANENT (t))
return t;
/* Support `void f () { extern int i; A<&i> a; }' */
if ((TREE_CODE (t) == VAR_DECL || TREE_CODE (t) == FUNCTION_DECL)
&& TREE_PUBLIC (t))
return copy_node (t);
{
t = copy_node (t);
/* copy_rtx won't make a new SYMBOL_REF, so call make_decl_rtl again. */
DECL_RTL (t) = 0;
make_decl_rtl (t, NULL_PTR, 1);
return t;
}
return NULL_TREE;
}
@ -1699,22 +1708,15 @@ tree
copy_to_permanent (t)
tree t;
{
register struct obstack *ambient_obstack = current_obstack;
register struct obstack *ambient_saveable_obstack = saveable_obstack;
register struct obstack *ambient_expression_obstack = expression_obstack;
if (t == NULL_TREE || TREE_PERMANENT (t))
return t;
saveable_obstack = &permanent_obstack;
current_obstack = saveable_obstack;
expression_obstack = saveable_obstack;
push_obstacks_nochange ();
end_temporary_allocation ();
t = mapcar (t, perm_manip);
current_obstack = ambient_obstack;
saveable_obstack = ambient_saveable_obstack;
expression_obstack = ambient_expression_obstack;
pop_obstacks ();
return t;
}