Enlist the FreeBSD-CURRENT users as testers of what is to become Gcc 3.1.0.

These bits are taken from the FSF anoncvs repo on 1-Feb-2002 08:20 PST.

1 files changed, 163 insertions, 0 deletions

diff --git a/contrib/gcc/lists.c b/contrib/gcc/lists.c
new file mode 100644
index 0000000..0adacfb
--- /dev/null
+++ b/contrib/gcc/lists.c
@@ -0,0 +1,163 @@
+/* List management for the GNU C-Compiler expander.
+   Copyright (C) 1987, 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
+   1999 Free Software Foundation, Inc.
+
+This file is part of GCC.
+
+GCC is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2, or (at your option) any later
+version.
+
+GCC is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with GCC; see the file COPYING.  If not, write to the Free
+Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.  */
+
+#include "config.h"
+#include "system.h"
+#include "toplev.h"
+#include "rtl.h"
+#include "ggc.h"
+
+static void free_list PARAMS ((rtx *, rtx *));
+static void zap_lists PARAMS ((void *));
+
+/* Functions for maintaining cache-able lists of EXPR_LIST and INSN_LISTs.  */
+
+/* An INSN_LIST containing all INSN_LISTs allocated but currently unused.  */
+static rtx unused_insn_list;
+
+/* An EXPR_LIST containing all EXPR_LISTs allocated but currently unused.  */
+static rtx unused_expr_list;
+
+
+/* This function will free an entire list of either EXPR_LIST or INSN_LIST
+   nodes. This is to be used only only lists that consist exclusively of
+   nodes of one type only.  This is only called by free_EXPR_LIST_list
+   and free_INSN_LIST_list.  */
+static void
+free_list (listp, unused_listp)
+     rtx *listp, *unused_listp;
+{
+  rtx link, prev_link;
+
+  prev_link = *listp;
+  link = XEXP (prev_link, 1);
+
+  while (link)
+    {
+      prev_link = link;
+      link = XEXP (link, 1);
+    }
+
+  XEXP (prev_link, 1) = *unused_listp;
+  *unused_listp = *listp;
+  *listp = 0;
+}
+
+/* This call is used in place of a gen_rtx_INSN_LIST. If there is a cached
+   node available, we'll use it, otherwise a call to gen_rtx_INSN_LIST 
+   is made.  */
+rtx
+alloc_INSN_LIST (val, next)
+     rtx val, next;
+{
+  rtx r;
+
+  if (unused_insn_list)
+    {
+      r = unused_insn_list;
+      unused_insn_list = XEXP (r, 1);
+      XEXP (r, 0) = val;
+      XEXP (r, 1) = next;
+      PUT_REG_NOTE_KIND (r, VOIDmode);
+    }
+  else
+    r = gen_rtx_INSN_LIST (VOIDmode, val, next);
+
+  return r;
+}
+
+/* This call is used in place of a gen_rtx_EXPR_LIST. If there is a cached
+   node available, we'll use it, otherwise a call to gen_rtx_EXPR_LIST 
+   is made.  */
+rtx
+alloc_EXPR_LIST (kind, val, next)
+     int kind;
+     rtx val, next;
+{
+  rtx r;
+
+  if (unused_expr_list)
+    {
+      r = unused_expr_list;
+      unused_expr_list = XEXP (r, 1);
+      XEXP (r, 0) = val;
+      XEXP (r, 1) = next;
+      PUT_REG_NOTE_KIND (r, kind);
+    }
+  else
+    r = gen_rtx_EXPR_LIST (kind, val, next);
+
+  return r;
+}
+
+/* This function will initialize the EXPR_LIST and INSN_LIST caches.  */
+
+static void
+zap_lists (dummy)
+     void *dummy ATTRIBUTE_UNUSED;
+{
+  unused_expr_list = NULL;
+  unused_insn_list = NULL;
+}
+
+void 
+init_EXPR_INSN_LIST_cache ()
+{
+  ggc_add_root (&unused_expr_list, 1, 1, zap_lists);
+}
+
+/* This function will free up an entire list of EXPR_LIST nodes.  */
+void 
+free_EXPR_LIST_list (listp)
+     rtx *listp;
+{
+  if (*listp == 0)
+    return;
+  free_list (listp, &unused_expr_list);
+}
+
+/* This function will free up an entire list of INSN_LIST nodes.  */
+void 
+free_INSN_LIST_list (listp)
+     rtx *listp;
+{
+  if (*listp == 0)
+    return;
+  free_list (listp, &unused_insn_list);
+}
+
+/* This function will free up an individual EXPR_LIST node.  */
+void 
+free_EXPR_LIST_node (ptr)
+     rtx ptr;
+{
+  XEXP (ptr, 1) = unused_expr_list;
+  unused_expr_list = ptr;
+}
+
+/* This function will free up an individual INSN_LIST node.  */
+void 
+free_INSN_LIST_node (ptr)
+     rtx ptr;
+{
+  XEXP (ptr, 1) = unused_insn_list;
+  unused_insn_list = ptr;
+}