gcc/lists.c

   1 /* List management for the GNU C-Compiler expander.
   2    Copyright (C) 1987, 88, 92-97, 1998, 1999 Free Software Foundation, Inc.
   3
   4 This file is part of GNU CC.
   5
   6 GNU CC is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU CC is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU CC; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 #include "config.h"
  22 #include "system.h"
  23 #include "toplev.h"
  24 #include "rtl.h"
  25
  26 /* Functions for maintaining cache-able lists of EXPR_LIST and INSN_LISTs.  */
  27
  28 /* An INSN_LIST containing all INSN_LISTs allocated but currently unused.  */
  29 static rtx unused_insn_list;
  30
  31 /* An EXPR_LIST containing all EXPR_LISTs allocated but currently unused.  */
  32 static rtx unused_expr_list;
  33
  34
  35 /* This function will free an entire list of either EXPR_LIST or INSN_LIST
  36    nodes. This is to be used only only lists that consist exclusively of
  37    nodes of one type only.  This is only called by free_EXPR_LIST_list
  38    and free_INSN_LIST_list.  */
  39 static void
  40 free_list (listp, unused_listp)
  41      rtx *listp, *unused_listp;
  42 {
  43   register rtx link, prev_link;
  44
  45   prev_link = *listp;
  46   link = XEXP (prev_link, 1);
  47
  48   while (link)
  49     {
  50       prev_link = link;
  51       link = XEXP (link, 1);
  52     }
  53
  54   XEXP (prev_link, 1) = *unused_listp;
  55   *unused_listp = *listp;
  56   *listp = 0;
  57 }
  58
  59 /* This call is used in place of a gen_rtx_INSN_LIST. If there is a cached
  60    node available, we'll use it, otherwise a call to gen_rtx_INSN_LIST
  61    is made.  */
  62 rtx
  63 alloc_INSN_LIST (val, next)
  64      rtx val, next;
  65 {
  66   rtx r;
  67
  68   if (unused_insn_list)
  69     {
  70       r = unused_insn_list;
  71       unused_insn_list = XEXP (r, 1);
  72       XEXP (r, 0) = val;
  73       XEXP (r, 1) = next;
  74       PUT_REG_NOTE_KIND (r, VOIDmode);
  75     }
  76   else
  77     r = gen_rtx_INSN_LIST (VOIDmode, val, next);
  78
  79   return r;
  80 }
  81
  82 /* This call is used in place of a gen_rtx_EXPR_LIST. If there is a cached
  83    node available, we'll use it, otherwise a call to gen_rtx_EXPR_LIST
  84    is made.  */
  85 rtx
  86 alloc_EXPR_LIST (kind, val, next)
  87      int kind;
  88      rtx val, next;
  89 {
  90   rtx r;
  91
  92   if (unused_expr_list)
  93     {
  94       r = unused_expr_list;
  95       unused_expr_list = XEXP (r, 1);
  96       XEXP (r, 0) = val;
  97       XEXP (r, 1) = next;
  98       PUT_REG_NOTE_KIND (r, kind);
  99     }
 100   else
 101     r = gen_rtx_EXPR_LIST (kind, val, next);
 102
 103   return r;
 104 }
 105
 106 /* This function will initialize the EXPR_LIST and INSN_LIST caches.  */
 107 void
 108 init_EXPR_INSN_LIST_cache ()
 109 {
 110   unused_expr_list = NULL;
 111   unused_insn_list = NULL;
 112 }
 113
 114 /* This function will free up an entire list of EXPR_LIST nodes.  */
 115 void
 116 free_EXPR_LIST_list (listp)
 117      rtx *listp;
 118 {
 119   if (*listp == 0)
 120     return;
 121   free_list (listp, &unused_expr_list);
 122 }
 123
 124 /* This function will free up an entire list of INSN_LIST nodes.  */
 125 void
 126 free_INSN_LIST_list (listp)
 127      rtx *listp;
 128 {
 129   if (*listp == 0)
 130     return;
 131   free_list (listp, &unused_insn_list);
 132 }
 133
 134 /* This function will free up an individual EXPR_LIST node.  */
 135 void
 136 free_EXPR_LIST_node (ptr)
 137      rtx ptr;
 138 {
 139   XEXP (ptr, 1) = unused_expr_list;
 140   unused_expr_list = ptr;
 141 }
 142
 143 /* This function will free up an individual INSN_LIST node.  */
 144 void
 145 free_INSN_LIST_node (ptr)
 146      rtx ptr;
 147 {
 148   XEXP (ptr, 1) = unused_insn_list;
 149   unused_insn_list = ptr;
 150 }