lists.c (init_EXPR_INSN_LIST_cache): Don't need to zap the cache every function if ggc_p.

        * lists.c (init_EXPR_INSN_LIST_cache): Don't need to zap the
        cache every function if ggc_p.

From-SVN: r29872

gcc/ChangeLog

+Fri Oct  8 11:58:34 1999  Richard Henderson  <rth@cygnus.com>
+
+	* lists.c (init_EXPR_INSN_LIST_cache): Don't need to zap the
+	cache every function if ggc_p.
+
 Fri Oct  8 18:46:11 1999  Bernd Schmidt  <bernds@cygnus.co.uk>
 
 	* jump.c (duplicate_loop_exit_test): Use copy_insn/copy_insn_1

gcc/lists.c

@@ -120,15 +120,22 @@ zap_lists (dummy)
 void 
 init_EXPR_INSN_LIST_cache ()
 {
-  static int initialized;
-  if (!initialized)
+  if (ggc_p)
     {
-      initialized = 1;
-      ggc_add_root (&unused_expr_list, 1, 1, zap_lists);
+      static int initialized;
+      if (!initialized)
+        {
+          initialized = 1;
+          ggc_add_root (&unused_expr_list, 1, 1, zap_lists);
+        }
+
+      /* No need to squish the lists across functions with GC enabled.  */
+    }
+  else
+    {
+      unused_expr_list = NULL;
+      unused_insn_list = NULL;
     }
-    
-  unused_expr_list = NULL;
-  unused_insn_list = NULL;
 }
 
 /* This function will free up an entire list of EXPR_LIST nodes.  */