diff options
author | Michael Meissner <meissner@cygnus.com> | 1998-07-02 11:42:39 +0000 |
---|---|---|
committer | Michael Meissner <meissner@gcc.gnu.org> | 1998-07-02 11:42:39 +0000 |
commit | 848205e6edc05cb41e877c5835244ce3bd133fda (patch) | |
tree | 3c0b7c2e8e7833bd540531f442c4612435c1c382 /gcc/varray.c | |
parent | 44bb0e9324d7bdd892a20e816314be646a920f06 (diff) | |
download | gcc-848205e6edc05cb41e877c5835244ce3bd133fda.zip gcc-848205e6edc05cb41e877c5835244ce3bd133fda.tar.gz gcc-848205e6edc05cb41e877c5835244ce3bd133fda.tar.bz2 |
Add initial varray support infrastructure
From-SVN: r20892
Diffstat (limited to 'gcc/varray.c')
-rw-r--r-- | gcc/varray.c | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/gcc/varray.c b/gcc/varray.c new file mode 100644 index 0000000..80f15b2 --- /dev/null +++ b/gcc/varray.c @@ -0,0 +1,70 @@ +/* Virtual array support. + Copyright (C) 1998 Free Software Foundation, Inc. + Contributed by Cygnus Solutions. + + 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 + the Free Software Foundation, 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ + +#include "config.h" +#include "system.h" +#include "rtl.h" +#include "tree.h" +#include "bitmap.h" +#include "varray.h" + +#define VARRAY_HDR_SIZE (sizeof (struct varray_head_tag) - sizeof (varray_data)) + +/* Allocate a virtual array with NUM_ELEMENT elements, each of which is + ELEMENT_SIZE bytes long, named NAME. Array elements are zeroed. */ +varray_type +varray_init (num_elements, element_size, name) + size_t num_elements; + size_t element_size; + const char *name; +{ + size_t data_size = num_elements * element_size; + varray_type ptr = (varray_type) xcalloc (VARRAY_HDR_SIZE + data_size, 1); + + ptr->num_elements = num_elements; + ptr->element_size = element_size; + ptr->name = name; + return ptr; +} + +/* Grow/shrink the virtual array VA to N elements. Zero any new elements + allocated. */ +varray_type +varray_grow (va, n) + varray_type va; + size_t n; +{ + size_t old_elements = va->num_elements; + + if (n != old_elements) + { + size_t element_size = va->element_size; + size_t old_data_size = old_elements * element_size; + size_t data_size = n * element_size; + + va = (varray_type) xrealloc ((char *)va, VARRAY_HDR_SIZE + data_size); + va->num_elements = n; + if (n > old_elements) + bzero (&va->data.c[old_data_size], data_size - old_data_size); + } + + return va; +} |