Add a missing GC root

From-SVN: r29236

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f42c44f58a99793dd855181449fd3a3c3dcd9a1e..87f8f7afb4092a81b8a8e6d49552a8ee94e5f6ef 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+Thu Sep  9 17:23:19 1999  Bernd Schmidt  <bernds@cygnus.co.uk>
+
+       * except.c (call_get_eh_context): Add root when allocating static
+       tree variable.
+
 Thu Sep  9 15:24:59 BST 1999  Richard Earnshaw <rearnsha@arm.com>
 
        * arm.c: Include "ggc.h".

diff --git a/gcc/except.c b/gcc/except.c
index 98dba0cb5dafc79d0f89c71536d2315cbea60874..f74d8fbf09f6ffc8f2ecff0648a2729eb46dc721 100644 (file)
--- a/gcc/except.c
+++ b/gcc/except.c
@@ -1101,6 +1101,8 @@ call_get_eh_context ()
       make_decl_rtl (fn, NULL_PTR, 1);
       assemble_external (fn);
       pop_obstacks ();
+
+      ggc_add_tree_root (&fn, 1);
     }
 
   expr = build1 (ADDR_EXPR, build_pointer_type (TREE_TYPE (fn)), fn);