* c-lex.c (interpret_float): Give a pedwarn rather than a warning

[pf3gnuchains/gcc-fork.git] / gcc / lists.c

diff --git a/gcc/lists.c b/gcc/lists.c
index 88abc54..c36e8cf 100644 (file)
--- a/gcc/lists.c
+++ b/gcc/lists.c
@@ -1,6 +1,6 @@
-/* List management for the GNU C-Compiler expander.
+/* List management for the GCC expander.
    Copyright (C) 1987, 1988, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
-   1999 Free Software Foundation, Inc.
+   1999, 2003 Free Software Foundation, Inc.
 
 This file is part of GCC.
 
@@ -21,29 +21,29 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 
 #include "config.h"
 #include "system.h"
+#include "coretypes.h"
+#include "tm.h"
 #include "toplev.h"
 #include "rtl.h"
 #include "ggc.h"
 
-static void free_list PARAMS ((rtx *, rtx *));
-static void zap_lists PARAMS ((void *));
+static void free_list (rtx *, rtx *);
 
 /* 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;
+static GTY ((deletable)) rtx unused_insn_list;
 
 /* An EXPR_LIST containing all EXPR_LISTs allocated but currently unused.  */
-static rtx unused_expr_list;
+static GTY ((deletable)) 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. This is to be used only on 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;
+free_list (rtx *listp, rtx *unused_listp)
 {
   rtx link, prev_link;
 
@@ -65,8 +65,7 @@ free_list (listp, unused_listp)
    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;
+alloc_INSN_LIST (rtx val, rtx next)
 {
   rtx r;
 
@@ -88,9 +87,7 @@ alloc_INSN_LIST (val, next)
    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;
+alloc_EXPR_LIST (int kind, rtx val, rtx next)
 {
   rtx r;
 
@@ -108,26 +105,9 @@ alloc_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;
+free_EXPR_LIST_list (rtx *listp)
 {
   if (*listp == 0)
     return;
@@ -136,8 +116,7 @@ free_EXPR_LIST_list (listp)
 
 /* This function will free up an entire list of INSN_LIST nodes.  */
 void
-free_INSN_LIST_list (listp)
-     rtx *listp;
+free_INSN_LIST_list (rtx *listp)
 {
   if (*listp == 0)
     return;
@@ -146,8 +125,7 @@ free_INSN_LIST_list (listp)
 
 /* This function will free up an individual EXPR_LIST node.  */
 void
-free_EXPR_LIST_node (ptr)
-     rtx ptr;
+free_EXPR_LIST_node (rtx ptr)
 {
   XEXP (ptr, 1) = unused_expr_list;
   unused_expr_list = ptr;
@@ -155,9 +133,10 @@ free_EXPR_LIST_node (ptr)
 
 /* This function will free up an individual INSN_LIST node.  */
 void
-free_INSN_LIST_node (ptr)
-     rtx ptr;
+free_INSN_LIST_node (rtx ptr)
 {
   XEXP (ptr, 1) = unused_insn_list;
   unused_insn_list = ptr;
 }
+
+#include "gt-lists.h"