From 5a4f6418af320b21dca63e0a0139306ce23b728a Mon Sep 17 00:00:00 2001 From: Andrew MacLeod Date: Wed, 25 Aug 1999 17:50:53 +0000 Subject: lists.c (unused_insn_list, [...]): New file for maintaining various types of lists. Wed Aug 25 13:41:47 EDT 1999 Andrew MacLeod * lists.c (unused_insn_list, unused_expr_list): New file for maintaining various types of lists. New statics for maintaining a cache of available INSN_LIST and EXPR_LIST nodes. (free_list): Static function for freeing a list of INSN/EXPR nodes. (alloc_INSN_LIST): Function to get a free INSN_LIST node. (alloc_EXPR_LIST): Function to get a free EXPR_LIST node. (init_EXPR_INSN_LIST_cache): Initialize the cache lists. (free_EXPR_LIST_list): Free an entire list of EXPR_LIST nodes. (free_INSN_LIST_list): Free an entire list of INSN_LIST nodes. (free_EXPR_LIST_node): Free an individual EXPR_LIST node. (free_INSN_LIST_node): Free an individual INSN_LIST node. * haifa-sched.c (unused_insn_list, unused_expr_list): Moved to flow.c (free_list, alloc_INSN_LIST, alloc_EXPR_LIST): Moved to flow.c (remove_dependence, free_pending_lists): Use new global routines. (flush_pending_lists, sched_analyze_insn): Use new global routines. (sched_analyze, compute_block_backward_dependences): Use new routines. (sched_analyze_1, sched_analyze_2): Use new routines. (schedule_insns): Use new global routines. * rtl.h (init_EXPR_INSN_LIST_cache, free_EXPR_LIST_list): Add function prototypes. (free_INSN_LIST_list, free_EXPR_LIST_node): Add prototypes. (free_INSN_LIST_node, alloc_INSN_LIST, alloc_EXPR_LIST): Add function prototypes. * toplev.c (rest_of_compilation): Initialize node cache. * Makefile.in (OBJS): Add lists.o to list of object files. (lists.o): Add dependancies. From-SVN: r28864 --- gcc/lists.c | 150 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 150 insertions(+) create mode 100644 gcc/lists.c (limited to 'gcc/lists.c') diff --git a/gcc/lists.c b/gcc/lists.c new file mode 100644 index 0000000..331b953 --- /dev/null +++ b/gcc/lists.c @@ -0,0 +1,150 @@ +/* List management for the GNU C-Compiler expander. + Copyright (C) 1987, 88, 92-97, 1998, 1999 Free Software Foundation, Inc. + +This file is part of GNU CC. + +GNU CC 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. + +GNU CC 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 GNU CC; 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" + +/* 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; +{ + register 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. */ +void +init_EXPR_INSN_LIST_cache () +{ + unused_expr_list = NULL; + unused_insn_list = NULL; +} + +/* 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; +} -- cgit v1.1